Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Fehler bei OpenRecordset Access VBA 2007

Frage Entwicklung VB for Applications

Mitglied: RicoTumb

RicoTumb (Level 1) - Jetzt verbinden

20.05.2010 um 15:19 Uhr, 6310 Aufrufe, 1 Kommentar

Hallo zusammen,

ich brauche mal dringend Hilfe in einem VBA Code-Stück. Es sollen hierbei Daten aus einer Excel Tabelle in eine Access DB importiert werden. Der Code läuft wunderbar durch bis auf eine Stelle, undzwar:

Set rst = dbs.OpenRecordset(strsql)

Code bis zur besagten Stelle ist unten...

Was mich sehr wundert ist, dass dieses Problem bis vor 2 Wochen noch funktioniert hat, jedoch seit kurzem nicht mehr geht. Als Fehler wird angezeigt:

Laufzeitfehler '3061'
1 Parameter wurden erwartet, aber es wurden zu wenig Parameter übergeben.

Soweit ich weiß wurde auch an den Spalten der Excel Tabelle nichts verändert. Man kann übrigens im Userform nochmals die Spalten der zu importierenden Datei prüfen und anpassen.

Ich wäre sehr dankbar, wenn mir jemand weiterhelfen könnte!!!

Viele Grüße,
Rico

01.
Function Import_TEM_Umsatz() As String 
02.
Dim lchanged As Date 
03.
Dim lDatei, lpfad As String 
04.
Dim dbs As Database 
05.
Dim rst As DAO.Recordset 
06.
Dim strsql As String 
07.
Dim dbspos As Database 
08.
Dim rstpos As DAO.Recordset 
09.
Dim dbserr As Database 
10.
Dim rsterr As DAO.Recordset 
11.
Dim lRec, lRecCount As Integer 
12.
'a 
13.
lDatei = "ImportTEMUmsatz" 
14.
lpfad = Form_TEMImport.Pfad_TEM_Umsatz.Value 
15.
lchanged = Date + Time 
16.
     
17.
 
18.
Set fs = CreateObject("Scripting.FileSystemObject") 
19.
If fs.FileExists(lpfad) Then 
20.
    Set f = fs.GetFile(lpfad) 
21.
    lchanged = f.DateLastModified 
22.
Else 
23.
    Import_TEM_Umsatz = "Importdatei nicht gefunden!!!!" 
24.
    Exit Function 
25.
End If 
26.
     
27.
'Datumsfelder des Einlesemonats 
28.
lbdate = CDate("01." + LTrim(Str(Form_TEMImport.Import_Monat.Value)) + "." + LTrim(Str(Form_TEMImport.Import_Jahr.Value))) 
29.
ledate = DateAdd("m", 1, lbdate) - 1 
30.
     
31.
'Holen der Feldnummer aus der Feld-Datei 
32.
F_TEM_OBJID = Get_Import_FeldNr("TEM Umsatz", "EventID") 
33.
F_TEM_Umsatz = Get_Import_FeldNr("TEM Umsatz", "Umsatz") 
34.
F_TEM_Beginn = Get_Import_FeldNr("TEM Umsatz", "Beginn") 
35.
F_TEM_Description = Get_Import_FeldNr("TEM Umsatz", "Description") 
36.
F_TEM_Kunde = Get_Import_FeldNr("TEM Umsatz", "Kunde") 
37.
F_TEM_Ende = Get_Import_FeldNr("TEM Umsatz", "Ende") 
38.
F_TEM_Bookdate = Get_Import_FeldNr("TEM Umsatz", "Bookdate") 
39.
     
40.
'Einlesen EXCEL TEM Events 
41.
DoCmd.DeleteObject acTable, lDatei 
42.
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ 
43.
        lDatei, lpfad, True 
44.
 
45.
'Löschen der TEM Daten im Monat 
46.
 
47.
lbamdat = Str(Month(lbdate)) + "/" + Str(Day(lbdate)) + "/" + Str(Year(lbdate)) 
48.
leamdat = Str(Month(ledate)) + "/" + Str(Day(ledate)) + "/" + Str(Year(ledate)) 
49.
 
50.
lsql = "UPDATE AnfragePosition SET [Umsatz TEM]=0, [ID TEM]=''" 
51.
lsql = lsql + " WHERE ([Datum]>=#" + lbamdat + "# AND [Datum]<=#" + leamdat + "#)" 
52.
 
53.
DoCmd.RunSQL (lsql) 
54.
 
55.
'Löschen der alten gespeicherten Fehlerdaten 
56.
lsql = "DELETE * FROM ImportTEMFehler" 
57.
DoCmd.RunSQL (lsql) 
58.
 
59.
'Durchlaufen der Importdaten 
60.
Set dbs = CurrentDb() 
61.
 
62.
strsql = "SELECT * FROM [ImportTEMUmsatz]" 
63.
strsql = strsql + " WHERE NOT [Price]=0 AND ([Begin]>=#" + lbamdat + "# AND [Begin]<=#" + leamdat + "#)" 
64.
strsql = strsql + " ORDER BY [Obj#ID]" 
65.
Set rst = dbs.OpenRecordset(strsql)
Mitglied: RicoTumb
20.05.2010 um 16:43 Uhr
Hallo,

das Problem hat sich gelöst =)) Es lag an der ORDER BY Zeile. Der Feldname war wohl nicht mehr korrekt. Aber auch durch auskommentieren der Zeile läuft alles, da die Zeile ja eigentlich nur für die Sortierung sorgt.

Grüße
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
Kreuztabelle Access + VBA Code (7)

Frage von Dr.Cornwallis zum Thema Microsoft Office ...

Microsoft Office
gelöst Access 2007 (2)

Frage von Everest zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...