question

abonasermando88 avatar image
abonasermando88 asked

problem with accsess and sql help meeee

hello any one can help me to solve the Errors here cuz i have many error massges and some time ist work please help me > Private Sub Command50_Click() > > DoCmd.SetWarnings False > Const msoFileDialogFilePicker As Long = 1 > Set fDialog = Application.FileDialog(msoFileDialogFilePicker) > Dim selectedFilter As String > Dim imyDateiname As String > With fDialog > .AllowMultiSelect = False > .Filters.Clear > .Filters.Add "Excel", "*.xlsx", 1 > .Show > If .SelectedItems.Count = 0 Then > imyDateiname = "" > Else > imyDateiname = Dir(.SelectedItems(1)) > End If > selectedFilter = .FilterIndex > End With > If imyDateiname <> "" Then > Dim oExc As New Excel.Application > > > With oExc > > > .Workbooks.Open "C:\Users\" & > Environ("UserName") & "\Desktop\" & > imyDateiname > > .Rows("1:2").Delete > .Rows("1").EntireRow.Insert > .Worksheets("ps").Columns("B").Replace > _ What:="-", Replacement:=" ", _ SearchOrder:=xlByColumns, > MatchCase:=True Cells(1, 1).Value2 = > "Ebene" Cells(1, 2).Value2 = > "OrgEinheit" Cells(1, 3).Value2 = > "Titel" Cells(1, 4).Value2 = > "PersNr" Cells(1, 5).Value2 = > "Geburtsdatum" Cells(1, 6).Value2 = > "Eintrittsdatum" Cells(1, 7).Value2 > = "Befristungs" Cells(1, 8).Value2 = "Beginnalter" Cells(1, 9).Value2 = > "Beginnfrei" Cells(1, 10).Value2 = > "WK2" Cells(1, 11).Value2 = "WT" > Cells(1, 12).Value2 = "Kostenstelle" > Cells(1, 13).Value2 = "Schlüssel" > Cells(1, 14).Value2 = > "Tätigkeitsbezeichnung" Cells(1, > 15).Value2 = "IRWAZ" Cells(1, > 16).Value2 = "IstAK" Cells(1, > 17).Value2 = "BelGrp" > > > > > .ActiveWorkbook.SaveAs "C:\Users\" & > Environ("UserName") & "\Desktop\" & > imyDateiname .Quit End With > > > DoCmd.TransferSpreadsheet acImport, > acSpreadsheetTypeExcel9, "PS", > imyDateiname, True > Dim str As String > str = InputBox("INSERT THE NUMBER OF THE MONTH PLEASE") > execQry "upd_TPS_Monat", str > Me.Refresh > MsgBox "DONE YOUR DATA ARE READY!" End If End Sub
sql serverexcelsql queryaccessvba
5 comments
10 |1200 characters needed characters left characters exceeded

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

What errors are you seeing? Do you know what data causes the errors?
0 Likes 0 ·
yes ![alt text][1] alt text [1]: /storage/temp/3289-1.png
0 Likes 0 ·
1.png (11.5 KiB)
2.png (10.6 KiB)
![alt text][1] [1]: /storage/temp/3291-5.png
0 Likes 0 ·
5.png (18.9 KiB)
and some time ist work and Import and every Thing ok and somtims i resive many Errors like the photos
0 Likes 0 ·
![alt text][1] [1]: /storage/temp/3293-6.png and here is my big Problem
0 Likes 0 ·
7.png (40.6 KiB)
6.png (10.4 KiB)

0 Answers

· Write an Answer

Write an Answer

Hint: Notify or tag a user in this post by typing @username.

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.