y.s.s

هذه الطريقة فقط تكبر النموذج فقط ولكن لا تخفي القائمة ( ملف - ادوات - تعليمات ) شريط الادوات الريسية عند اطلاعي على الكود الذي بالنموذج وجدت الكود التالي Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize DoCmd.ShowToolbar "ww", A_TOOLBAR_NO End Sub وماذا…

ما هي الطريقة المتبعة في هذا النموذج بحيث يخفي القائمة الرئيسية ( ملف - أدوات - تعليمات ) قمت بإستيراد النموذج الى برنامجي ،، وعند فتحه يظهر رسالة خاطئة أرجو المساعدة db4.zip

ما هي الطريقة المتبعة في مثال الأخ علي الخاطر حيث أني وجت الكود التالي عند فتح النموذج: Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize DoCmd.ShowToolbar "ww", A_TOOLBAR_NO End Sub سؤالي مذا تعني "WW" فقد طبقتها على نموج في برنامجي فيظهر خطأ في الكود و…

أردت أن أعرف هل من طريقة لتحوير الرقم الي الصيغة الكتابية . مثال : 4532 -----> يتحول الى ( أربعة آلاف وخمسمائة وإثنان وثلاثون )

:) مشكور جداً أخي مصلح الحريصي فقط غيرت تغيير طفيف وضعت Exit Sub بعد Then وليس بعد Else ، لأنني أردت عند اضافة NewRecord لا تظهر الرسالة والتغيير هو :- If Me.NewRecord Then Exit Sub Else If MsgBox(" هل تريد بالفعل تغيير اسم الزبون لهذه الفاتورة ؟ ", vbYesNo, "…

في نموذج المبيعات في مربع نص سرد وتحرير ( CustomerID ) وهو من جدول Orders على أنه اسم الزبون وضعت في حدث - قبل التحديث الكود التالي If MsgBox(" هل تريد بالفعل تغيير اسم الزبون لهذه الفاتورة ؟ ", vbYesNo, " تنبيه ") = vbNo Then Cancel = True SendKeys "{ESC}" Ex…

(f) :) مشكور وماقصرت وعساك على القوه ان شاء الله اذا انتهيت من البرنامج كاملا من جميع نواحيه سأضعه في المنتدى لأخذ الآراء والاستفادة للجميع .... ودمتم سالمين ،،

:eek: للعلم .. ،، -------------------- أخذت فكرة البرنامج من برنامج Northwind وطبقتها علي برنامجي ولكن عجزت عن حل المشاكل التي سبق،، وتستطيع فتحه من قائمة: Help --> Sample Database -- > Northwind Sample Databaes هذا ولك جزيل الشكر.. هذا لمن أراد كيفية عمل هذا …

بسم الله الرحمن الرحيم --------------------------------------------- الى الاخوة الكرام ... تحية طيبة وبعد على ضوء الملف المرفق ،، أرجو مساعدتي في النقاط التالية: لدي عدة نقاط أهما: :)1-في النموذج الأساسي ( Orders ) وعند انشاء طلب جديد ( أي سجل جديد) ، أريد يصب…