إستفسار - ما الخطا في الكود لفتح فورم أخر حسب شرط التاريخ

[FoMaNsHeE]

أخواني الكرام

عندي زر لفتح فورم أخر وهو تمام بيفتح الفورم عادي بس لما حطيت شرط انه يفتح الفورم حسب التاريخ 

جالي 

Run-time error '2467'

أنا كتب الكود كالاتي 

Private Sub BankDeposit_Click()
On Error Resume Next
DoCmd.Save
DoCmd.Close
DoCmd.OpenForm "BankDeposit", , , "[Receipt Date]=" & "#" & [Receipt Date] & "#", , acWindowNormal
End Sub

مش عارف الخطأ فين بالظبط في الكود

 

 

تم تعديل مارس 11, 2017 بواسطه Mohamed.Mustafa

[mourad2012]

DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date] = #" & [Receipt Date] & "#"

 

[FoMaNsHeE]

 

شكرا اخي على ردك

36 دقائق مضت, mourad2012 said:

DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date] = #" & [Receipt Date] & "#"

 

الخطا في الشرط بتهايلي لاني عامل امر الاغلاق قبل ما يفتح الملف التاني لما حذفت امر الاغلاق اشتغل تمام بالامر الى انا حطيته 

يعني بمعنى اصح عملته كدا

Private Sub BankDeposit_Click()
On Error Resume Next
DoCmd.Save
DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date]=" & "#" & [Receipt Date] & "#", , acWindowNormal
End Sub

وبكدا فتح معايا عادي بس فضل الملف الاول في الخلفية هل في أمر باغلاق الملف الاول ويترك الملف المطلوب موجود مع وجود الشرط وهو التاريخ يطابق التاريخ

وشكرا

تم تعديل مارس 11, 2017 بواسطه Mohamed.Mustafa

[رمهان]

Private Sub BankDeposit_Click()
On Error Resume Next
DoCmd.Save
DoCmd.OpenForm "BankDeposit",acNormal , , "[Receipt Date]=" & "#" & [Receipt Date] & "#", , acWindowNormal
docmd.Close acform,"form1"
End Sub

وطبعا يتم استبدال form1  باسم النموذج المعني

بالتوفيق

[FoMaNsHeE]

@رمهان

 

الاستاذ : رمهان جزاك الله كل خير وشكرا على المعلومه وبالفعل هذا الذي اريده

 

أخوك محمد

 

تم تعديل مارس 12, 2017 بواسطه Mohamed.Mustafa