PDA

View Full Version : استفاده از (Application.FileDialog(msoFileDialog برای ذخیره آبجکتهای انتخابی



hamid-nice
پنج شنبه 10 اسفند 1391, 01:37 صبح
سلام به همه دوستان


چطور می شه وقتی از دستور
( Application.FileDialog(msoFileDialog


استفاده می کنیم یک ( Text (unbounded بسازیم که بعد از ذخیره سازی فایل در هارد به وسیله این دستور ، آدرس و نام فایل به همراه پسوندش را در اون نمایش بده ( در فایل ضمیمه در Address )

و اینکه بتونیم براش تعریف کنیم که همه جداول و فقط فرم form1 را save کنه نه همه را

لطفا نمونه ضمیه را اصلاح فرمایید

با تشکر

hamid-nice
پنج شنبه 10 اسفند 1391, 16:02 عصر
سلام

آیا این مساله امکان پذیر نیست ؟

با تشکر

e601
پنج شنبه 10 اسفند 1391, 19:33 عصر
چطور می شه وقتی از دستور
( Application.FileDialog(msoFileDialog


استفاده می کنیم یک ( Text (unbounded بسازیم که بعد از ذخیره سازی فایل در هارد به وسیله این دستور ، آدرس و نام فایل به همراه پسوندش را در اون نمایش بده ( در فایل ضمیمه در Address )

سلام
با استفاده از همون خاصیت InitialFileName میتونید آدرس انتخابی کاربر رو بگیرید. میتونید بعد از msgbox از طریق این خاصیت ، آدرس رو در تکست باکس قرار بدید :

MsgBox "Databas has been backup", vbInformation
Me.Text184 = .InitialFileName


و اینکه بتونیم براش تعریف کنیم که همه جداول و فقط فرم form1 را save کنه نه همه را

فکر نمیکنم اینکار شدنی باشه چون در واقع شما داری فایل اکسس خودت رو save as میکنی. این تابع چیز بیشتری از این نداره...

hamid-nice
پنج شنبه 10 اسفند 1391, 23:15 عصر
سلام
با استفاده از همون خاصیت InitialFileName میتونید آدرس انتخابی کاربر رو بگیرید. میتونید بعد از msgbox از طریق این خاصیت ، آدرس رو در تکست باکس قرار بدید :

MsgBox "Databas has been backup", vbInformation
Me.Text184 = .InitialFileName


سلام دوست گرامی

ممنون این مورد کمی درست شد ولی هنوز یک مشکلی هست که هنگام save کردن اگر با نام دیگری به جز پیش فرضش save کنیم در text آنرا نمی اندازه بلکه همون نام پیش فرض را می اندازه

که اینگونه باید این را اصلاح کنیم (Me.Text184 = .SelectedItems(1

با تشکر فراوان