صالح حمادي

تفضل أخي حلبي و شكرا على الملاحظة تأثيرات النماذج.rar

شكرا أستاذ شيفان

السلام عليكم و رحمة الله تعالى و بركاته: أخوتي الكرام حياكم الله لي إستفسار بسيط إذا أمكن ذلك. أريد معرفة طرق و كيفية الترقية في المنتدى و ما هي الأشياء التي تحسب للعضو من أجل ترقيته و ما هو عدد المشاركات التي يجب أن يصل إليها حتى يتم ترقيته من درجة إلى أخرى حياكم الله و جزاكم خير الجزاء على هذا المجهود الجبار الذي تقومون به

و هذا هو شكل البرنامج بعد إضافة بعض الأوامر للنماذج الفرعية تأثيرات النماذج.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 تقوم بالتأكد من وجود المجلد في المسار المحدد من عدمه