سمير1404

الله يا ابو جودي ،،،

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

صراحة انتم رجعوتني الى زمن جميل سابق في هذا الموقع 

الله يحفظكم اجمعين 

32 دقائق مضت, ابو جودي said:

وهذه فكرتى المتواضعة من خلال وظيفة داخل وحدة نمطية

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

صراحة حاولت ولكن لم استطع 

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

علما انه يظهر لدي خطاء في الكود استاذ عمر اعتقد لان النموذج مبني على استعلام بدون ادخال بيانات هنا الخطاء    DoCmd.GoToRecord , , acNext

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

هل ممكن يكون كذا 

If Me.text1 Like "*" & "مصر" & "*" Then
    Me.text2 = text1 + "جمهورية"
ElseIf Me.text1 Like "*" & "السعودية" & "*" Then
      Me.text2 = text1 + "المملكة"

نعم اخوي عمر صدقت كلامك صحيح بالضبط انا ارتد ان اصل الى الحل لان الاحتمالات الموجودة عندي هي محددة لا تخرج عن 20 احتمال تقريبا

النموذج مسمتمر الكود وظيفته يقراء مربع النص 1 للجميع ويضيف الكلمة المناسبة في مربع النص 2 في البداية مثلا مصر في مربع النص 1 تنسخ بالكامل وتضاف في مربع النص2 ويكون قبلها كلمة جمهورية مصر العربية وهكذا للبقية اعتقد انه يلزم استخدام دالة الشرط فمصر جمهورية والسعودية مملكة واالاردن مملكة وهكذا ،، لعلي اوصلت المعلومة 

تحية طيبة للجميع وتقبل الله طاعاتكم

اتمنى ان اجد الحل لديكم

 لدي مربع نص 1 ومربع نص 2 وزر امر 

اريد عند الضغط على زر الامر ان يتم تلقائيا تعبئة مربع النص الثاني بناء على اول كلمة فقط من مربع النص رقم واحد 

مثلا اذا كان مربع النص رقم 1 يوجد به عبارة مصر العربية  يكون مربع النص 2  عند الضغط على زر الامر جمهورية مصر العربية 

وهكذا مثلا العربية السعودية عند الضغط على زر الامر يكون مربع النص 2 المملكة العربية السعودية 

فيكون قراءة او كلمة فقط في مربع النص 1

db2_text.mdb

يا هلا وغلا بالاستاذ الغالي جعفر الله يحفظك كم استفدت منك الكثير ومنذ وقت طويل جدا انت من البقية الباقية الرائعة والجملية

السلام عليكم 

كيف يمكن عمل قائمة بعرض الاسماء ومن ثم اختيار الاسماء المحددة واضافة بيانات لكل سجل دفعة واحدة

ولكم جزيل الشكر 

اقدم جزيل شكري لكم اساتذتي الكرام زادكم الله من فضله 

وممتن لاخي الغالي جعفر لانه في الحقيقة افاد الكثيير وقدم الكثير لي ولغيري جزاكم الله خير

ما قدرت استفيد من الموضوع لاختلاف نسخة الاوفيس 

لعلي اجد الحل 

شكرا لتكرمك بالرد استاذي 

المرفق ادناه 

المطلوب كيف اعمل استعلام يظهر فقط اسماء كل من له 3 تواريخ متتالية فقط بشرط التتالي للتاريخ لعلي اوصلت الفكرة جزاك الله خير

t_fdate.mdb

السلام عليكم 

تكرما من الاساتذة الكرام 

كيف اعمل استعلام لعرض سجل بشرط ان يكون التاريخ متتالي ثلاثة ايام مثلا مثال 

15 -16 -17 بشرط تكون ثلاثة ايام متتالية 

بحثت ولم اجد اجابة وجزاكم الله خير 

جزاكم الله خير 

ولكن يوجد لدي ملاحظة بعد تطبيق المثال الملفات التي تظهر تكون فقط امتداد واحد دون الاخر يعني اما ان يظهر 

xlsx   او  

xls علما اني استخدم عدة اصدارت من الاوفيس

السلام عليكم 

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

ولكم الشكر

احسن الله اليك ابا جودي 

وجزاك الله خير ونفع بك 

طبعا لم نطلب ضرب الودع كما تقول او غير ذلك 

كلامي كان واضح فيه الطلب واشكر الاخ ويرجى ان يكون الاسلوب منك افضل من ذلك 

اشكر لكم تفاعلكم 

