Mala pomoc oko koda za brisanje\molicu za pomoc oko koda za brisanje. Imeno imam na forme imam na On Load sledeci kod
Private Sub Form_Load()
Application.SetOption "Confirm Record Changes", 0
End Sub
Onda na On Delete sledeci kod
Private Sub Form_Delete(Cancel As Integer)
Dim SID As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
SID = Me.Ispratnica_broj1.Value
Dim LResponse As Integer
LResponse = MsgBox(" Dali ste sigurni deka sakate da ja izbrišete Ispratnica br.: " & SID, vbYesNo + vbQuestion, "Brišenje?")
Response = acDataErrContinue
If LResponse = vbNo Then
DoCmd.CancelEvent
LResponse = MsgBox("Prekin na brišenje Isptatnica br.: " & SID, vbInformation, "Áðèøåœå?")
Me.Undo
End If
Set rsc = Nothing
End Sub
a na dugme Brishi koje se nalazi na forme imam postavjeno sledeci kod na On Click
Private Sub Command123_Click()
On Error GoTo Err_Command123_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command123_Click:
Exit Sub
Err_Command123_Click:
MsgBox Err.Description
Resume Exit_Command123_Click
End Sub
Radi OK ali kad idem na otkazivanje brisanje pored moje poruke za otkazivanje kad zatvorim javi mi i Ms Access poruku "Jou canceled the previous operation". Moje pitanje za pomoc je:
1. Kako da je ostranim da se ne pojavlja MS Access poruka.
i josh jedno pitanje ako moze za pomoc
2. Dali mogu i kako u kodu na On Delite da dodam moju poruka kad se potvrdi brisanje od strane korisnika da se rekord brishe.
Ocekujem vashu pomoc i Hvala unapred
[Ovu poruku je menjao Ljubisa kirovski dana 06.09.2020. u 20:17 GMT+1]
[Ovu poruku je menjao Ljubisa kirovski dana 06.09.2020. u 20:29 GMT+1]
Lj.Kirovski
