حسين العربى

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

السلام عليكم ورحمه الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام لدي هذا الكود الشرط فيه انه لو اول رقم في الحقل =7 يعطيني رساله If Left(Me.serh_Barcod, 1) = 7 Then طيب لوحبيت اعدل الشرط انه يكو ن اول ثلاث ارقم في الحقل = 7 فما التعديل وشكرا للعلم انا حاولت وبحث

ده الكود بتاع استاذي الفاضل احمد If Left(text1, 1) = 7 And Me.text2 = 7 Then MsgBox "ÊäÈíå" 'Me.Undo DoCmd.CancelEvent End If وده الي اعتمدته عندي لاني ده هو المطلوب

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

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

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اوريد رسالة تنبيه بشرطين في زر امر اختبار الشرط اذا كان الرقم الذي في حقل text1 يبدأ برقم ( 7 ) والحقل text2 يوجد به رقم ( 7 ) يعطي رسالة تنبيه وشكرا اليكم مثال للتطبيق عليه test1.accdb

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

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

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

استاذي الفاضل انا لو علي الاستعلام كنت حليت الموضوع بس انا عاوز عن طريق كود انا ممكن كنت عملت استعلام تحديث لحقل الكمية الي بيسجل 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 جلب حقل الكمية للباركود الذي سعر كذا طبعا المبلغ هيكون في حقل في النموذج مثل الباركود