برجاء الافادة محتاج عمل زرار يعمل تحديث لجميع الاصناف في طرف الفاتورة

[01012998222]

محتاج يظهر اسم الصنف + الوحدة + السعر بس بشرط يكون عن طريق زازر بضغطه واحدة يظهر دا كله في كل الاصناف

استعلام.rar

[محمد أبوعبدالله]

تفضل اخي الكريم

    Dim X As String
    Dim X1() As String
    Dim i As Integer
    
    DoCmd.GoToRecord , , acFirst
    For i = 1 To Me.RecordsetClone.RecordCount
        X = Nz(DLookup("[سعر الوحدة] & '|' & [الوحدة] & '|'", "اكواد", "[كود الصنف]='" & Me.كود_الصنف & "'"), "|||")
        X1 = Split(X, "|")
        Me.وحدة = X1(1)
        Me.السعر = X1(0)
        DoCmd.GoToRecord , , acNext
    Next

استعلام.rar

تحياتي

[01012998222]

ألف شكر يا هندسة 
- بس انا جربتها في حاجات تانية مش عايزة تقبل يعني مثلا كنت محتاج يظهر رصيد المخزن 
- رصيد المخزن عندي انا عامله عند التحديث لكود الصنف ..
- بس انا محاستعلام.rarتاج ادوس على الزرار يظهر الرصيد مثلا باقي البيانات 

2استعلام.rar

[01012998222]

هندسة معلش محتاج الكود دا ضروري 🥺

[محمد أبوعبدالله]

تفصل اخي الكريم

    Dim X As String
    Dim X1() As String
    Dim i As Integer
    
    DoCmd.GoToRecord , , acFirst
    For i = 1 To Me.RecordsetClone.RecordCount
    
        X = Nz(DLookup("[سعر الوحدة] & '|' & [الوحدة] & '|' & [الصنف] & '|'", "اكواد", "[كود الصنف]='" & Me.كود_الصنف & "'"), "||||")
        X1 = Split(X, "|")
        
        Me.وحدة = X1(1)
        Me.السعر = X1(0)
        Me.اسم_صنف = X1(2)
        Call كود_صنف_AfterUpdate
        DoCmd.GoToRecord , , acNext
    Next

2استعلام.rar

تحياتي

[01012998222]

هندسة انا محتاج كمان رصيد المخزن dsum انا عامل الكود بتاع الرصيد بس على تحديث الكود انا محتاج الرصيد يظهر كمان باقي البيانات

[01012998222]

انا بتقل عليك يا هندسة بس فعلا انا البرنامج عندي مش عايز اشغله بسبب الموضوع ده 

[محمد أبوعبدالله]

16 ساعات مضت, 01012998222 said:

هندسة انا محتاج كمان رصيد المخزن dsum انا عامل الكود بتاع الرصيد بس على تحديث الكود انا محتاج الرصيد يظهر كمان باقي البيانات

هو الآن يتم استدعاه في نفس الكود السابق

Call كود_صنف_AfterUpdate

ويظهر الرصيد بدون مشاكل

برجاء التوضيح اكثر

تحياتي

[01012998222]

Call كود_صنف_AfterUpdate

يتم تحديث الصف اللي انا واقف عليه فقط وليس كل الصفوف