U jednoj subformi polje šifra artikla je postavljeno kao ComboBox. Korisnik ima pravo da bira šifre i vrši promenu stavki sa liste, ali da ne bi slučajno i neprimećeno to uradio, postavio sam na Before Update kontrolno pitanje:
Private Sub SIFRA_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
Dim LResponse As Integer
SID = Me.SIFRA.Value
stLinkCriteria = "[SIFRA]=" & SID
LResponse = MsgBox("Promeni stavku u: " & SID, vbYesNo, "Promena?")
If LResponse = vbNo Then
DoCmd.CancelEvent
Me.Undo
End If
End Sub
E sad, mene zanima, kako da u MsgBox ubacim i naziv šifre koja se menja, pored one u koju se menja? Dakle da pitanje glasi:
Promeni stavku "Stara šifra" u "Nova šifra"?