طلب مساعدة في اضافة اصناف تلقائيا مثل الباركود

[محمد حمزه]

السلام عليكم ورحمة الله وبركاتة

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

وهو عباره عن استلام فاتورة مشتريات

المطلوب مساعدتي فيه هو اذا جاء فرد المشتريات باعطائي فاتورة مكونه من 15صفحه ومجمل الفواتير تحتوي على 200صنف الصنف الواحد مثل زيوت الطعام وهو 100 كرتونه في 24 زجاجه بيساوي 2400 زجاجه وعند الصرف تصرف عن طريق الباركود زجاجه زجاجه واذا تم ادخال اجمالي الكرتون في عدد الكرتونه الواحده بيعطيني اجمالي الزجاجات وهنا تمت الاضافه ولكن عند الصرف عند قراءت الباركود ياتي بكافة الكميه كلها وهذا غير مطلوب

تم عمل في النموذج الرئيسي كود الصنف واسم الصنف والوحد والسعر  هنا لكي اسهل علي كتابة الصنف الذي يحتوي على كمية كبيره وتم اضافة من رقم باركود ثم العدد الذي يحتويه الصنف من عدد زجاجات  ومن ثم الى رقم باركو يعني وليكن لدي صنف كوده 100001 اسمه زيت العلا 2لتر            الوحده زجاجه السعر 14 ريال هنا تمت بالفعل وتم اضافة 

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

واليكم المرفق

 

 

 

 

 

 

 

رقم الباركود.rar

[محمد حمزه]

[محمد حمزه]

هل من طريقه بارك الله فيكم

[ابو جودي]

انا بكل صدق مش فاهم شئ

[محمد حمزه]

ابا جودى

السلام عليكم اخي الكريم شكرا على مرورك الكريم

اريد اضافه صنف مثل صنف زيوت الطعام او معجون طماطم 

اذا قولت لدي 10 كرتونه معجون طماطم وتحتوي كل كرتونه على 150علبة  هنقول : 100*150=1500 علبة

اريد ان ادخل الـ 1500 علبة تلقائيا كيف......؟ 

 

العمليه مثلها مثل توزيع سلف الموظف على شهور يعني عندي موظف اخد 5000 ريال سلفة على 10 اشهر بكتب قيمة كل شهر وعدد الشهور ومن ثم تاريخ بداية اول قسط وعند الضغط على زر توزيع الاقساط يتم توزيع الاقساط تلقائيا نفس الشيء في طلبي

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

[ابو جودي]

شوف كده

رقم الباركود.accdb

[محمد حمزه]

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

[ابو جودي]

طب بص بقه 

ياريت تصور البرنامج صورة صورة وتوضح انت بتبدأ شغل منين وتكتب على الصور المفروض ايه اللى يتم والنتيجة اللى انت عاوزها تكون ايه

لان بجد يا اما  انت بتهزر 

با اما مش فاهم وده الطبيعى بتاعى فهمى على اد حالى

[محمد حمزه]

الله يسعدك تمام

[محمد حمزه]

 الاستلام العادي زي اي استلامات مستودعات من المشتريات

ثانيا

 ومن ثم الضغط على  اضافة اصناف بكمية كثيره

 

ثالثا 

[محمد حمزه]

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

[jjafferr]

اخي محمد 🙂

لوسمحت اعمل مثال بالنتائج بالاكسل ، علشان ممكن نترجمه الى الاكسس 🙂

 

جعفر

[ابو جودي]

1- من رقم بار كود :          انت ياللى بتكتبه ؟

2- والعدد              :          انت ياللى بتكتبه ؟  عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها

3- الكمية التى يحتوى عليها الوحدة :   انت ياللى بتكتبه ؟   عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها

تم تعديل ديسمبر 2, 2020 بواسطه ابا جودى

[محمد حمزه]

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

1- من رقم بار كود :          انت ياللى بتكتبه ؟

2- والعدد              :          انت ياللى بتكتبه ؟  عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها

3- الكمية التى يحتوى عليها الوحدة :   انت ياللى بتكتبه ؟   عدد الكرتونه الواحدة ام عدد الزجاجات بداخلها-------

---------

كود الصنف واسم الصنف والوحده والسعر ده ثابت يتم استدعائه من شاشة الاصناف عند النقر مرتين على كود الصنف تمام كده

1- من رقم بركود ياتي تلقائي من اخر رقم بركود تم انشائه من قبل لهاذا الصنق يلي هو كود الصنف 

