Predmet:BeforeUpdate
Kod koji vam prezentiram na polju (interna-combobox)na event BeforeUpdate u jednoj formi radi besprijekorno tj poslije iskaza
If Rstinterna.NoMatch Then
imam poruku.
medjutim taj isti kod na istom polju(interna-combobox) u drugoj formi ne odradjuje posao poslije
If Rstinterna.NoMatch Then tj nemam poruke
nego kursor ode na slijedeće polje
ne mogu skuziti gdje je problem
polje je combo sa imenom interna
tabela je tbllproizvodi
forme su :frmulazdetalji - radi
frmizlazdetalji - ne radi
Private Sub interna_BeforeUpdate(Cancel As Integer)
Dim Rstinterna As DAO.Recordset, strinterna As String
Set Rstinterna = CurrentDb.OpenRecordset("select * from tblproizvodi", dbOpenSnapshot)
strinterna = INTERNA
Rstinterna.FindFirst ("interna = '" & strinterna & "'")
If Rstinterna.NoMatch Then
MsgBox " Nemate takavu šifru ! " & Chr(13) _
& "Želite ponovo provjeriti ?", vbInformation, "Queensland Computer" ' Define message.
Me!INTERNA.Undo
Cancel = True
SendKeys "{ESC}{ESC}"
End If
Rstinterna.Close
end sub