محمد حمزه

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

اخي الكريم

معك باذن الله اذا لم يسبقني احد من الاساتذة الكرام

اشكرك استاذي جعفر 

السلام عليكم 

برجاء من الاخوه الافاضل افادتيني في تحديث الباركود التي تظهر في منتصف الباركود مثل مافي المرفق

اخي الكريم

safwat Maher

ارفع الجدول والتقرير

للتعديل عليه

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

برجاء المساعده في كود يغير للون خلفية TreeView1

ملحوظه اعمل على اصدار اوفيس 2019

شكرا لكم

وجدت هذا الكود ولكنه يعمل على 2003

وانا اعمل على 2019

TreeView0.RightToLeft = System.Windows.Forms.RightToLeft.Yes
TreeView0.RightToLeftLayout = True

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

برجاء المساعده في كود يعجل TreeView0 من اليمين للسيار

ملحوظه اعمل على اصدار اوفيس 2019

شكرا لكم

ابوخليل

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

اين الاخوه المشرفين والاعضاء الذين هم عون لكل مبتدئ

كثرت المشاهدات ولا يوجد ردود

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

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

شكرا

الاساتذه الكرام

ملحوظه اعمل على حزمة اوفيس 2019

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

لدي جدول يحتوي على اسماء الشاشات التقرير والاستعلامات

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

مرفق البرنامج

TreeForm.rar

حبيبي استاذ الكريم الله يعطيك الف عافيه

حبيبي استاذ الكريم الله يعطيك الف عافيه

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

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

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

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

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

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

لكن

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

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

شكر لكم 

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

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

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

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

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

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

jjafferr

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

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

Book12.xlsx

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

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

ثانيا

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

ثالثا