أرجوكم حد يساعدني في كود الحفظ

لا زلنا بالانتظار

هل من مجيب

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

أخي الكريم شكرا على ردك و سأحاول ايضاح المشكلة

هذا الكود في unload form

أي يعمل عند اغلاق الفورم

فعند الاغلاق تظهر msgbox

تسأل اذا كنت أريد الحفظ فأختار نعم فتأتي نافذة الحفظ بتاعت ويندوز لكن اذا تذكرت أني يجب أن أعدل شيء في الملف أضغط على cancel ( من نافذة الحفظ بتاعت ويندوز ) فيغلق الفورم و ينفذ الحفظ

و ما أريده هو اغلاق الفورم و تنفيذ الحفظ بعد أن يتم الضغط على زر save في النافذة الاخيرة بتاعت ويندوز

أرجو أن يكون كل شيء واضح و لك جزيل الشكر بأية حال

و أشكرك أيضا لأنك تكاد تكون الوحيد الذي يرد على اسئلتي لا أعرف أين بقية الاعضاء

تقبل تحياتي

اخي العزيز قم بكتابة الكود التالي في حدث unload للنموذج

If Changed = true Then

ans = MsgBox("save change", vbYesNoCancel + vbQuestion + vbMsgBoxRight, "save")

Select Case ans

Case vbYes

Call cmdsave_Click

Exit Sub

Case vbCancel

Exit Sub

Case vbNo

Exit Sub

End Select

End If

وعموما نصيحتي لك الا تضع اكواد في حدث unload إلا الامر unload me

ويستحسن ان تضع بالنموذج للمستخدم مفتاح للحفظ ومفاتح للالغاء

عسى ان اكون افدتك اخي العزيز

أخي الكريم بارك الله بك

لكني أريد أن يكون كود الحفظ في اغلاق الفورم يعني متل أي برنامج متل وورد او نوت باد او أي برنامج لكن الطريقة التي تمكنني من التحكم بنافذة الحفظ للويندوز غير معروفة حتى الان

شكرا ثانية و جزاك الله خيرا

اخي الفاضل لاحظ انك بمجرد الدخول في حدث unloade فان النموذج يكون في حالة خروج وغير ممكن ان ترجعه الي حالة load الا لو استخدمت امر load مرة ثانية عموما حاولت بقدر استطاعتي وعسي ان يتدخل احد من الاخوة للوصول للحل المطلوب

أخي الكريم بارك الله بك و الله ما قصرت و أظن أنني سأخذ بنصيحتك و سأستغني عن الكود في unload

و لكن لدي سؤال ان كان لديك اجابة عليه

و هو كيف أجعل زر معين مثل زر جديد مثلا ينفذ الامر مرة واحدة فقط و اذا ضغط أكثر من مرة يعطي مسج بوكس تقول( زر جديد فقط لمرة واحدة ) مثلا

يعني أريد من البرنامج عند الضغط لأول مرة على زر جديد يعطي صفحة جديدة و في المرة الثانية تظهر المسج بوكس

و لا تؤاخذني لأن أسئلتي كثرت قليلا و لا مجيب غيرك

أخ memouz

حاول تستخدم الموديول في برنامجك , لانك تحتاج لعداد يضل حافظ عدد مرات الضغط على زر الحفظ ;)

أخي الكريم شكرا على ردك و لكن ما هو الكود الذي أضعه في الموديول

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

قم بتعريف متغير بأي اسم وليكن myflg كـــ integer وف حدث الform_load قم بكتابة الكود التالي

myflg=0

ثم قم بكتابة الكود التالي في حدث الclick لمفتاح جديد

if myflg =1 then
msgbox "you can not use this key"
else
اكتب هنا اكوادك التي تستخدمها لفتح صفحة جديدة
myflg=1
end if

وانا مستعد لاي سؤال يا اخي

أخي الكريم black boxer

أشكرك على اهتمامك و على الطريقة الجميلة

كان احد الاخوة مشكورا قد ارشدني الى طريقة مشابهة و هي عن طريق تكست تأخذ رقم 1 بعد الضغط على زر جديد

و لكني أرى أن طريقتك أفضل فلا داعي لادراج تكست جديدة في الفورم

مرة أخرى أشكرك من كل قلبي

تقبل تحياتي

لا داعي للشكر يا اخي وانا على استعداد دائما للمساعدة اذا كنت اقدر عليها

تحياتي

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

Private Sub exit_click(Index As integer)
if (change = true)then
j=MsgBox=("Do you want to save change?" , vbYesNo +vbquestion , "Messages")
if (j=vbYes)then 
call save1
 Unload Me
else
change = false
UbLoad Me
end if

حيث ان save1 هي module

تكون فيها الكود الخاص بالحفظ

فعند اختيارك لنعم

يتم الذهاب اليها ليتم الحفظ

ثم تخرج من الفورم

واذا كان غير ذلك

يتم الخروج

وعذرا ان كان هناك خطأ

فانا لي فترة منقطعة عن البرمجة لظروف خاصة

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

ولكن هذه هي الفكرة الاساسية للطريقة

اذكرها جيدا

لكن بقي التجريب والتاكد من صحة الكتابة

كود صحيح يا اختي العزيزة ولكن المشكلة هنا انه يريد تطبيق الكود لحظة unload او بمعنى انه يريد تنفيذ الكود لحظة النقر على ايقون x والمستخدمة في غلق النموذج والموجودة في شريط العنوان