jjafferr

وعليكم السلام نفترض ان حقل الادخال هو A وحقل النتيجة هو B ، فيصير الكود: عند ادخال رقم اكبر من 2000 و اصغر من 5000 ظهور رقم '2 واذا اكبر من 5000 و اصغر من 10000 ظهور رقم '3 if me.A>2000 and me.A <5000 then me.B=2 elseif me.A>5000 and me.A <10000 then me.B=3 endif جعفر

حياك الله اخبرني بالضبط ماذا تريد ، وماذا فعلت ، وياريت مرفق صغير علشان افهم جعفر

ووالديك ان شاء الله هذه هي الطريقة الابسط في عمل الكود ، وبدون اخطاء (لأنك تتعامل مع متغير واحد فقط في كل سطر) ، والاسهل انك شوي شوي تجرب سطر وتضيف آخر ، والارتب اذا بعدين اردت تغير شيء في الكود ، فتعرف وين تروح ، وتعرف انه ما بيأثر على الشروط/الاسطر الاخرى يعني شطارتي مو في الكود ، وانما في الترتيب المرتب جعفر

وعليكم السلام http://www.utteraccess.com/forum/index.php?showtopic=1992076 رقم 63 http://www.helenfeddema.com/Code Samples.htm وتستطيع ان تنزل كود البرنامج ايضا http://www.skrol29.com/us/vtools.php واللي كان افضلهم http://www.rickworld.com/products.html جعفر

وعليكم السلام خليك في النموذج مال الكود اعلاه في وضع التصميم ، وشاشة الكود مغلقة ، انقر على الكيبورد Ctrl+G ، بتدخل الكود ، وبيكون في نافذة صغيرة في اسفل شاشة الكود ، في الكود اعلاه ، احذف الشرطة من امام Debug.print ، ارجع للنموذج ، شغله ، وخليه يعطيك النتائج ، ارجع لشاشة الكود ، وشوف الشاشة في الاسفل شو مكتوب فيها جعفر

جرب هذا المرفق Muscat_Browsing_csv_all.zip

وعليكم السلام اعتقد بأني استاهل علامتين بس علشان هذا الترتيب ، واما اذا الاجابة صح ، فنور على نور criti = "[Num_brnamge] =" & Forms![Forme_Fatora].[Num_brnamge] criti = criti & " And" criti = criti & " ([service] Between 1 and 3 or [service] Between 6 and 8)" criti = criti & " And" criti = criti & " [Independent_Facilities] Between 1 and 3" 'Debug.Print criti Me.peoplev = DCount("[service]", "Tabil_Visitors", criti) Me.peoplev2 = DCount("[service]", "Tabil_Visitors2", criti) جعفر

وعليكم السلام تستطيع تحقيق ذلك عن طريق استعلام تحديث ، ولكن وقبل ان تبدأ العمل ، اعمل نسخة من برنامجك ، لأنه اذا صارت لك مشكلة ، تقدر ترجع لبياناتك . جعفر

وعليكم السلام هذه طريقتي في جميع برامجي: وهناك تحديث لكود الربط ، ويمكن انزاله من هنا http://www.jstreettech.com/files/JStreetAccessRelinker2.zip جعفر

وعليكم السلام نعم ، الموقع كان به تحديث قبل قليل ، ولكن الان كل شيء تمام ومن اليمين لليسار ، هذا اعداد في الاكسس . جعفر

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

يا اخوي يا شفان ليش تعطي جواب طويل لما تقدر تعطي جواب قصير ليش هذا الكود الطويل If Len(Me.Text1 & "") = 0 Then Me.Text2.Visible = False Else Me.Text2.Visible = True بينما يمكنك استعمال الكود الاقصر Me.Text4.Visible = IIf(Len(Me.Text6 & "") = 0, -1, 0) . بس يا اخوي ابو سعد ، ترى كود اخوي شفان اسرع في التنفيذ جعفر

