ايجاد تابعي در اكسس

[kamkam1]

با عرض سلام و خسته نباشيد
از دوستان عزيز تقاضا دارم در صورت امكان در ساخت تابع با مشخصات ذيل مرا ياري فرمايند:
يك table داريم با يك فيلد و يك ركورد كه محتويات ركورد عدد خاصي مي باشد.
نيازمند تابعي مي باشم كه چنانچه در رويداد open فرم آن تابع فراخواني گردد كنترل نمايد آن عدد مثلا :اگر xxx باشد اجازه باز شدن فرم را بدهد در غير اين صورت از برنامه خارج گردد.
قبلا از همكاري دوستان سپاسگزارم.

[mehdi_fiz]

سلام دوست عزيز
شما مي توانيد از تابع dlookup استفاده کنيد و عدد بدست آمده را مقايسه کنيد و اجازه باز شدن فرم را بدهيد


Private Sub Form_Open(Cancel As Integer)
Dim x As Integer
'نام فيلد جدول مي باشدid
x = DLookup("[id]", "tablename")
If x = 10 Then
Else
DoCmd.close acForm, Me.name
End If
End Sub