hey
i get a error data type mismatch in criteria expression
i dont know what is missng :confused:
this is the save code
this is the save and update code
i get a error data type mismatch in criteria expression
i dont know what is missng :confused:
this is the save code
Code:
CN.Execute "INSERT INTO Appointments (AppID, AppDate, AppTime, AppCust, AppHrDr, AppService) VALUES (" & _
NewID & ", #" & _
MyDate(PckDate.Value) & "#, '" & _
CmbEnd.text & " - " & CmbStart.text & "', '" & _
Txt(0).text & "', '" & _
CmbHrDr.ItemData(CmbHrDr.ListIndex) & "', '" & _
RplS(TxtService.text) & "')"Code:
If NewRec Then
Dim NewID As Long
NewID = NextID("AppID", "Appointments")
CN.Execute "INSERT INTO Appointments (AppID, AppDate, AppTime, AppCust, AppHrDr, AppService) VALUES (" & _
NewID & ", #" & _
MyDate(PckDate.Value) & "#, '" & _
CmbEnd.Text & " - " & CmbStart.Text & "', '" & _
Txt(0).Text & "', '" & _
CmbHrDr.ItemData(CmbHrDr.ListIndex) & "', '" & _
TxtService.Text & "')"
FrmApps.LsVwHrDr.FindItem(CmbHrDr.Text).EnsureVisible
FrmApps.LsVwHrDr.FindItem(CmbHrDr.Text).Selected = True
FrmApps.LsVwHrDr_ItemClick FrmApps.LsVwHrDr.FindItem(CmbHrDr.Text)
FrmApps.LsVw.FindItem(NewID, 2).EnsureVisible
FrmApps.LsVw.FindItem(NewID, 2).Selected = True
With FrmApps.LsVw.ListItems
CN.Execute "UPDATE Appointments SET " & _
"AppDate= #" & MyDate(PckDate.Value) & "#, " & _
"AppTime= '" & CmbEnd.Text & " - " & CmbStart.Text & "', " & _
"AppCust= " & Txt(0).Text & "', " & _
"AppService= '" & RplS(TxtService.Text) & "' " & _
"WHERE AppID= " & .Tag
.Text = Format(PckDate.Value, "dd/mm/yyyy")
.SubItems(2) = CmbEnd.Text & " - " & CmbStart.Text
.SubItems(3) = TxtService.Text
End With
End If
Unload Me