صالح حمادي

و هذا هو شكل البرنامج بعد إضافة بعض الأوامر للنماذج الفرعية تأثيرات النماذج.rar

السلام عليكم و رحمة الله تعالى و بركاته : أخوتي الكرام يسرني أن أضع بين أيديكم هذا المثال الذي قمت بتصميمه من أجل إضافة تأثيرات جذابة للنماذج و أيضا إستغلال المساحات. أنا بإنتظار ملاحظاتكم من أجل تحسين هذه الفكرة. و ذلك بإستخدام الكود التالي: Me.اسم العنصر.Move Left:=نقطة بداية العنصر من اليسار, Top:=نقطة بيداية العنصر من الأعلى, Height:=إرتفاع العنصر, Width:=عرض العنصر تأثيرات النماذج.rar

شكرا جزيلا بارك الله فيك

يمكنك إنشاء إستعلام جدولي من خلاله تستطيع أن تجعل قيم أحد الأعمدة إلى عناوين حقول

و عليكم السلام عليكم و رحمة الله تعالى و بركاته: أستاذي جعفر حياك الله و سعيد بوجودك معنا. نقوم بكتابة هذا الكود في مصدر عنصر التحكم لمربع النص مع تغيير الشروط حسب الحاجة لكل مربع نص =DCount("*";"[Candidat]";"[sexecand]='ذكر' and [TypExam]='الثالثة إعدادي أحرار' and [DESETAAR]='الاحرار' ")

العفو أخي

تفضل التعديل يا أخي محمود: و اتبع شرح الصور تضغط على إدراج صورة فتظهر لك الصورة الثانية تبحث عن مكان الصورة و تختارها ثم تضغط على فتح فيظهر مسار الصورة في مكانه و تظهر الصورة أيضا في مكانها الصورة الثانية: 1988.rar

السلام عليكم: تفضل هذا الملف ربما تجد به ما تحتاج. لقد وضعت بالجدول حقلين: id و ids بالنسبة للحقل id سوف يسجل به الرقم بشكل عادي 1 2 3 ...الخ و ذلك من أجل إستعماله في الفرز و التصفية فيما بعد و أما الحقل الثاني ids سوف يسجل به الرقم بهذا الشكل: 0001-2017 و هذا من أجل ظهوره في التقارير و النماذج مع العلم أن id لا يظهر في النماذج و التقارير . جرب المرفق و أطلع على الجدول و لاحظ النتيجة هذا و الله أعلى و أعلم الترقيم التلقائي.rar

تفقد مسار الصورة جيدا فأنا يشتغل البرنامج عندي بشكل ممتاز

تفضل: جمعية خيرية 2007.rar

تقوم بإنشاء تقرير و تجعل مصدر البيانات فيه هو الإستعلام req تفضل التعديل تصفية بواسطة كومبو بوكس.rar

تآمين يا رب العالمين و لك بالمثل أخي محمود جمعية خيرية 2007.rar

تفضل التعديل الحجز 2016.rar

نعم بإمكانك إضافة عوامل تصفية بزيادة الكمبوبكس

تفضل التعديل المطلوب تصفية بواسطة كومبو بوكس.rar

السلام عليكم و رحمة الله تعالى و بركاته: يمكنك ذلك بإستخدام الدالة dcount. و لقد قمت بالتعديل على ملفك تفضل Database1.rar

تفضل أخي محمود هذا هو طلبك و لا تنسى أن تذكر جميع أعضاء الجمعية بالدعاء لي و لوالدي لعلى الله يتقبل منكم الدعاء جمعية خيرية 2007.rar

آمين يا رب العالمين و لك بالمثل

تفضل و سوف أكمل الباقي فيما بعد: جمعية خيرية 2007.rar

أخي سامي يجب أن تضع سؤالك في موضوع جديد فهذا يخالف قوانين المنتدى و إن شاء الله سوف نبحث لك عن حل

السلام عليكم و رحمة الله تعالى و بركاته: If DCount("[telephone]", "customers", "[telephone]= Text1 ") = 0 Then MsgBox "هذا الرقم غير موجود" ElseIf DCount("[telephone]", "customers", "[telephone]= Text1 ") = 1 Then DoCmd.SearchForRecord acDataForm, "m_cust", acFirst, "telephone =" & Me.Text1 Else MsgBox "هذا الرقم مكرر" DoCmd.SearchForRecord acDataForm, "m_cust", acFirst, "telephone =" & Me.Text1 End If و هذا هو المرفق الحجز 2016.rar

استعمل هذا الكود: Dim curPath As String curPath = CurrentProject.Path & "\الأرشيف" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) Else MsgBox "الملف موجود مسبقا" End If التعليمة dir تقوم بالتأكد من وجود المجلد في المسار المحدد من عدمه

يا ريت ترفق مثال في الوورد أو حتى صورة على كيفية شكل التقرير يعني كيف تريد أن يكون هذا التقرير لكي تتضح الصورة أكثر

السلام عليكم و رحمة الله تعالى و بركاته. هذا الكود يقوم بحذف كائنات قاعدة البيانات: DoCmd.DeleteObject ObjectType, "NameObject" ObjectType: نوع الكائن نموذج أو جدول أو تقرير ... NameObject: اسم هذا الكائن

السلام عليكم و رحمة الله تعالى و بركاته: استعمل الكود بالشكل التالي: me.id = DMax("Val(id)", "customers")