Shivan Rekany

ممكن تشرح اكثر شو تريد تعمل بدل null بالتفصيل

شكر لك يا ابوخليل لكن انا اريد اعرف عمله في اكسس مثل هذا الكود لاخ عبدالله قدور على رغم انا طبقته على نموذج ولكن بيظهر نافذة فيجوال انو انه خطأ https://www.officena.net/ib/topic/71989-اغلاق-نموذج-تدريجيا/?do=findComment&comment=465668

مثلا ( 20 For i = 1 to ) في أي حالة يستخدمها

ان شاء الله

اغلاق نموذج من نموذج اخر !!؟ ما هي الا docmd.close acform , "اسم النموذج" لكي لا يظهر النافذة الحذر docmd.setwarnings (warningsoff) لكن كما قلت في الاخير عند اغلاق النموذج تظهر رسالة وفي زر في صفحة مهام عامة اسمه انهاء البرنامج عايز لما اضغط عليه يقفل البرنامج بدون ما يظهر الرسالة هذا اختلاف بين طلبك و اسم الموضوع ذاك الكود اقوى من docmd.setwarnings (warningsoff) في حالة on unload لذا يظهر الرسالة هذا حسب فهمي والله يعلم مع التقدير

عمل وحدة نمطية واكتب هذا Public Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Sub HideAccess() Call ShowWindow(Access.hWndAccessApp, 0) End Sub Public Sub ShowAccess() Call ShowWindow(Access.hWndAccessApp, 5) End Sub و بعدين في فورم ( نموذج ) اللي يفتح مع فتح قاعدة بيانات اكسس في حالة on load اكتب هذا السطر fSetAccessWindow (SW_HIDE) مع تحياتي

اتفضل حسب فهمي لطلبك Database57.rar

ارفع المرفق لكي نجرب عليه

اكتب هذا الكود docmd.setwarnings (warningsoff) docmd.close acform , "asm alform"

ما فدمنا شيء هذا واجبنا ... احنا بالخدمة مع تحياتي

هناك يا محمد سلامة ملف البيانات.rar

كلام اخ عبدالله مضبوط واذا عندك مشكلة بعد ارفع المرفق مع تحيات

ارفع نموذج لكي يساعدك الجميع

https://www.officena.net/ib/topic/71965-ربط-مربيعن-نص-بنفس-القيمة/?do=findComment&comment=465483

DOCMD.SETWARNINGS (WARNINGSOFF) هذا الكود لكي لا يظهر الرسالة و لجواب سؤالك انا لا اعلم حاولت بدون جدوى ارجوا من المراقبين و الخبراء المنتدى ان يساعد في هذا

الـــــــــــمـــرفـــــق ؟؟!!

خذ هذا لعل يفيدك

في نفس الرابط اعلاه عليوتيوب بها هذا الكود Private Sub txtProperty_Change() On Error GoTo Err_txtProperty_Change Dim strSource As String strSource = "SELECT OrderNumber, Address, City, ZipCode, OrderRowID " & _ "FROM tblOrders " & _ "Where address Like '*" & Me.txtProperty.Text & "*' " _ & "Or City Like '*" & Me.txtProperty.Text & "*' " _ & "Or ZipCode Like '*" & Me.txtProperty.Text & "*' " _ & "Or OrderNumber Like '*" & Me.txtProperty.Text & "*' " Me.lstSearchResults.RowSource = strSourceExit_txtProperty_Change: Exit SubErr_txtProperty_Change: MsgBox Err.Number & " " & Err.Description Resume Exit_txtProperty_ChangeEnd Sub

من قبل انا اضفت لك دكمة بدل دكمة رالرئيسي للاغلاق وما يظهر رسالة docmd.setwarnings (warningsoff) الفاتورة1.rar

ارفق ملف لعل الجماعه‌ بيقدر بساعدك

لازم بيكون الربط موجود بين الجدولين و بدل تحذف الحقل id تكدر تخفيها

يا ريت ان اكدر اساعدك اخي ولكن لا افهم بالضبط شو بتريد

خذ طلبياتك مع بعض تغيير الفاتورة1.rar

لا داعي للشكر ..

شوف 3333a.rar