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

[وليد زقزوق]

هذا برنامج به شاشه تسجيل بيانات

 

ما اريده هو كود لاظهار الشاشه حال

 

فتح البرنامج تلقائيا

 

 

وزر اخر داخل الفورم للرجوع للملف تسجيل 2014.rar

 

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

[وليد زقزوق]

 

للرفع

 
 

 

[رجب جاويش]

السلام عليكم

تفضل أخى

 

التغييرات التى تمت على الملف

أولا : فى حدث الـ Workbook  ضع الكود التالى

Private Sub Workbook_Open()
Application.Visible = False
kh_Show_UFormChang1
End Sub

ثانيا : عمل زر CommandButton2 بجوار زر خروج ( يسمى مستند ) مثلا وتضع فيه الكود التالى

Private Sub CommandButton2_Click()
Application.Visible = True
Unload Me
End Sub

ثالثا : تغير كود زر الخروج الى الكود التالى وذلك للخروج من التطبيق تماما عند الضغط عليه

Private Sub ButtonExit_Click()
Application.Quit
End Sub

تسجيل 2014.rar

[ناصر سعيد]

جزيل الشكر .. بارك الله بك .. وفقك الله دائما

[محمود_الشريف]

أخى فى الله

أستاذى القدير // رجب جاويش

بارك الله فيكم

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

تقبل منى وافر الاحترام والتقدير

[رجب جاويش]

أخى الفاضل / ناصر

جزاك الله كل خير على هذه الكلمات الطيبة

[رجب جاويش]

أخى الحبيب / محمود الشريف

جزاك الله كل خير على هذه الكلمات الطيبة

[مصطفى كمال متولى]

أستاذتنا القدير // رجب جاويش

بارك الله فيكم جزاكم الله خير الجزاء

[رجب جاويش]

أخى الفاضل / مصطفى كمال

جزاك الله كل خير

[وليد زقزوق]

الاخ 

رجب جاويش

عمل رائع ولكن اريد ان تظهر الفورم بدون الملف خالص

[رجب جاويش]

السلام عليكم

أخى الفاضل / وليد

ماذا تقصد بجملة  ( تظهر الفورم بدون الملف خالص )

[محمود_الشريف]

أخى فى الله

الأستاذ // وليد زقزوق

 

بعد إذن أستاذى القدير // رجب جاويش

 

قم بتعديل كود حدث الـ Workbook

Private Sub Workbook_Open()
Workbooks.Application.ShowStartupDialog = False
Workbooks.Application.DisplayAlerts = False
Workbooks.Application.Visible = False
UFormChang.Show
End Sub

وتقبل منى وافر الاحترام والتقدير