2- العدد يتم ادخاله يدويا وهو عدد الزجاجات التي هي بداخل الكرتونه........... مثال

صنف زيت طعام ال شخ  .....................الوحده كرتونه................................... تحتوي الكرتونه على 24 زجاجه في عدد الكراتين 100كرتونه =2400 زجاجه يتم ادخال اجمالي العدد في خانة العدد  يدويا

الكميه  تدخل يدويا             اي كل عبوه تحتوي على 2لتر مثلا

 اعتزر لكم  على عدم توصيلكم فكرة مااريده وشكرا لكم على مروركم الكريم وحسن تعاونكم بارك الله فيكم

 

jjafferr

اخي الكريم تم ارفاق ملف اكسل به فاتورة مشتريات 

وجدول اخر اسمه البرنامج

 

Book12.xlsx

[ابو جودي]

5 دقائق مضت, محمد حمزه said:

1- من رقم بركود ياتي تلقائي من اخر رقم بركود تم انشائه من قبل لهاذا الصنق يلي هو كود الصنف 

خلينا نقطه نقطه 

9203406  ده كود صنف  اسم الصنف معجون طماطم         الاقى فين اخر رقم باركود ليه اللى هنبدأ بيه الشغل

ولو صنف جديد ماله باركود اصلا ازاى تبدأ

[محمد حمزه]

خلينا نقطه نقطه 

9203406  ده كود صنف  اسم الصنف معجون طماطم         الاقى فين اخر رقم باركود ليه اللى هنبدأ بيه الشغل

ولو صنف جديد ماله باركود اصلا ازاى تبدأ

الصنف الجديد عن طريق الدالة دي

Option Compare Database
Function fnAutoField() As String
    Dim strRndNo As String
10:
     strRndNo = Format((999999999 * Rnd) + 1, "100000000")
        If DCount("*", "Table_33_ItemsExch", "barcode='" & strRndNo & "'") > 0 Then GoTo 10
     fnAutoField = strRndNo
End Function
 ده الموديل الخاص بانشاء بركود تلقائي

وده الخاص بالنموذج 

 

الكود الخاص بالنموذج
 

Private Sub barcode_Enter()
On Error Resume Next
     If IsNull([Barcode]) Then
          Me!Barcode = fnAutoField()
    End If
End Sub

 

[ابو جودي]

الله يسامحك يا سيدى فين الجدول اللى اسمه  Table_33_ItemsExch مش موجود اصلا فى المرفق

ها ولو له بار كود اجيبه منين 

 

 

ارجوك رد على اسألتى رد مباشر  

ما تشرحى لى اكواد او اشياء ما بدى منها شئ فى الوقت الحالى

اللى بدى اياه راح اسألك وارجوك بدى بس اجابة واضحة ومباشرة الله يرضى عنك وعن والديك

9203406  ده كود صنف  اسم الصنف معجون طماطم         الاقى فين اخر رقم باركود ليه اللى هنبدأ بيه الشغل

[محمد حمزه]

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

رقم ال22باركود.rar

عند الضغط بكليك عى مربع من رقم الباركود يظهر تلقائي او اانتر اريد بعد ادخلل العدد يضيف العدد على رقم الباركود ويعطيني اخر رقم بركود

[محمد حمزه]

اخي الكريم شكرا على المداخله الكريمه واعتزر عن عدم توصيلي المعلومه كافيه او ايضاحه 

تم ارفاق الملف بملحقاته مره ثانية

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

لكن

المرادعمله  فقط هو كيفية نقل العدد 250 عبوة بكود الصنف واسم الصنف والوحده والسعر والكميه ابتداء من رقم الباركود الى رقم الباركود ل 250صنف كما هو مذكور بمربع نص العدد الى النموذج الفرعي 

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

شكر لكم 

 

 

رقم ال22باركود.rar

تم تعديل ديسمبر 2, 2020 بواسطه محمد حمزه

[ابو جودي]

11 دقائق مضت, محمد حمزه said:

اخي الكريم شكرا على المداخليه الكريمه واعتزر عن عدم توصيلي المعلومه كافيه او ايضاحه 

تم ارفاق الملف 

مره ثانية

المراد فقط هو كيفة نقل العدد 250 عبوة ل 250صنف في الجدول الفرعي

شكر لكم 

 

 

رقم ال22باركود.rar 65.07 kB · 0 downloads

