اضافة شرط اخر في كود التحقق من التكرار وكود جلب قيمة عن طريق DLookup

**حسين العربى** · مارس 6, 2020

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

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

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 & "'")

ولكم جزيل الشكر

تم تعديل مارس 6, 2020 بواسطه حسين العربى

**حسين العربى** · مارس 7, 2020

UP

**jjafferr** · مارس 7, 2020

وعليكم السلام 🙂

هكذا تضع اكثر من شرط ، وببساطة 🙂

جعفر

**حسين العربى** · مارس 7, 2020

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

اكون صريح معاك عنا دخلت علي المشاركة ولاكن ما عرفت اطبقها عندي

فلو تكرمت ممكن تطبقو عندي

انا الي محتاجه في الكود الاول DCOUNT تكرار الباركود الذي يكون مبلغه كذا طبعا المبلغ هيكون في حقل في النموذج مثل الباركود

والكود الثاني Dlookup جلب حقل الكمية للباركود الذي سعر كذا طبعا المبلغ هيكون في حقل في النموذج مثل الباركود

**أبوبسمله** · مارس 7, 2020

بعد اذن اخى واستاذنا جعفر

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

اخى الفاضل حسين

انت لم توضح لنا اسم الحقل وهل هو رقمى ام نصى زلم ترفق مثال

عالعموم بفرض ان اسم الحقل price ونوعه رقمى جرب التعديل التالى وان شاء الله يشتغل معك

DCount("ITEM_BARCODE", "tabol102", "ITEM_BARCODE = forms!CALCULATOR!serh_Barcod  and [price]= forms!CALCULATOR!price")

Me.EDET_QOTY = DLookup("[Qote_item]", "tabol102", "price=" & price & and [ITEM_BARCODE]='" & Me.serh_Barcod & "'")

ان شاء الله يشتغل تمام معك جرب ووافنا بالنتيجه

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

**حسين العربى** · مارس 7, 2020

شكرا لك استاذي الفاضل أحمد الفلاحجى علي اهتمامك

لاكن الكود الاول والثاني بهم خطأ

test_1.rar

**أبوبسمله** · مارس 7, 2020

اتفضل اخى حسين

Me.EDET_QOTY = DLookup("[Qote_item]", "tabol102", "item_prais=" & [item_prais] & "and [ITEM_BARCODE]='" & Me.serh_Barcod & "'")

 DCount("ITEM_BARCODE", "tabol102", "ITEM_BARCODE =  forms!forms_1!serh_Barcod  and [item_prais]=forms!forms_1![item_prais]")

test_1.accdb

تم تعديل مارس 7, 2020 بواسطه أحمد الفلاحجى

**حسين العربى** · مارس 8, 2020

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

هذا هو المطلوب

تم تعديل مارس 8, 2020 بواسطه حسين العربى

**حسين العربى** · مارس 8, 2020

استاذي الفاضل 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)

تم تعديل مارس 8, 2020 بواسطه حسين العربى

**jjafferr** · مارس 8, 2020

حياك الله 🙂

13 ساعات مضت, حسين العربى said:

دخلت علي المشاركة ولاكن ما عرفت اطبقها عندي

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

جعفر

**حسين العربى** · مارس 8, 2020

بالنسبه للكود السابق الخاص بحضرتك استاذ 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

تم تعديل مارس 8, 2020 بواسطه حسين العربى

**أبوبسمله** · مارس 8, 2020

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير

والحمدلله الذى بنعمته تتم الصالحات

بالتاكيد هذه الهديه من روائع اخى واستاذى جعفر ويسرت على ايضا كثيرا جزاك الله عنا كل خير

7 ساعات مضت, حسين العربى said:
استاذي الفاضل 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)

لما استخدمته جعلته فى حال لم لم يجد قيم فيضع اصفار فالحقول كالتالى

LN = DLast("[Post] & '|' & [Mtar] & '|' & [EmsD] & '|' & [EmsKh] & '|' &[Draeb]", "THrkat_Emp", "[THrkat_Emp.KodT]=[TKhtotKodT] and [THrkat_Emp.ID_Kind ]='N3'")
If IsNull(LN) Then
LN = ("0 | 0 | 0 | 0 | 0")
    X = Split(LN, "|")

          Me.[LPost] = X(0)
          Me.[LMtar] = X(1)
          Me.[LEmsD] = X(2)
          Me.[LEmsKh] = X(3)
          Me.[LDraeb] = X(4)
Else
  X = Split(LN, "|")

          Me.[LPost] = X(0)
          Me.[LMtar] = X(1)
          Me.[LEmsD] = X(2)
          Me.[LEmsKh] = X(3)
          Me.[LDraeb] = X(4)
       
 End If

واليك تعديل على مثالك بهديه اخى واستاذى جعفر جزاه الله خيرا

Private Sub ITEM_BARCODE_AfterUpdate()
    a = DLookup("[SELLS_PRICE]& '|' & [item_name]", "POS_MASTER", "[ITEM_BARCODE]=forms!forms_1!ITEM_BARCODE")
If IsNull(a) Then
    a = ("  |  ")
    X = Split(a, "|")
    
    Me.SELLS_PRICE = X(0)
    Me.ITEM_NAME = X(1)
    
Else
    X = Split(a, "|")
    
    Me.SELLS_PRICE = X(0)
    Me.ITEM_NAME = X(1)
End If
End Sub

وفى انتظار تعقيب اخى واستاذى العزيز جعفر

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق :fff:

test_102.rar

تم تعديل مارس 8, 2020 بواسطه أحمد الفلاحجى