ولكن ليس هذا هو المطلوب 

المطلوب هو ايا كانت القيمة اذا تغير لون مربع النص الى احمر فيتم اختيار كلمة لا من القائمة واذا كانت خلفية مربع النص باللون الاخضر فيتم اختيار كلمة نعم في القائمة 

طبعا مربع النص يتغير لونه حسب نتيجة عملية حسابية موجودة 

السوؤال كيف اجعل القائمة تتغير قيمتها مع تغير لون مربع النص

لا استغني عن كرمك

هل ممكن ترسل الكود وفي اي حدث يتم وضعه وفقك الله 

ابو جودي احتاج ان يكون كود 

بالنسبة لاستاذ سيمو ياليت تتكرم ويكون المرفق نسخة اكسس 2003

السلام عليكم 

الاخوة والاساتذة الكرام 

هل هناك طريقة يمكن من خلالها تحديد قيمة في قائمة منسدلة بناء على لون نص مثال

لدي مربع نص محدد بتنسيق شرطي يتغير لونه الى الاحمر والاخضر بناء على النتيجة الظاهرة داخلة 

المطلوب هو / يوجد قائمة منسدلة بخيارين  الاول كلمة نعم و لا 

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

جزاكم الله خير ونفع بكم

ياليت كرما يتم ارفاق المثال ب اصدار 2003 لتعم الفائدة وفقكم الله

في ٢٩‏/٣‏/٢٠١٧ at 18:36, Shivan Rekany said:

استأذن من استاذنا ابو خليل على المداخلة
اتفضل ما طلبت
للعلم انا غيرت اسماء الحقول من number الى number1
ومن code الى code1
لان تلك الاسماء محجوزة لكي يتجنب من الاخطاء

واتفضل استخدمت هذا الكود

Private Sub f_date_AfterUpdate()
On Error Resume Next
If Me.number1 <> 0 Then
Me.Undo
Exit Sub
End If
If DCount("number1", "tp1") < 1 Or IsNull(DMax("number1", "tp1", "[f_date]=#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#")) = True Then
        Me.number1 = 1
    Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1
        Else
    Me.number1 = DMax("number1", "tp1", "[f_date] =#" & Format(Me.f_date.Value, "dd/mm/yyyy") & "#") + 1
Me.code1 = Left(Right(Me.f_date, 2), 4) & "\" & Format(Me.f_date, "mm") & "\" & Format(Me.f_date, "dd") & "-000" & Me.number1
End If
End Sub

واليك ملفك بعد تعديل

واذا ما فهمت من الكود راح نشرح لك باذن الله

تقبل تحياتي

db9790.rar

الأستاذ شفان لك كل الشكر و التقدير على المداخلة الكريمة المفيدة واجزل الشكر و الثناء موصول للاستاذ ابو خليل 

هل ممكن ان يكون ذلك حتى على التاريخ الهجري ايضا

لانه عند تجربة التاريخ الهجري لم تكن النتيجة سليمة كما هو الحال في استخدام التاريخ الميلادي

عجزت فعلا عن الوصول لحل مثل ذلك والبركة فيكم تجودون علينا من علمكم الكريم 

3 ساعات مضت, ابوخليل said:

لو شرحت  الفكرة التي تريد تطبيقها   ، فقد نجد حلول أخرى مختلفة

شكر الله لك استاذ ابو خليل على كريم تواصلك دايم نستفيد منك 

المثال المرفق موضح بداخله المطلوب حاولت جاهداً ان اتوصل لحل بناء على المثال الذي تكرمت انت به ولم اوفق ذلك 

هناك اربع حقول 

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

وفي اليوم التالي او عند ادخال رقم جديد في حقل التاريخ يبداء العد من جديد ب 1

في حقل الكود هذه اضافة اتمنى التكرم بالمساعدة فيها 

بحيث يكون حقل الكود عبارة عن السنة الحالية والشهر واليوم ثم - الرقم

db9790.rar

20 ساعات مضت, ابوخليل said:

غير في هذا السطر فقط :

prtyr = Right(DatePart("yyyy", Date), 2)

ليصبح بعد التعديل هكذا :

prtyr = DatePart("d", Date)

 

بارك الله فيك وفي بقية الأخوة ولكن لو تسمح نتزيد منكم  كيف لو اردت ان يتجدد التاريخ بناء على حقل للتاريخ وليس على تاريخ الجهاز على اعتبار ان اسم الحقل s_date