s.a.[/font]
Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click
Dim sifre As String
sifre = "www.accesstr.net"
If InputBox("Silme Şifresini Giriniz") = sifre Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "Hatalı Şifre"
Exit Sub
End If
Exit_Komut12_Click:
Exit Sub
Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click
bu kod tam bana göre üstad. yalnız tüm kayıtları nası seçtirebiliriz ve inputbox ın form başlığını nasıl değiştirebilirim. microsoft offise Access değilde kayıtları silme şifresi diye
Son Düzenleme: 02/12/2010, 21:54, Düzenleyen: airborne.