[ srdjan ub @ 16.02.2007. 01:53 ] @
Pocetnik sam u Access-u i VBA, pa bih molio za malu pomoć. Ovo je kod brisanja recorda:

Private Sub Del_Click()
On Error GoTo Err_Del_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Del_Click:
Exit Sub

Err_Del_Click:
MsgBox Err.Description
Resume Exit_Del_Click

End Sub


E, sad ja sam hteo da napravim svoj kod, da se ne pojavljuje standardne poruke nego one koje ja napisem:

Private Sub cmdDel_Click()
Dim Odgovor As Integer

Odgovor = MsgBox("Sigurni ste da zelite da obrisete podatke?", vbYesNo, "Paznja!")

If Odgovor = vbYes Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Else
Cancel = True
End If
End Sub

Vidite već koji me deo muči, kako to uraditi?
[ Branko_S @ 16.02.2007. 07:06 ] @
Tvoj kod je OK, tebi zapravo treba da u Tools>Options> kartica Edit/Find u delu Confirm podesiš "Record Changes" na NO.
[ Trtko @ 16.02.2007. 07:10 ] @
Imaš i drugih mogučnosti.
Ja unos, ispravak , brisanje sve radim iz koda.

Evo za brisanje , kod ubacis na event od neke tipke.

Dim d As Database
Dim R As Recordset
Set d = CurrentDb
Set R = d.OpenRecordset("select * from tblpodrucni where sifrapo='" & sifrapo & "'")
If R.EOF Then
Msgbox "Podaci ne postoje za brisanje "
Else
If MsgBox("Želite li zaista obrisati podatak", vbYesNo, "Pažnja") = vbYes Then
R.Delete
End If
End If

R.Close
Set d = Nothing


Pozdrav trtko
[ srdjan ub @ 16.02.2007. 14:16 ] @
OK ! To je to, Hvala!
Pozdrav