Είχα φτιάξει παλαιότερα μετά από λίγα μαθήματα
VB σε άλλη βάση το εξής:
Private Sub ΚωδΜοναδ_NotInList(NewData As String, Response As Integer)
Dim strAnswer As Integer
Response = acDataErrContinue
strAnswer = MsgBox("Νέος Προμηθευτής ;", vbInformation + vbYesNo)
If strAnswer = vbYes Then
DoCmd.OpenForm "Μονάδες", , , , , acDialog
Response = acDataErrAdded
Else
SendKeys "{Esc}"
End If
End Sub
Όπου καταχωρείται μία τιμή αυτόματα σε άλλη φόρμα, αλλά έχουν περάσει 10 χρόνια σχεδόν και δεν θυμάμαι τίποτα.
Πιστεύω θα πρέπει να γίνει κάπως έτσι:
Private Sub cbo_barcode_NotInList(NewData As String, Response As Integer)
Dim strAnswer As Integer
Response = acDataErrContinue
strAnswer = MsgBox("Νέο Προϊόν ;", vbInformation + vbYesNo)
If strAnswer = vbYes Then
DoCmd.AddNew "barcode", acDialog
Response = acDataErrAdded
Else
SendKeys "{Esc}"
End If
End Sub