مشکل پیش شرط

[shp_mj]

با سلام
من در جایی از برنامم یک subform دارم که شامل تاریخ تقاضا و شماره ی تقاضا و قیمت فروش ،جمع پرداخت ها و مانده ی حساب می باشد حالا می خواستم در یک فرم وابسته به یک کوئری یک شرط بگذارم که تا زمانی که مانده ی حساب صفر نشده است اجازه باز شدن فرمی به عنوان چاپ اطلاعات را ندهد می خواستم ببینم باید چه کار کنم

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

سلام
اگر درست متوجه منظور شما شده باشم فكر نمي كنم نيازي به طولاني كردن راه باشه شما مي تونيد يك كامند باتون بذاريد كه كارش باز كردن فرم چاپ باشه حالا ميتونيد با يك شرط ساده تعيين كنيد درصورتي كه مثلاً عدد بدهي مساوي با 0 بود فرم مورد نظر باز بشه و در غير اينصورت باز نشه.
يك كامند باتون در فرمتون بذاريد و در رخداد On Click اون شبيه كدهاي زير رو بنويسيد
بجاي FormName نام سابفرم و Command7 نام كامند باتون مورد نظر و PrintForm نام فرمي كه بايد بازبشه رو قرار بديد

Private Sub Command7_Click()
On Error GoTo Err_Command7_Click
If Form_FormName.mandeh = 0 Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "PrintForm"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "مانده بيشتر از 0 است"
Cancel = True
End If
Exit_Command7_Click:
Exit Sub
Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click

End Sub

اگر مشكل داشتيد يك نمونه بذاريد تا راهنمايي بشيد .