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, 6332 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 ..
Ähnliche Inhalte
VB for Applications
gelöst VBA Code Änderung Access 2010 (6)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Datenbanken
gelöst Access 2010 Fehler beim kompilieren (2)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Datenbanken
Access 2010 - Filter für Datum funkioniert nicht VBA (4)

Frage von Dr.Cornwallis zum Thema Datenbanken ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Ubuntu
gelöst Nextcloud 12 Antivirus App for Files (10)

Frage von horstvogel zum Thema Ubuntu ...

SAN, NAS, DAS
+100tb Storagelösung (10)

Frage von Data-Fabi zum Thema SAN, NAS, DAS ...