الاخوة الكرام الافاضل
السلام عليكم ورحمة الله وبركاته
من فضلكم بين ايديكم كود لزرار في البرنامج عايز اضيف عليه inputbox لكلمة مرور بحيث يطلبها مني الاول قبل تفعيل الامر الموجود
اكون شاكر لحضراتكم جدا علي المساعدة
Private Sub ÃãÑ63_Click()
On Error GoTo Err_ÃãÑ63_Click
Dim stdocname As String
Dim stLinkCriteria As String
If em_33 = -1 Then
stdocname = "mentenans"
DoCmd.OpenForm stdocname, , , stLinkCriteria
End If
Exit_ÃãÑ63_Click:
Exit Sub
Err_ÃãÑ63_Click:
MsgBox err.Description
Resume Exit_ÃãÑ63_Click
End Sub