منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

أهلا أخي الكريم إستخدم برنامج الـ SetupFactory ممتاز وتوجد شروحات لطريقة إستخدامه هنا في المنتدى .

لقد استخدمت برنامج setup factory , ولكن البرنامج يتوقف عند مرحله اثناء بناء الملف التنفيذى  معين ويعطينى خطاء المهم تركت البرنامج واستخدمت برنامج  Install Creator Pro و كان شغال تمام ولكن عند الضغط على ايقونه البرنامج  الذى صنعته على الديسك توب لايجد الملف التامبليت  ولكن انا الان فى محاوله حل المشكله لان تقريبا على الجهاز عندى من كثره العمل على هذا الموضوع ملفات متشاببه بنفس الاسم وسوف احاول ازالتها   المهم اريد اضافه امرين الاول وهو انه اذا لم يجد اى كميه موجوده فى التكست بوكس الخاص بالاصناف فى الفاتوره يوقف عمليه الطباعه وطبعا انا استخدمت الكود التالى 
واريد اضافه خانه (id )  للعملاء لانى اكتشفت ان ممكن العميل يكتب اسمه ولو بحرف خطاء او مسافه زياده فى الاسم اصبح الاسم مختلف تماما عن الموجود ووجدت من الافضل وضع رقم لايتكرر لكل عميل يضاف ويكون جزء من زاكره البرنامج او يخلق له البرنامج ملف خاص به يسمح باضافه ارقام كوديه لكل عميل

أهلا أخي الكريم , تم التعديل على ملف المثال الذي أرفقته أنا سابقاً في هذا الموضوع , حيث تم إضافة ملف لقاعدة البيانات أكسس ويوجد في قاعدة البيانات جدول واحد لبيانات العملاء يحتوي على عمود لرقم ID العميل وعمود لإسم العميل وتم إضافة تكست خاص بكود العميل وتم وضعه بجانب تكست إسم العميل بحيث إذا قمت بكتابة كود أو رقم العميل ثم قمت بضغط مفتاح "إنتر" يتم البحث في قاعدة البيانات عن إسم العميل الذي يطابق الرقم الذي كتبته فإذا تم العثور على عميل يتم وضع إسمه في تكست إسم العميل بدون الحاجه لكتابة إسم العميل يدويا وأيضا تم إضافة زرين بجانب تكست إسم العميل زر بعنوان "عميل مسجل" وهذا الزر عندما تضغط عليه تظهر فورم خاصة بالبحث عن العملاء المسجلين حيث عندما تكتب أول حرف من إسم العميل أو الإسم أول أو بداية إسم العميل يتم البحث عن ما كتبته في جدول العملاء وإذا تم العثور على نتائج مطابقة يتم إظهارها في أداة الفليكس وإذا أردت أن تختار أحد الأسماء التي ظهرت في أداة الفليكس قم بالضغط المزدوج على الإسم في اداة الفليكس ثم سيتم وضع بيانات العميل في التكستات الخاصه بها في الفورم1 ثم إغلاق فورم البحث , والزر الآخر الذي بعنوان "عميل جديد" عند الضغط عليه يظهر فورم لإضافة إسم العميل الجديد في جدول العملاء عند الضغط على زر إضافة يتم إضافة العميل في الجدول ويتم إعطائه رقم ID جديد ثم يتم وضع بيانات العميل الجديد في التكستات الخاصه بذلك في الفورم1 ثم يتم إغلاق الفورم الخاص بإضافة عميل جديد .

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

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

أهلا أخي الكريم , يبدو أنك لم تقرأ التعليقات التي كتبتها فوق الأكواد , أنا كتبت في التعليق الموجود فوق الكود الكود الذي يقوم بفحص الكميات أنني وضعت قيمة نصية في خاصية الـ Tag لجميع الليبلات الخاصه بالمجاميع أو الإجمالي لكل صنف وهي الليبلات من Label15 إلى Label23 و Label32 ولكني لا أريد كتابة أسماء الليبلات كلها لكي أفحص قيمة خاصية الـ Caption التابعه لها لذلك وضعت قيمة نصية في خاصية الـ Tag لهذه الليبلات الخاصه بإجماليات الأصناف وهذه القيمة النصية هي lb_Total ثم قمت بعمل لووب أو حلقة تكرارية أو For على جميع الليبلات الموجوده على الفورم وأقوم بفحص قيمة خاصية الـ Tag لكل ليبل فإذا كانت قيمة خاصية الـ Tag لليبل الحالي في الحلقة التكرارية تساوي القيمة النصية التي وضعتها وهي lb_Total إذا معناته هذا الليبل هو أحد ليبلات الإجمالي عندها أقوم بفحص قيمة خاصية الـ Caption لهذا الليبل فإذا كانت القيمة فارغه أو تساوي صفر تظهر الرسالة التي تطالب المستخدم بكتابة الكميات , وقمت بفحص ليبلات الإجمالي لأنها مرتبطه بجميع تكستات الكميات فعندما تكتب أي كمية لأي صنف يظهر إجمالي الكميات في الليبلات الخاصه بالإجمالي .

كلام جميل جدا لكن ! لا اعلم ماهى المشكله ؟

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

أرجوا ان تستفيد منه



    Dim xl As Excel.Application
Dim fldCount As Integer
Dim recCount As Long
Dim iCol As Integer
Dim iRow As Integer

   Set xl = New Excel.Application
   With xl
       .Workbooks.Add
       .Worksheets(1).Name = "Export Daily"
                     ' Copy field names to the first row of the worksheet
               fldCount = Adodc1.Recordset.Fields.count
                For iCol = 1 To fldCount
                   xl.Cells(1, iCol).value = Adodc1.Recordset.Fields(iCol - 1).Name
               Next
     
       
       Call .ActiveSheet.Range("A2").CopyFromRecordset(Adodc1.Recordset)
       .Visible = True


   End With
Else
  
End If

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