AlwaZeeR

وعليكم السلام ورحمة الله وبركاته الجدول الرئيسي يحتوي على الرقم والاسم والرف والقسم والرتبة؟ واضفت جدولا اخر يحتوي على نفس الحقول؟ وتريد ان تاخذ حقول الجدول الجديد المعلومات الموجودة في نفس الحقول في الجدول الرئيسي؟ متى تريد ان تاخذ نفس المعلومات؟ هل لحظة تعبئة الجدول الرئيسي؟ أم بزر امر بعد الانتهاء من تعبئة الجدول الرئيسي؟ :: في انتظار توضيحك

وعليكم السلام ورحمة الله وبركاته من خصائص النموذج او التقرير اختر قائمة مختصرة: لا هذا يلغي القائمة المختصرة بزر اليمين للفأرة اما اذا كنت تريد حماية القاعدة من التعديل فهذا امر اخر :: تحياتي

السلام عليكم ورحمة الله وبركاته فقط غير الكود الموجود في حدث زر الطباعة بهذا الكود DoCmd.OpenReport "rep1", acViewPreview, "", "", acNormal DoCmd.RunCommand acCmdPrint DoCmd.Close acReport, "rep1" بمعنى اخر فقط اضف كود اغلاق التقرير Rep1 جرب ووافني بالنتيجة :: تحياتي

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

العفو اخي صالح لا شكر على واجب

تفضل اخي الكريم صالح ملفك بعد التعديل وتطبيق القاعدة الشرطية عليه :: تحياتي استيراد و تصدير.rar

وعليكم السلام ورحمة الله وبركاته حياك الله اخي صالح هذه جملة بناء شرط التحقق AddType: نوع المدخلات رقم او نص او رمز ويتم تغير رقم 4 حسب نوع الادخال AlerStyle: هي المتحكمة بشكل مربع الاخطار "التنبيه". وبتغيير الرقم سوف تلاحظ الفرق بعد التصدير والخطأ Operator: الرقم 1 لشرط التحقق الوارد في الورمولا1 والثاني ولو وضعت 2 سوف يتم العكس بمعنى شرط التحقق سوف يستثني الفورمولات formula1:, formula2: هذه متغيرات الشرط هذه لمسح الاوبجكت وتستطيع الاستغناء عنها في هذا المثال :: تحياتي

السلام عليكم ورحمة الله وبركاته ،،، بناء على طلب احد الاصدقاء في المنتدى فيما يلي قاعدة بيانات تحوي نموذج به زر امر يقوم بتوليد ملف اكسل به قاعدة التحقق من الصحة بين رقمين اتمنى الفائدة للجميع :: تحياتي Excel-validation.rar

حياك الله اخي ابو منه تفضل هذا ملفك وقد تم تعديله بما يلي: تم اضافة الكود التالي الى مربع التحرير والسرد بعد التحديث: If IsNull(Me.qsm) Then Me.FilterOn = False Else Me.Filter = "GroupID = " & Me.qsm.Column(0) & "" Me.FilterOn = True End If وتم اضافة الكود التالي لمربع نص StudentName في حدث بعد التحديث: GroupID = Me.qsm.Column(0) جرب ووافني بالنتيجة :: تحياتي waz-Copy.rar

وعليكم السلام ورحمة الله وبركاته حاولت فتح القاعدة خاصتك لكنها تعطيني اخطاء كثيرة عموما استخدم الكود التالي في فتح الفاتورة لعل وعسى ان يكون مبتغاك DoCmd.OpenReport "اسم القرير", acViewPreview, , Me.Filter

وعليكم السلام ورحمة الله وبركاته اخي الكريم: انا لا اعرف كيف تضيف فاتورة على برنامجك عموما هذا الامر يعني انه لم يتم تخزين الفاتورة الجديدة ويتم تخزينها بعد الخروج والعودة اليها حاول ان توضح اكثر طريقة اضافة الفاتورة وما هو حقل الفلترة الذي تستخدمه كي اتمكن من مساعدتك :: تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل : يمكنك وضعه في حدث الحالي او الفتح للنموذج الموجود فيه الحقل الذي تريد ارجاعه لصفر وتلقائيا عندما يكون تاريخ اليوم 1 يقوم بارجاعه لصفر Dim txt0 As Date txt0 = Format(Date, "dd") If txt0 = 1 Then txt1 = 0 حقل txt1 هو الحقل الخاص بك الذي تريد ارجاعه لصفر :: تحياتي

