- ملاحظات :- يوجد ملف إكسيل بإسم Empty_Template.xlsx هذا ملف قالب يجب أن يكون دائماً بجانب ملف البرنامج ولا تقوم بوضع أي قيم أو تغييرات فيه ولا تتركه مفتوح إن أردت أن تفتحه , عند ضغط زر الطباعة سيتم ترحيل البيانات في ملف إكسيل ويكون إسمه بتاريخ اليوم الحالي وسيتم حفظه في المجلد الذي أيضاُ يجب أن يكون بجانب ملف البرنامج والمجلد بإسم Daily_Sales .
مبروك اولا على الشكل الجديد للمنتدى وإلى ألأفضل دائما
واشكرك مره اخرى على مجهودك استاذ احمد منصور ولكن هناك بعض الملاحظات
1- ظهور الخط الاصفر على امر الطباعه print formعند محاولة تكرار عمليه اضافه اسم جديد ومن ثم الطباعه للفورم
2- ظهور خط اصفر علىExcelWB.Save لنفس السبب السابق
3 - ما وظيفه text39
رجاء ان تحاول حضرتك تجربه الفورم اكثر من مره وهو مفعل باضافه اكثر من اسم واستتخدام زر بوليصه جديده لمسح جميع التكست بوكس ورجوع الفورم لحالته الاولى ولك منى جزيل الشكر
25-03-16, 06:16 AM (آخر تعديل لهذه المشاركة : 25-03-16, 06:17 AM {2} بواسطة Ahmed_Mansoor.)
أهلا أخي الكريم , فعلاً لاحظت المشكلة لم أنتبه لها , على العموم حلها هو بوضع هذا السطر :
PHP كود :
Printer.EndDoc
تحت كلمة PrintForm وذلك في زر الطباعة .
بالنسبة للـ text39 هو للملاحظات لأنك قمت بوضع عمود للملاحظات في قالب ملف الإكسل فيتم نقل مايكتب في هذا التكست في عمود الملاحظات في ملف الإكسل , إذا كنت لاتريد نقل الملاحظات من التكست39 يعني تريد عمود الملاحظات يكون فارغ في ملف الإكسل قم بإزالة الجزء التالي من كود الإجراء الموجود في أعلى كود الفورم الإجراء الذي إسمه Add_Customer_Data_Into_Excel :
PHP كود :
If Is_Added_Befor = False Or Is_New_Day = True Then 'إضافة الملاحظات إذا كان أول عميل في اليوم الحالي أو إذا كان ليس أول عميل ولكن عميل جديد ExcelWS.Cells(zRow_Number, 1).Value = Trim$(Text39.Text) End If
اشكرك جدا العمل رائع ولى طلب اود ان اضيفه ولقد حاولت كثيرا ولكن فشلت
انا جعلت قيمه تكست الملاحظات مساويه لليبول 11 او 12 وبذلك يتم طباعه الاختيار مباشرتا فى ملف الاكسل( وصال او العميل)
لكن ماذا لو تكرر اسم العميل ولكن تغيرت قيمه التكست 39 او تكست الملاحظات واخذ مثلا قيمه الليبول الاخر اذن يجب اضافه صف جديد باسم العميل الموجود فعلا وبقيمه تكست الملاحظات الجديده
أهلا أخي الكريم , قم بتعديل الجزء التالي من كود الإجراء الموجود في أعلى كود الفورم الإجراء الذي إسمه Add_Customer_Data_Into_Excel :
PHP كود :
If Trim$(ExcelWS.Cells(I, 12).Value) = Trim$(Text1.Text) Then 'إذا كان إسم العميل موجود يتم وضع رقم الصف الموجود فيه في هذا المتغير zRow_Number = I Is_Added_Befor = True Exit For End If
إستبدله بهذا الكود , هذا الكود هو نفس الجزء من كود الإجراء لكن تم تعديله قليلاً ستلاحظ الفرق بينهما ليس بالكثير :
PHP كود :
If Trim$(ExcelWS.Cells(I, 12).Value) = Trim$(Text1.Text) And _ Trim$(ExcelWS.Cells(I, 1).Value) = Trim$(Text39.Text) Then 'إذا كان إسم العميل موجود يتم وضع رقم الصف الموجود فيه في هذا المتغير zRow_Number = I Is_Added_Befor = True Exit For End If
اكيد قد تعجز الكلمات عن التعبير ولكن لا اجد اكثر من غيرها كلمات شكر وثناء لحضرتك .... وبصراحه انا لم اكتسب مجرد محاوله فى برنامج بالنسبه لكم صغير لكن مكسبى الحقيقى هوا انى تعرفت على شخصيات محترمه بهذا الشكل . ولا اخفى كلى طمع فى علمكم وخبراتكم ولكن بما تسمح به نفسكم الكريمه وبما يجود به كرمكم . ولكم منى جزيل الشكر
السلام عليكم اساتذتى الافاضل لقد ظهرت لى مشكله عند تحويل برنامجى الى ملف تنفيذى او برنامج EXE لان البرنامج لا يجد ملف التامبلت المصنوع ببرنامج الاكسل هل اضع ملف التامبلت فى امتداد البرنامج ولو احببت ان يكون البرنامج متكامل بمعنى انه يضع ملف التامبلت اثناء تنصيبه فى مسار البرامج ماذا يكون الحل؟