نحوه ذخیره فایل بصورت خودکار بعد از بسته شدن فرم

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • hamidkarimi63
    • 2013/02/20
    • 4

    نحوه ذخیره فایل بصورت خودکار بعد از بسته شدن فرم

    با سلام
    می خواستم بدونم چطور می شه در فرمی که در vba طراحی کرده ام بعد از بسته شدن فرم اطلاعات فایل اکسل به صورت خودکار ذخیره شود؟
  • امين اسماعيلي
    مدير تالار ويژوال بيسيك

    • 2013/01/17
    • 1198
    • 84.00

    #2
    RE: نحوه ذخیره فایل بصورت خودکار بعد از بسته شدن فرم

    Dim amin As String
    amin = MsgBox("Do you want to save your change", vbInformation + vbYesNo, "Notice")
    If amin = vbYes Then
    TextBox1.Text = ""
    TextBox2.Text = ""
    ThisWorkbook.Close savechanges:=True
    Unload Me

    Else

    MsgBox "Your changing not save ", vbExclamation
    ThisWorkbook.Close savechanges:=False
    Unload Me
    End If


    amin یه اسمه همینجوری فایل من دوتا تکست باکس تو فرمم داشته که مربوط به یوزر و پسورد بوده و گفتم که بعد از بسته شدن پاک بشن هر چند نظاری هم فرق نداره

    در ضمن من یه مسیج باکس دارم که در صورت yes تغیییرات رو save و در غیر این صورت یعنی no ،نمیشه

    اینو واسه کلید Exit یا QueryClose فرم بنویس اما اگر میخوای فرمت فقط با دکمه خروج بسته بشه و با ضربدر قرمز رنگ بسته نشه باید در QueryClose بنویسی cancel=true


    در پناه خداوندگار ایران زمین باشید و پیروز
    در پناه خداوندگار ایران زمین باشید و پیروز

    کامنت

    چند لحظه..