kha9009lid

الشكر لله اخي واستاذي الفاضل محمد حلبي 🌹 كل عام وانت بخير اخي واستاذي الفاضل محمد سلامة 🌹

الباركود رمز مميز للسلع يسهل عملية ادخال الاصناف وبيعها كما يمكن معرفة البلد المنتج للسلعة بكل سهول ويمكن وضع حقل في تفاصيل الاصناف لبلد الانتاج مثلا 10045886217 علبة 10045886248 كرتون 100 يدل على ان هذا المنتج من الولايات المتحدة الارقام في المنتصف تدل على الشركة المنتجة للسلعة الارقام الاخيرة تدل على المنتج رمز العلبة داخل الكرتون 17 رقم الكارتون 48 واحيان يكون الكرتون يحتوي على مغلفات واظرف 6294003571405 ظرف 6294003571419 مغلف 6294003571218 كرتون والرمز الثلاثي 629 يدل على ان المنتج الإمارات العربية المتحدة الفكرة في ملف الفيديو ان نستخدم عند ترصيد الاصناف وعند البيع رمز الوحدة الاصغر سواء استخدمنا الباركود لقراءة رمز كرتون او مغلف او ظرف ويتم ذلك من الربط بين الكرتون وما يحتوية والرابط يكون الرمز المتشابه والرمز المختلف ورمز مخفي من رقم واحد يختلف في الحالة كرتون عن مغلف او ظرف والعملية تتم بشكل الى بمجرد تمرير السلعة على قارئ الباركود وكل عام وانت بخير تقبل منا ومنك صالح الاعمال اخي واستاذي الفاضل د. محمد حلبي

الرابط الذي اشار الية الاستاذ @اشرف فيه افكار مفيدة وخصوصا تفصيل استاذنا الفاضل @ابوخليل ولكن لم يكتمل الموضوع لعدم رد استاذنا الحلواني لانشغاله بالعشرة الاواخر الله يتقبل منا ومنكم صالح الاعمال على كل حال الفكرة تتركز على جدول الاصناف وكما اشرت سابقا ان الباركود سهل العمل بشكل كبير لكون رمز باركود الكرتون يساوي رمز باركود العلبة والاختلاف في اخر رقمين فقط في الصورة المرفقة عند توريد اي كميات يتم استخدام العنصر الاصغر للصنف في حساب الكميات لو اشترينا 10 كرتون ماء كل كرتون يحتوي على 40 علبة تكون الكمية في المخزن 400 علبة عند البيع لو بعنا علبة واحدة باستخدام باركود العلبة يكون المتبقي 399 علبة والسعر هنا يكون بسعر العلبة ولو بعنا كرتون واحد يكون المتبقي 360 علبة والبيع يتم بسعر الكارتون طبعا توجد حلول وافكار اخرى ابحث في الموقع وستجد الكثير من الحلول الافضل تحياتي

علينا وعليك اخي الحبيب وكل عام وانتم بخير تقبل الله منا ومنكم صالح الاعمال

اتفق مع اخي احمد انظر الصورة

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

هل تقصد انك تريد حساب عدد الايام من بداية العام حتى تاريخ اليوم اذا كان فهمي صحيح جرب التالي =Date()-DateSerial(Year(Date());1;1) اعتذر اساتذتي @kanory و @jjafferr لم اشاهد ردودكم كنت اكتب اوف لاين 🌹

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

الشكر لله سبحانه مع تمنياتي لك بالتوفيق 🌹

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

جرب الان الاقساط.accdb

Requery يقوم بتحديث البيانات من مصدر السجل ويعكس كافة التغييرات التي تمت على السجلات ويعيدك للسجل الاول refersh يحدث البيانات الحالية في النموذج وماتم عليها من تعديل

الطريقة التي وضعها استاذنا الفاضل ابو تراب صحيح واكثر احترافية واليك طريقة اخرى في نموذج الدخول وضعنا مربع نص مخفي اسمه tx2 وجعل قيمته تساوي يمكن الاستغناء عن الحقل المخفي ووضع كود في نموذج Employees يغني عن الحقل ولكن هذه الطريقة اعتقد انها اسهل Me.tx2 = cboUserName.Column(1) في نموذج Employees الحقل نص0 جعلنا قيمته تساوي [Forms]![Login]![tx2] ولاضافة اسم المستخدم للجدولCard_print للحقل user وضعنا في حدث بعد التحديث للحقل emp_id او لاي حقل اخر Me.user = Me.نص0 الملف مرفق ShowUser.accdb

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

