اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

حسين العربى

بواسطه حسين العربى
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by أبوبسمله,

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

حسين العربى

حسين العربى

قام بنشر
قام بنشر (معدل)

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

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

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

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

تم تعديل بواسطه حسين العربى
رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر

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

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

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

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

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

رابط هذا التعليق
شارك
أبوبسمله

أبوبسمله

قام بنشر
قام بنشر

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

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

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

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

عالعموم بفرض ان اسم الحقل 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 & "'")

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

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

رابط هذا التعليق
شارك
  • أفضل إجابة
أبوبسمله

أبوبسمله

قام بنشر
  • أفضل إجابة
قام بنشر (معدل)

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

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

تم تعديل بواسطه أحمد الفلاحجى
  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر (معدل)

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

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

تم تعديل بواسطه حسين العربى
رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر (معدل)

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

 

تم تعديل بواسطه حسين العربى
  • Like 1
رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر

حياك الله 🙂

 

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

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

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

 

جعفر

  • Like 1
رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر (معدل)

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

تم تعديل بواسطه حسين العربى
رابط هذا التعليق
شارك
أبوبسمله

أبوبسمله

قام بنشر
قام بنشر (معدل)

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

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

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

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

تم تعديل بواسطه أحمد الفلاحجى
  • Thanks 1
رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر
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)

 

جعفر

  • Like 1
رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر

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

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

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

test_102.rar

رابط هذا التعليق
شارك
jjafferr

jjafferr

قام بنشر
قام بنشر

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

اضف العلامة | في الدالة 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 & "'"), "|||||||||")

 

جعفر

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر

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

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

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

  • Like 1
رابط هذا التعليق
شارك
أبوبسمله

أبوبسمله

قام بنشر
قام بنشر

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

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

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

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

رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر

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

 

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

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

قام بنشر
قام بنشر
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 & "'")

 

جعفر

  • Like 1
رابط هذا التعليق
شارك
أبوبسمله

أبوبسمله

قام بنشر
قام بنشر

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

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

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

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

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

  • Thanks 1
رابط هذا التعليق
شارك
حسين العربى

حسين العربى

قام بنشر
  • الكاتب
قام بنشر

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

jjafferr

قام بنشر
قام بنشر
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)

 

جعفر

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept