لطفا این تکه کدو چک کنید ببینید مشکلش چیه

[qhoqnose]

سلام
اقا کسی میتونه بگه کد زیر چه مشکلی داره

[Option Compare Database

Private Sub Pention_BeforeUpdate(Cancel As Integer)
On Error GoTo err_beforupdate
If Me.Dirty Then
If Sa_no = Null Then
MsgBox("First should specify a staff name", vbMsgBoxlefe + vbOKOnly + vbExclamation, "Warning") = vbOK
Me.Undo
End If
End If
exit_beforeupdate:
Exit Sub
Err_BeforeUpdate:
MsgBox Err.Number & " " & Err.Description
Resume exit_beforeupdate
End Sub

[مهدی قربانی]

سلام
بهتر بود مشكلي كه شما با اين داريد رو ذكر مي كرديد ، به هر شكل تنها ايرادي كه من در كد مورد نظر مي بينم در اين خط هست :

MsgBox("First should specify a staff name", vbMsgBoxlefe + vbOKOnly + vbExclamation, "Warning") = vbOK


در اين خط عبارت vbMsgBoxlefe بايد vbMsgBoxlefet باشه .