وهذا موقع لتحميل ايقونات تنسب الازرار انقر هنا

الاوفيس لديك 2007 ولكن تنسيق الملف لديك 2000 / 2002 ثانيا لا تستطيع ان تغيير خلفية الزر لانه صورة والان قمت بتغيير تنسيق الملف الى 2007 فاحدث ووضعت لك زر واحد باختيار ايقونة صغيرة وليس صورة كاملة للزر ووضعت لك صةرة لكيفية الجمع بين الايقونة والتسمية لزر الامر Database1131.accdb

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

جميع الحلول ممتازة وتؤدي الغرض وانا اعتقد ان تحويل الحقل الى نصي افضل لان طريقة التنسيق تجبرنا على عشر خانات ولو اردنا تسجيل عميل لديه هاتف ثابت 8 خانات يكون قبله صفرين بدون فائدة وايضا لو اردنا تسجيل رقم الجوال كامل 009665xxxxxxxx فلن نتمكن من ذلك

من خلال نموذج الادخال في حدث عند عدم الوجود في القائمة ضع الكود التالي لاخينا الاستاذ @ابوآمنة Dim strSQL As String, X As Integer X = MsgBox("هذة المدينة ليست من ضمن القائمة .. هل ترغب في إضافتها؟", vbYesNo + vbDefaultButton1) If X = vbYes Then strSQL = "Insert Into tbl_city (city) values ('" & NewData & "')" CurrentDb.Execute strSQL Response = acDataErrAdded Else Response = acDataErrContinue End If عدلت اسم جدول اسماء المدن واسم المدينة الى الانجليزي الاسم العربية مع اعتزازنا وحبنا للغتنا الا انها تسبب اشكال مع محرر الاكواد الملف مرفق Database2111.accdb

بالتوفيق اخي عبد الله والشكر لله سبحانه

نعم كل شي ممكن في اكسس نستبدل الكود السابق بكود فلترة لحقلين Dim k As String Dim x As String k = "taxt_name1 like '*" & city & "*'" x = "[year_1] like '*" & cmbLocation & "*'" Me.frmOrder.Form.Filter = k & " and " & x Me.frmOrder.Form.FilterOn = True بالامكان الفلترة بالعام فقط او بالمدينة فقط او الفلترة بالحقلين الملف مرفق مع رجاء التقيد بتعليمات الموقع سؤال واحد حتى مايزعلوا علينا المشرفين ويغلقوا المشاركة عمل الفراز(1).accdb

وايديك استاذ @فايز.. ومبارك عليك الشهر الحقيقة كنت مستعجلة وعملت الكود في زر الفراز وايضا في حدث بعد التحديث للقائمة المنسدلة cmbLocation وكان الافضل في حالة تكرار كود معين ان نشير اليه فقط بدون اعادة كتابتة مادام الامر ضمن نفس النموذج اي ممكن استبدال الكود للقائمة cmbLocation cmdFilter_Click بدلا من Dim myfilter As String myfilter = "[year_1]='" & [cmbLocation] & "'" Me.frmOrder.Form.Filter = myfilter Me.frmOrder.Form.FilterOn = True ولا توجد مشكله في ترك الامر بدون تعديل الملف بعد التعديل عمل الفراز.accdb

جرب المرفق لعله يكون المطلوب عمل الفراز.accdb واذا ترغب تشغيل الفرز فقط من خلال زر الامر الفراز احذف الكود الموجود في حدث بعد التحديث لمبربع التحرير والسرد cmbLocation

رائع استاذنا الفاضل ولكن عند فتح النموذج تكون النتيجة Record 1 Of 1 Records مهما كان عدد السجلات وبعد التنقل للسجل التالي يعطي النتيجة الصحيحة وبعد اضافة Me.RecordsetClone.MoveLast قبل الكود تكون النتيجة Record 1 Of 4 Records مطابق للعدد الكلي للسجلات

لا اعلم اذا كان فهمي صحيح جرب الملف المرفق Database1121.accdb