ابو جودي

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

اتفضل جرب وانا اسف انا اواجه صعوبة بالغة عند ضبط الاكواد مع المسميات العربية المستخدمين (2) (2).accdb

انتظر

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

هات المرفق

ضع مرفق بالمشكلة اذا تكرمت

جرب كده المستخدمين (2) (2).accdb

مشاء الله مرزق انت تكتب سؤال يأتيك بدل الحل ثلاث حلول

2- كتابة الاستعلام داخل المحرر Dim Strsql As String Strsql = "DELETE TableA.* FROM main INNER JOIN TableA ON main.namex = TableA.namex;" DoCmd.SetWarnings False DoCmd.RunSQL Strsql DoCmd.SetWarnings True

1- DoCmd.SetWarnings False DoCmd.OpenQuery "Dell" DoCmd.SetWarnings True

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

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

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