**jjafferr** · مارس 8, 2020

5 ساعات مضت, حسين العربى said:

عند وضع رقم غير موجود يعطي خطأ في الكود

تفضل 🙂
الدالة NZ تحل المشكلة 🙂

    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)

جعفر

**حسين العربى** · مارس 8, 2020

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

ملحوظه انا بستدعي البيانات من استعلام وليس من جدول هل هذ هو السبب ام ماذا

اليكم المرفق بعد اخر تعديل

test_102.rar

**jjafferr** · مارس 8, 2020

السبب هو عدد الحقول التي طلبتها ،

اضف العلامة | في الدالة NZ ، بعددها في الكود

بمعنى عندك 9 علامات :

image.png.741be82178297372c3c319241f2f646a.png

فلازم NZ يكون :

image.png.709eddba8edcce2b6a7a889f7392e942.png

جرب هذا

    A = Nz(DLookup("[ITEM_CODE] & '|' & [deskwn1] & '|' & [item_name] & '|' & [Expr1]& '|' & [Expr2] & '|' & [sub_id] & '|' & [FACTOR]& '|' & [UNT_ID]& '|' & [ITEM_CommissioN]& '|' & [CATEGORY]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'"), "|||||||||")

جعفر

**حسين العربى** · مارس 8, 2020

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

خير الكلام ما قل وذل 😂

والف شكر للجميع وجعله الله في ميزان حسناتكم

**jjafferr** · مارس 8, 2020

🙂

**أبوبسمله** · مارس 8, 2020

طبعا اخى حسين خير الكلام ما قل ودل

وانا قلت انى فى انتظار رد وتعقيب اخى واستاذى جعفر @jjafferr لانى اعلم لماسته السحريه جزاه الله خيرا :fff: واحلى واروع من كده مفيش

فاننى مجرد طالب علم اتعلم منكم اخوانى واساتذتى

جزاكم الله خيرا

**حسين العربى** · مارس 8, 2020

انت والله استاذي أحمد الفلاحجى ومعلمي وانا والله ما اقصد شي ولك مني كل التقدير ولاحترام

واخر سؤال مني في نفس الموضوع لو هنستدعي من نموذج الي نموذج اخر مثل الكود هيكون ازاي

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** · مارس 8, 2020

15 دقائق مضت, حسين العربى said:

لو هنستدعي من نموذج الي نموذج اخر مثل الكود هيكون ازاي

1. نحن في النموذج Form1 ، ونريد ان نستعمل القيم من النموذج المفتوح Form2 :

Me.ITEM_BARCODE = DLookup("[ITEM_BARCODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Forms!forms1!serh_Barcod & "'")
Me.ITEM_CODE = DLookup("[ITEM_CODE]", "VW_ITEM_MASTAR", "[ITEM_BARCODE]='" & Forms!forms1!item_no & "'")

2. نحن في النموذج Forms2 ، ونريد ان نرسل القيم الى النموذج المفتوح Forms1 :

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_CODE & "'")

جعفر

**أبوبسمله** · مارس 8, 2020

اخى الفاضل @حسين العربى انا اخوك الصغير طالب علم ولم افهم من كلامك شىء خاطىء فانتم اخوانى واحبابى فى الله كل الموده والاحترام

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

واحاول وانتظر تعقيب اخوانى واساتذتى للفهم اكثر والتعلم وكل يوم اتعلم منكم الكثير وهذا فضل من الله ونعمه واحمد الله انكم تسمحون لى بمشاركتكم وبكون سعيد بمشاركتكم لاتعلم اكثر

اخى واستاذى العزيز جعفر كل التحيه والتقدير فلقد تعلمت الكثير منك ويسرت لى امور كثيره انت واخوانى واساتذتى واسال الله لكم التوفيق والسداد وان يجازيكم كل خير وان يرزقكم الفردوس الاعلى بجوار سيد الخلق ومعلم الامه سيدنا محمد صل الله عليه وسلم انه سميع مجيب الدعوات آمين

اجمل باقات الورود معطره بذكر الرحمن العلى القدير لكم اخوانى واساتذتى :fff:

**حسين العربى** · مارس 8, 2020

استاذي الفاضل 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)

**jjafferr** · مارس 9, 2020

11 ساعات مضت, حسين العربى said:
واخر سؤال مني في نفس الموضوع لو هنستدعي من نموذج الي نموذج اخر مثل الكود هيكون ازاي
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 & "'")

مافي فرق بين هذا الكود والكود السابق ، مجرد اسم المتغير اصبح تابع لإسم النموذج :

    
    A = Nz(DLookup("[ITEM_BARCODE]& '|' & [ITEM_CODE]", "POS_MASTER", "[ITEM_BARCODE]='" & Me.ITEM_BARCODE & "'"), "|")
    
    x = Split(A, "|")
    
    Forms!forms1!serh_Barcod = x(0)
    Forms!forms1!item_no = x(1)

جعفر

**حسين العربى** · مارس 9, 2020

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

تسجيل الدخول

اضافة شرط اخر في كود التحقق من التكرار وكود جلب قيمة عن طريق DLookup

الردود الموصى بها

حسين العربى

حسين العربى

jjafferr

حسين العربى

أبوبسمله

حسين العربى

أبوبسمله

حسين العربى

حسين العربى

jjafferr

حسين العربى

أبوبسمله

jjafferr

حسين العربى

jjafferr

حسين العربى

jjafferr

أبوبسمله

حسين العربى

jjafferr

أبوبسمله

حسين العربى

jjafferr

حسين العربى

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information