وعليكم السلام ورحمة الله وبركاته اخي الكريم: الرابط لا يعمل :: تحياتي

وعليكم السلام ورحمة الله وبركاته قم بالغاء اجماليات الاعمدة من الاستعلام (query1query) وطبقها في نفس التقرير جرب ووافني بالنتيجة :: تحياتي

السلام عليكم ورحمة الله وبركاته جرب غير نوع الخط . تاكد من مصدر الورق a4 ووو لانه مثلا: اذا كان تنسيق التقرير مثلا رسالة وجهة العمل في التقرير a4 فلن يعمل التلقيم التلقائي وسوف يتم طباعة اوراق فارغة ايضا اذا لم يفلح: اعمل تقرير جديد وادرج به اكثر من 7 قيود ولا تستخدم اي كود فقط تقرير فيه اكثر من 7 قيود واطبع ووافني بالنتيجة :: تحياتي

ماذا تقصد بذلك؟ ما نوع الخط الذي تستخدمه في الفاتورة؟؟؟

جزاك الله خيرا اخي صالح وجعله في ميزان حسناتك

وعليكم السلام ورحمة لله وبركاته تفضل اخي الكريم قمت بتقسيم الاستعلام الجدولي الى استعلامات من 1 -7 طبقت لك على ملاحظات1 وملاحظات2 ،،، انت قم بتطبيق الملاحظات من فرعي المبيعات بنفس الطريقة ثم احذف الاستعلامات :: تحياتي waz-db1.rar

السلام عليكم ورحمة الله وبركاته لم افهم ماذا تقصد!! هل تقصد عمل زر امر يظهر التقرير حسب معيار محدد؟ ان كان كذلك يرجى التوضيح في اي نموذج تريد زر الامر؟ وما هو المعيار الذي تريده ؟ :: تحياتي

السلام عليكم ورحمة الله وبركاته ضع الكود في حدث الحالي (Form Current) للنموذج الرئيسي لديك ثم غير (SubName) الى اسم النموذج الفرعي لديك وايضا قم بتغيير (FieldName) الى اسم مربع النص الذي تريد نقل المؤشر اليه، طبعا الموجود في النموذج الرئيسي لديك :: تحياتي Private Sub Form_Current() Dim rs As Dao.Recordset Set rs = Me.SubName.Form.RecordsetClone If rs.RecordCount = 0 Then 'Do Nothing Else rs.MoveLast Me.FieldName.SetFocus End If Set rs = Nothing End Sub

الله آمين ،،، ولك بالمثل ولعامة المسلمين على حسب الحاجة والاستخدام :: تحياتي

اخي بو عبد الله اين المشكلة في المرفق الذي ارفقته اليك؟ قم بتحويل مربع النص الى مربع تحرير وسرد استبدله ووافني بالنتيجة ولا تنسى جعله القيمة =[Forms]![frmlogin]![cboUser] :: تحياتي

وعليكم السلام ورحمة الله وبركاته نعم اخي ابو خليل ،،، لبس علي الموضوع كما تفضلت انا ظننت انه اراد حساااب الحقول النصية زادك الله علما اخي العزيز :: تحياتي

وعليكم السلام ورحمة الله وبركاته لاستخدام النموذج: =DSum("[FieldNm]","[tblName]","[id]=" & "'" & [id] & "'") حيث Id ايضا حقل نصي وهنا جمع حقل نصي و Id رقم =DSum("[FieldNm]","[tblName]","[id]=" & [id]) هنا للاستعلام: Expr:DSum("[FieldNm]","[tblName]","[id]=" & "'" & [id] & "'") Expr:DSum("[FieldNm]","[tblName]","[id]=" & [id]) بنفس الطريقة تستطيع استخدام Dlookup واي شي احنا في الخدمة اخي بو نادر :: تحياتي

وعليكم السلام ورحمة الله وبركاته قم بتعديل كود الفتح الخاص بك الى : DoCmd.OpenForm "Realisation", , , "[Opérateur]=" & Me.cboUser.Column(0) وقم بتحويل حقل Opérateur الى مربع نص بدل الكومبو لانك لن تحتاجه عند تعطيله ثم اضف في القيمة الافتراضية للحقل:Opérateur =[Forms]![frmlogin]![cboUser] ثم من خصائص بيانات النص اجعل الحقل ممكن = لا ، مؤمن = نعم الشكر والتقدير للاستاذ عبد الفتاح كيرة على هذا الشرح الرائع :: تحياتي waz-Realisation.rar