Hallo Zusammen,
ich bin ganu neu hier und auch ein Neuling in der VBA Welt.
Ein Uniprojekt zwingt mich dazu, eine komplette Datenbank zu erstellen. Und nun folendes Problem:
Das Formular ist verknüpft mit einer Abfragentabelle, woher alle Daten bezieht.
Wenn ich über ein cboFeld ein Datensatz auswähle, kommt die Fehlermeldung 'Typen unverträglich'.
Was genau bedeutet das eigentlich und wie ist es zu beheben?
Das ist der passende Code dazu:
Vielen Dank schonmal im Vorraus
mfg Pia
*Topic verschoben, bitte demnächst die Forenbeschreibungen lesen. Zudem VB-BBCode eingefügt*
ich bin ganu neu hier und auch ein Neuling in der VBA Welt.
Ein Uniprojekt zwingt mich dazu, eine komplette Datenbank zu erstellen. Und nun folendes Problem:
Das Formular ist verknüpft mit einer Abfragentabelle, woher alle Daten bezieht.
Wenn ich über ein cboFeld ein Datensatz auswähle, kommt die Fehlermeldung 'Typen unverträglich'.
Was genau bedeutet das eigentlich und wie ist es zu beheben?
Das ist der passende Code dazu:
Visual Basic-Quellcode
- Private Sub cboBestellung_Click()
- On Error GoTo Zu_Fehler
- Dim SuchID As Long, SuchCtl As Date, sqlstr As Database
- SuchID = Me!cboBestellung.Column(0)
- SuchCtl = Me!cboBestellung.Column(2)
- If DLookup("[BestellungsID]", "tblBestellung", "Bestelldatum LIKE '" & SuchCtl & "'") Then
- DoCmd.GoToRecord acDataForm, "frmBestellung", acGoTo, SuchID
- DoCmd.FindRecord SuchID, acEntire, , acSearchAll, , acCurrent
- Else
- MsgBox "Der Datensatz existiert nicht."
- Exit Sub
- End If
- Exit_Fehler:
- Exit Sub
- Zu_Fehler:
- MsgBox Err.Description, vbInformation, "Fehler"
- Resume Exit_Fehler
- End Sub
Vielen Dank schonmal im Vorraus
mfg Pia
*Topic verschoben, bitte demnächst die Forenbeschreibungen lesen. Zudem VB-BBCode eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()