أهلا أخي الكريم , تم التعديل على المثال .
- ملاحظات :- يوجد ملف إكسيل بإسم Empty_Template.xlsx هذا ملف قالب يجب أن يكون دائماً بجانب ملف البرنامج ولا تقوم بوضع أي قيم أو تغييرات فيه ولا تتركه مفتوح إن أردت أن تفتحه , عند ضغط زر الطباعة سيتم ترحيل البيانات في ملف إكسيل ويكون إسمه بتاريخ اليوم الحالي وسيتم حفظه في المجلد الذي أيضاُ يجب أن يكون بجانب ملف البرنامج والمجلد بإسم Daily_Sales .
اشكرك جدا على هذا المحهود وفعلا مجهود من عبقرى وانا الان فى مرحله التجريب وسوف اوافى حضرتك بالرد باذن الله
مبروك اولا على الشكل الجديد للمنتدى وإلى ألأفضل دائما
واشكرك مره اخرى على مجهودك استاذ احمد منصور ولكن هناك بعض الملاحظات
1- ظهور الخط الاصفر على امر الطباعه print form عند محاولة تكرار عمليه اضافه اسم جديد ومن ثم الطباعه للفورم
2- ظهور خط اصفر على ExcelWB.Save لنفس السبب السابق
3 - ما وظيفه text39
رجاء ان تحاول حضرتك تجربه الفورم اكثر من مره وهو مفعل باضافه اكثر من اسم واستتخدام زر بوليصه جديده لمسح جميع التكست بوكس ورجوع الفورم لحالته الاولى ولك منى جزيل الشكر
أهلا أخي الكريم , فعلاً لاحظت المشكلة لم أنتبه لها , على العموم حلها هو بوضع هذا السطر :
تحت كلمة 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 لان البرنامج لا يجد ملف التامبلت المصنوع ببرنامج الاكسل هل اضع ملف التامبلت فى امتداد البرنامج ولو احببت ان يكون البرنامج متكامل بمعنى انه يضع ملف التامبلت اثناء تنصيبه فى مسار البرامج ماذا يكون الحل؟
أهلا أخي الكريم , نعم يجب أن يكون ملف التمبلت بجانب ملف البرنامج الـexe دائماً .