ابو جودي

Dim i As Long Dim Countnamex(0 To 1) As Integer Countnamex(0) = DCount("[city]", "TableA", "[namex]=[Forms]![main]![namex]") Countnamex(1) = DCount("[city]", "TableB", "[namex]=[Forms]![main]![namex]") i = 0 Do While (i < UBound(Countnamex) + 1) i = i + 1 Loop If Countnamex(0) = 1 Then city = DLookup("[city]", "TableA", "[namex]=[Forms]![main]![namex]") If Countnamex(1) = 1 Then city = DLookup("[city]", "TableB", "[namex]=[Forms]![main]![namex]") If Countnamex(0) = 0 And Countnamex(1) = 0 Then city = "غير موجودة" استخدم هذا الكود

يبدو انك نسيت المرفق

بعيدًا عن السراب اللامع الذي يركض خلفه أغلب البشر إن تحظى بأشياء قليلة صادقة خير لك من أن تحظى بأشياء كثيرة مزيّفة إن تهتم بالقيمة لا الكَم وبالجوهر لا المظهر وأن تكون كما أنت فتحمل صوتك الخاص وتكون لك رؤيتك التي تُعبّر عنك فهذا هو مجّدك الحقيقي

استاذ @محمد طاهر "أحياناً ليس كل مانشعر به نستطيع البوح به، فبعض الشعور ينحصر بين القلب واللسان ، وجزء منه يُحتجز في أعيننا، وفِي هذه اللحظة نصاب بالذهول من شدة الفرح وتضيع منا سحر الكلمات" جعلكم الله ممن صام فاتقى .. وقام فارتقى .. ومن ينابيع الرحمة استقى أسأل الله العظيم بكل ماتحمله هذه الساعات من فضل أن يجعلكم من أسعد السعداء .. وأن يتم عليكم النعم والهناء كما أسعدتم قلوبنا .. كل الشكر والتقدير والامتان بالجميل لحسن كرمكم واستضافتنا معكم فى هذا الصرح الشامخ

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

وبعد تعب وتحضير مثال وتضييع وقت تجد ردا يصيبك بالاحباط ولو قلت للاخ الكريم صاحب المسألة حتى لو لم تجبه انت ان من قدم المساعدة لم يضرب الودع حتى يقف على مرادك ويقدم لك ما تريد يرد عليك وتكون انت المخطأ كيف ترد بمثل تلك الكلمات ويتعقدون انك تتكبر عليهم او او .... لذلك انا اطلب المرفق دائما ولا احب الرد على المجهول لاننى اشبهه بمن يحرث فى الماء فانه يحرث بلا جدوى فلن يجنى غير التعب بوجع عام ضع المغيار الاتى فى استعلامك على حقل التاريخ Between [start dat] And [end date]

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

ما فى اجمل منك استاذ @عبد اللطيف سلوم بس شوف هذا المرفق ماشاء الله الوقت يجرى بســــــــرعه وممكن عمل ايقاف مؤقت واستكمال على الوقت ذاته والتسجيل فى جدول DB stopwatch.accdb

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

مشكلة الرصيد السابق الملون بالون الاصفر في التقرير هههههههه انا صائم وارى كل شئ باللون الاصفر الان لذلك ارفق بنا وهات المرفق علنا نرى الدنيا باللون الاخضر بعد ان نطمأن على المرفق

عروستــــــــــــــــــــــــــــــــــــــى انا لم افهم ممكن توضح عملى مثال على كل طلب وبم تقصد ينقل المدينه ؟ اتمنى منك الاخذ فى الحسبان اننا صائمون ههههههههههه

ممكن سؤال هو حضرتك اللى عامل البرنامج والاكواد دى والا بس انت محتاج تعدل ؟ Copy_of_Shopping_Stars_(Final).zip

المرفق لو تكرمت

رااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااائع جدا جدا جدا جدا جدا جدا جدا جزاااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااكم الله خيــــــــــــــــــــــــــــــــــــــــــــــــــــــــرا

https://docs.microsoft.com/en-us/previous-versions/office/developer/officetalk2010/ff700513(v=office.11) https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee691831(v=office.14)

التموين للوحدات العسكرية.mdb

انتبه انت الان فى قسم الاكسس التابع لمنتديات اوفيسنا

افعل ما فى الخير يسدى

Private Sub Btn1_Click() Call Btn2_Click End Sub Private Sub Btn2_Click() DoCmd.Close DoCmd.OpenForm "نموذج2" End Sub Btn1 اسم الزر الاول Btn2 اسم الزر التانى

Public Function OpeneApp() On Error Resume Next If FileExist = True Then If countopen = 0 Then 'MsgBox ".. سوف يتم فتح البرنامج الان" 'هذه الرسائل فقط للتأكيد يمكنك حذفها OpeneApp = Shell(StrPath) countopen = 1 Dim StrSql As String StrSql = "DELETE tblprograms.* FROM tblprograms;" DoCmd.RunSQL StrSql ElseIf countopen <> 0 Then 'هذه الرسائل فقط للتأكيد يمكنك حذفها 'MsgBox "... تم فتح البرنامج من قبل ولن يفتح مرة اخرى الا بعد اغلاق القاعدة وفتحها" Exit Function End If Else 'هذه الرسائل فقط للتأكيد يمكنك حذفها 'MsgBox "لا يوجد ملفات او برامج لفتحها مع النموذج عند الفتح" Exit Function End If End Function

رائع

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

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

لا تعطنى سكمة ولكن علمنى كيف اصطاد السمك انت مصر على ان تطلب السمك فقط