Hallo zusammen,
ich bin Christian, Administrator an einer Schule und arbeite an einem Datenbank-VB-Projekt. (VB 6.0 + Access Datenbank)
Da ich mit mehreren Tabellen gleichzeitig arbeiten muss, habe ich mir das Fomular selbst erstellt und das Anzeigen der Datensätze funktioniert auch ganz gut.
Meine beiden Tabellen: Orte und Personal
Wenn ich nun einen neuen Mitarbeiter eingeben will, funktioniert das nur wenn dieser die selbe Postleitzahl hat, wie die, die schon in der Orte-Tabelle vorhanden sind.
Bei meiner Überprüfungsabfrage läuft das Programm durch, aber der Personal.Update Befehl am Ende bringt eine Fehlermeldung und der Datensatz wird nicht gespeichert.
Schon einmal besten Dank für eure Hilfe
Liebe Grüße
Chris
ich bin Christian, Administrator an einer Schule und arbeite an einem Datenbank-VB-Projekt. (VB 6.0 + Access Datenbank)
Da ich mit mehreren Tabellen gleichzeitig arbeiten muss, habe ich mir das Fomular selbst erstellt und das Anzeigen der Datensätze funktioniert auch ganz gut.
Meine beiden Tabellen: Orte und Personal
Wenn ich nun einen neuen Mitarbeiter eingeben will, funktioniert das nur wenn dieser die selbe Postleitzahl hat, wie die, die schon in der Orte-Tabelle vorhanden sind.
Bei meiner Überprüfungsabfrage läuft das Programm durch, aber der Personal.Update Befehl am Ende bringt eine Fehlermeldung und der Datensatz wird nicht gespeichert.
Code:
Personal.AddNew
Personal.Fields("PersonalID").Value = PersID
Personal.Fields("FahrerID").Value = FahrerId
Personal.Fields("Name").Value = FName
Personal.Fields("Vname").Value = Vname
Personal.Fields("Strasse").Value = Strasse
Personal.Fields("Telefon").Value = Tel
Personal.Fields("Fax").Value = Fax
Personal.Fields("Mobil-Telefon").Value = Mobil
Personal.Fields("E-Mail").Value = Email
' Postleitzahl überprüfen
Orte.MoveFirst
Do
If Orte.EOF = False Then
Orte.MoveNext
Else
MsgBox "keine Übereinstimmung"
Exit Do
End If
Loop Until Orte.Fields("PLZ").Value <> PLZ
If Orte.Fields("PLZ") = PLZ Then
Personal.Fields("PLZ").Value = PLZ
txt_Ort = Orte.Fields("Ort").Value
' txt_Ortsteil = Orte.Fields("Ortsteil").Value
txt_Land = Orte.Fields("Land").Value
Personal.Update
Else
Orte.AddNew
Orte.Fields("PLZ").Value = PLZ
Orte.Fields("Ort").Value = Ort
' Orte.Fields("Ortsteil").Value = Ortsteil
Orte.Fields("Land").Value = Land
Orte.Update
'Personal.Update
End If
End Sub
Schon einmal besten Dank für eure Hilfe
Liebe Grüße
Chris