المشكلة بمفتاح ال Search

أخي الغالي

في حدث الضغط علي زر search ضع هذا الكود البسيط

If IsNull(r) Then
MsgBox "لايمكنك البحث الا بعد اختيار النوع المطلوب", vbCritical, "رسالة تحذير"

قم باضافة هذه الجملة الي بقية الكود الموجود عندك في نفس الحدث ليصبح الكود النهائي كالتالي

If IsNull(r) Then
MsgBox "لايمكنك البحث الا بعد اختيار النوع المطلوب", vbCritical, "رسالة تحذير"
Else

Me.qur.Form.RecordSource = "qur"
Me.qur!File_No.ControlSource = "File_No"
Me.qur!Letter_No.ControlSource = "Letter_No"
Me.qur!Letter_Ref.ControlSource = "Letter_Ref"
Me.qur!Letter_Subject.ControlSource = "Letter_Subject"
Me.qur!From_To.ControlSource = "From_To"
Me.qur!Date_Letter.ControlSource = "Date_Letter"
Me.qur!Date_Receive.ControlSource = "Date_Receive"
Me.qur!Volume.ControlSource = "Volume"
Me.qur!Status.ControlSource = "Status"
Me.qur!Action.ControlSource = "Action"
Me.qur!Type.ControlSource = "Type"
Me.qur.Requery
End If
End Sub

مرفق ملفك بعد اجراء التعديلات اللازمة علية

http://www.f-touch.org//download.php?filename=91511d88f3.zip

أشششكرك أخي وبارك الله فيك.

غفر الله ذنوبك وجعل لك من كل هم فرجا