[ Ljubisa kirovski @ 06.09.2020. 15:57 ] @
Pozdrav svima! \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] |