Hallo,
ich habe ein Programm geschrieben, welches nach eingabe der Bestellnummer die Liefererdaten anzeigt und die Bestellmenge und Güter.
Nun habe ich aber ein Prob. ich habe die Access-Datenbank im selben verzeichnis wie die VB-Dateien.
Leider kommt beim ausführen immer folgende Fehlermeldung: Fehler beim kompielieren. Diese Objektvariable wurde aber richtig erstellt. Habt ihr ahnung woran das liegt???? Hier die Codierung:
Option Explicit
Dim mdbHandy As Database
Dim tbBestKopf As Recordset
Dim tbBestPos As Recordset
Dim tbLieferer As Recordset
Dim tbTeile As Recordset
Dim mBestNr As String * 5
Dim mGefunden As Boolean
Private Sub Form_Load()
    Form1.Show
    WindowState = 2
    tfBestNr.SetFocus
    przlöschen
    Set mdbHandy = OpenDatabase(App.Path + "\Handy.mdb")
    Set tbBestKopf = mdbHandy.OpenRecordset("Bestkopf", dbOpenTable)
    Set tbBestPos = mdbHandy.OpenRecordset("BestPos", dbOpenTable)
    Set tbLieferer = mdbHandy.OpenRecordset("Lieferer", dbOpenTable)
    Set tbTeile = mdbHandy.OpenRecordset("Teile", dbOpenTable)
   
End Sub
Vielen Dank für eure Hilfe
Gruß Mephisto
Mephisto Gast  | 
