majidosmani
یک شنبه 08 آذر 1394, 18:40 عصر
سلام خدمت اساتید محترم میگم من یک نرم افزار قبلا با اکسس نوشتم الان یک مشکل داخلش دارم لطفا من را راهنمایی کنید با توجه به شکلی که فرستادم من می خواهم وقتی کاربر دکمه ذخیره اطلاعات را می زند در صورتی که تکس باکس مشخص شده در تصویر خالی باشد یک پیام به من نشان بده من کد زیر را نوشتم ولی کار نمی کنه نمی دونم چرا
If namber = "" Then
MsgBox "لطفا نوع پرميت را مشخص نمائيد", vbInformation + vbMsgBoxRight + vbOKOnly, "اخطار سيستم"
Else
Me.Form.Refresh
On Error GoTo Err_Command157_Click
DoCmd.GoToRecord , , acNewRec
Exit_Command157_Click:
Exit Sub
Err_Command157_Click:
MsgBox err.Description
Resume Exit_Command157_Click
End If
137132
فایلم را چون قبلا توی این تالار فرستاده بودم الان فقط لینکش را میزارم
http://barnamenevis.org/showthread.php?512207-%DB%8C%DA%A9-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%B1%D8%A7%DB%8C-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D9%85%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1%D9%87%D8%A7%D B%8C-%D8%B9%D9%85%D9%88%D9%85%DB%8C
If namber = "" Then
MsgBox "لطفا نوع پرميت را مشخص نمائيد", vbInformation + vbMsgBoxRight + vbOKOnly, "اخطار سيستم"
Else
Me.Form.Refresh
On Error GoTo Err_Command157_Click
DoCmd.GoToRecord , , acNewRec
Exit_Command157_Click:
Exit Sub
Err_Command157_Click:
MsgBox err.Description
Resume Exit_Command157_Click
End If
137132
فایلم را چون قبلا توی این تالار فرستاده بودم الان فقط لینکش را میزارم
http://barnamenevis.org/showthread.php?512207-%DB%8C%DA%A9-%D9%85%D8%B4%DA%A9%D9%84-%D8%A8%D8%B1%D8%A7%DB%8C-%D9%81%D8%B1%D8%A7%D8%AE%D9%88%D8%A7%D9%86%DB%8C-%D9%85%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1%D9%87%D8%A7%D B%8C-%D8%B9%D9%85%D9%88%D9%85%DB%8C