عمل نظام الادراج اليدوي وتحديد الكمية

[ahmedfahmy2018]

بعد التحيه 

كل عام وانتم بخير 

عاوز اطبق النظام الباركود اليدوي وتحديد الكمية يدوي كما  موجود ومرفق لكم في ملف رقم1  وتطبيقه على ملف رقم 2 

ومرفق لكم صورة بها المطلوب 

بمجرد كتابة رقم الباركود

 

1.rar 2.rar

[ahmedfahmy2018]

للرفع

[ahmedfahmy2018]

@د.كاف ياراتمني المساعدة

[د.كاف يار]

تفضل استخدم هذا الكود

في آخر محرر الأكواد الصق الكود التالي

Public Function SetProdact(Barcod As String, SetCoulmin As String)
    Dim db As DAO.Database, rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset(" SELECT * FROM [المخزن] where [رقم_الباركود] Like '*" & Barcod & "*'")
        SetProdact = rs.Fields(SetCoulmin)
        rs.Close
    Set rs = Nothing
End Function

 

و في مربع اسم الصنف الصق التالي

=SetProdact(Text420, "الصنف")

 

 

2.zip