وعليكم السلام هذا معناه ان الحقل هذا هو آخر حقل في النموذج ، واعدادات النموذج عندك لقراءة "جميع السجلات" ، فيجب تغيير الاعدادت الى قراءة "السجل الحالي" . جعفر

في الرابط الذي انا اشرت اليه ، استعملت الخط code39 في حقل نص عادي ، الخط بحجم 28 ، وتم طباعة الباركود على الطرف الاقصر من الهوية ، وبعد تغليف الهوية Lamination ، استعملنا الاجهزة التالية لقراءة الباركود : 1. جهاز خاص لقراءة الباركود ، مثل هذا ، وهو سريع جدا في قراءة الباركود وبأي اتجاه 2. اثنين من برامج قراءة الباركود لهواتف الاندرويد Android المجانية من سوق اندرويد ، 3. احد برامج قراءة الباركود لهواتف اي فون iPhone المجانية من سوق ابل. وجميع الاجهزة اعلاه قرأت الباركود بكفاءة وبدون اخطاء ، كما وتم طباعتها على طابعة اوراق حرارية Thermal (مثل الطابعات في السوبرماركت) ، وكذلك تم قراءة الباركود بالاجهزة اعلاه ، وبكفاءة وبدون اخطاء جعفر

وعليكم السلام 1. ياريت تعطينا الرابط ، حتى اعرف خلفيته ، واستعمل الكود كاملا لتغييره حسب طلبك ، 2. الاسطر الخمسة الاولى في الكود هي التي تقوم بالتحقق من هذا الملف ، يمكنك حذفها للتجربة ، 3. ارى في الكود انه تم اغلاق صفحة الاكسل ، ولم يتم اغلاق برنامج الاكسل ، مما يؤدي الى قفل ملف csv لأنه رهن العمل (ادخل في Task Manager وشوف اذا الاكسل مفتوح ، اغلقه ، وبعدين بتقدر تحذف الملف رقم2) ، 4. جرب اللي اخبرتك اعلاه ، واخبرنا النتيجة ، وعليه نقدر نقوم بالخطوة التالية ، وهو تغيير الكود ليقوم بالعمل تلقائيا جعفر

وهذه تجربتي مع الباركود ، كجزء من عمل الهويات جعفر

وعليكم السلام هذه ليست رسالة خطأ ، وانما هناك حقل (اسم الحقل واسم النموذج في دائرتك الزرقاء) يحتاج ان تكون فيه القيمة ، وانت لم تُدخل القيمة ، فالبرنامج وقبل ان ينفذ طلبك ، محتاج لهذه القيمة. فإما القيمة موجودة في الحقل (وهذا المفروض) ، او ان تُدخل القيمة هنا (وهذا خطأ) ، او انك تلغي طلب هذه الرسالة (وقد يكون هذا الطلب في استعلام يقوم بإضافة /تعديل / حذف حسب اسم المستخدم). جعفر

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

اخي أوس شو الفرق بين جدولك وجدول اخونا عزيز؟ جعفر

وعليكم السلام اخي عزيز 1. فتحك موضوع جديد لنفس السؤال لن يساعد في حصولك على جواب ، فالافضل ان تستمر في السؤال في الموضوع السابق ، لهذا السبب تم دمج الموضوعين. 2. اي اقتراح ستحصل عليه هنا ، يتعلق بالبرمجة ، والبرنامج المرفق ما شاء الله عليه ، مرتب ، فإذا لم تكن المبرمج ، فالافضل ان تتجه للمبرمج ليحل لك المشكلة. 3. هذا المنتدى ليستفيد منه الجميع ، فإذا تمت المراسلة على الخاص ، فلا فائدة من المنتدى!! كما ان الجميع هنا متطوعين بوقتهم لمساعدة الجميع ، ويتطوعون بوقتهم قدر استطاعتهم!! 4. اذا اردت ان يساعدك احد الاعضاء بأجر مادي ، ويكون الاتصال بينكم مباشرة ، فرجاء وضع سؤالك في هذا المنتدى في قسم اعلانات شخصية للإعضاء جعفر

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