حسين العربى

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

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

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

اخي الفاضل نفس مثالك بس اجعل حقل الكمية null انا جربت الكود ماظبط يعطيني احمر معناه خطأ Nz([QUNTY]);0)and([UNT_ID]);7)then

الخيار الاول لايظبط مع لشئ خاص بالبرنامج عندي يطول شرحه الخيار الثاني ممكن تكتبلي الكود كامل لو تكرمت لانه ماظبط معي

معلش اخي شوف ردي الاخير بعد التعديل علي

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

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد رسالة تنبيه في حقل البحث في حدث بعد التحديث / الشرط /في حالة حقل الكمية = 0 / وحقل رقم الوحدة = 7 يظهر لي رسالة وجزاكم الله خيرا

الف شكر استاذي الفاضل jjafferr

استاذي الفاضل jjafferr انا عاوز اعمله اقصد نفس الكود ده A = Nz(DLookup("[SELLS_PRICE]& '|' & [item_name]", "POS_MASTER", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'"), "|") x = Split(A, "|") Me.SELLS_PRICE_2 = x(0) Me.ITEM_NAME_2 = x(1)

انت والله استاذي أحمد الفلاحجى ومعلمي وانا والله ما اقصد شي ولك مني كل التقدير ولاحترام واخر سؤال مني في نفس الموضوع لو هنستدعي من نموذج الي نموذج اخر مثل الكود هيكون ازاي Forms!forms1!serh_Barcod = DLookup("[ITEM_BARCODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'") Forms!forms1!item_no = DLookup("[ITEM_CODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'")

انا قلت برضو كده بصراحه تسلم ايدك استاذي الفاضل jjafferr والشكر كل الشكر لاستاذي الفاضل أحمد الفلاحجى والله ماقصر وكوده ممتاذ بس انا من طبعي بحب الكود يكون صغير / خير الكلام ما قل وذل 😂 والف شكر للجميع وجعله الله في ميزان حسناتكم

استاذي ومعلمي الفاضل jjafferr بعد تجربة الكود بعد تعديل حضرتك عند وضع باركود صحيح يجلب لي البيانات اما لو وضعت باركود غير صحيح يظهر لي خطاء ملحوظه انا بستدعي البيانات من استعلام وليس من جدول هل هذ هو السبب ام ماذا اليكم المرفق بعد اخر تعديل test_102.rar

بالنسبه للكود السابق الخاص بحضرتك استاذ jjafferr انا طبقته علي مرفق تجريبي عند وضع رقم غير موجود يعطي خطأ في الكود اليك المرفق جرب بنفسك انا طبعا ممكن احط هذا الكود On Error Resume Next لمنع اظهار الخطأ بس انا مش عاوز كده عاوز لو الرقم مش موجود الحقول تسير فاضيه مسل هذ الكود Me.item_no = DLookup("[ITEM_CODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.serh_Barcod & "'") Me.deskwn1 = DLookup("[deskwn1]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.serh_Barcod & "'") انا مجربه عندي والمرفق في مثال لكود حضرتك ومثال للكود الثاني انظر الفرق test_102.rar

استاذي الفاضل jjafferr بخصوص هذا الكود انه ممتاذ جدا انا جربته فوق الممتاز وفر علي جهود كثيره زادك الله من علمه وجعله في ميزان حسناتك Dim x() As String A = DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn") x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9)

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

شكرا لك استاذي الفاضل أحمد الفلاحجى علي اهتمامك لاكن الكود الاول والثاني بهم خطأ test_1.rar

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

UP

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد تعديل في كود التكرار / اضافة شرط اخر وهو تطابق السعر مع الباركود بمعني الباركود الي يكون سعر كذا Dim i As Integer i = DCount("ITEM_BARCODE", "tabol102", "ITEM_BARCODE = forms!CALCULATOR!serh_Barcod") If i > 0 Then وكذلك نفس الشي في الكود هذا وهو جلب كمية الباركود هذا الذي سعره كذا Me.EDET_QOTY = DLookup("[Qote_item]", "tabol102", "[ITEM_BARCODE]='" & Me.serh_Barcod & "'") ولكم جزيل الشكر

up

برنامج ارشيف صادر وارد.rar

لو احد من الاخوه الافاضل يعطينا كود لاخفاء البرنامج من Task Manager قائمة Processes يبقي كده تمام

رابط الفيديو

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