ماشى سهله بس ممكن سورة  نموذج من اخر مرفق بالبيانات لاول 3 سجلات كامله فى النموذج الفرعى واللى المفروض تكون زى ما انت تريد بناء على بيانات النموذج الرئيسي

 

[محمد حمزه]

[ابو جودي]

اتفضل الكود على زر الامر ترجيل 

On Error GoTo Err_CmdMove_Click

If IsNull([FBarcod]) Then
    MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576"))
    Me.FBarcod.SetFocus
Else
    
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim intQty As Integer
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("TableBarcodeBrExh")
    
    intQty = [Nom]
    
    For i = i To intQty
            
        rs.AddNew
            rs("ID") = Me![id]
            rs("itmCode") = Me![CodeItem]
            rs("NameItem") = Me![ItemNam]
            rs("NoBarcode") = Me![FBarcod] + i + 1
            rs("Unets") = Me![Unet]
            rs("NoMat") = 1
            rs("Praice") = Me![PrIce]
            rs("Qty") = 1
            rs("Totals") = 1
        rs.Update
    
    Next i
    rs.Close
    Me![Form_BarcodeBrExhSubform].Requery
MsgBox "done"
End If

Exit_CmdMove_Click:
    Exit Sub

Err_CmdMove_Click:
    MsgBox Err.Description
    Resume Exit_CmdMove_Click

 

تم تعديل ديسمبر 2, 2020 بواسطه ابا جودى

[ابو جودي]

تم التعديل على الكود بصيد الخطأ فى حالة تم الحاق البيانات من قبل

كما تم التعديل على الجدول TableBarcodeBrExh  حتى لا يقبل التكرار 

On Error GoTo Err_CmdMove_Click

If IsNull([FBarcod]) Then
    MsgBox (ChrW("1581") & ChrW("1602") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1575") & ChrW("1585") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1591") & ChrW("1604") & ChrW("1608") & ChrW("1576"))
    Me.FBarcod.SetFocus
Else
    
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim intQty As Integer
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("TableBarcodeBrExh")
    
    intQty = [Nom]
    
    For i = i To intQty
            
        rs.AddNew
            rs("ID") = Me![id]
            rs("itmCode") = Me![CodeItem]
            rs("NameItem") = Me![ItemNam]
            rs("NoBarcode") = Me![FBarcod] + i + 1
            rs("Unets") = Me![Unet]
            rs("NoMat") = 1
            rs("Praice") = Me![PrIce]
            rs("Qty") = 1
            rs("Totals") = 1
        rs.Update
    
    Next i
    rs.Close
    Me![Form_BarcodeBrExhSubform].Requery
MsgBox "done"
End If

Exit_CmdMove_Click:
    Exit Sub

Err_CmdMove_Click:
    If Err.Number = 3022 Then
        MsgBox (ChrW("1578") & ChrW("1605") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1581") & ChrW("1575") & ChrW("1602") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1576") & ChrW("1610") & ChrW("1575") & ChrW("1606") & ChrW("1575") & ChrW("1578") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("32") & ChrW("1602") & ChrW("1576") & ChrW("1604"))
    Else
        MsgBox Err.Description
        Resume Exit_CmdMove_Click
    End If

الحمد لله بس خلاص 

رقم الباركود - Update v1 .accdb

تم تعديل ديسمبر 2, 2020 بواسطه ابا جودى

[محمد حمزه]

احسنت اخي الكريم   ابا جودى 

بارك الله فيك هذا بالفعل هو المطلوب 

احسنت اخي الكريم وجزاك الله خير الجزاء

 

[ابو جودي]

3 دقائق مضت, محمد حمزه said:

احسنت اخي الكريم   ابا جودى 

بارك الله فيك هذا بالفعل هو المطلوب 

احسنت اخي الكريم وجزاك الله خير الجزاء

 

شوفت مش قلت لك انا مش بأفهم بسرعة بس اما أفهم تلاقينى فوريرة 

نصيحة أخوية : ارجوك خلى السؤال جاهز على الحل وارفق النتيجة النهائية اللى تريدها بالصور لتسهل على العقلاء امثالى 
 

 

انت عملت على مشاركة سابقة انها افضل اجابة

ارجوك غير افضل اجابة للمشاركة الاخيرة التى تحتوى المرفق والحل الصحيح

تم تعديل ديسمبر 2, 2020 بواسطه ابا جودى