سلام خدمت دوستان
سوالی داشتم خدمتتون و اگر تکراری هست ببخشین چون گشتم ولی نتیجه نگرفتم
چطور میتونم در یه textbox که در فرم دارم ادرس فایلی رو بدم و با کلید که در کنارش میزارم اون فایل رو باز کنم؟ حالا هر فایلی که باشه
ممنون میشم راهنمایی بفرمایید
سلام خدمت دوستان
سوالی داشتم خدمتتون و اگر تکراری هست ببخشین چون گشتم ولی نتیجه نگرفتم
چطور میتونم در یه textbox که در فرم دارم ادرس فایلی رو بدم و با کلید که در کنارش میزارم اون فایل رو باز کنم؟ حالا هر فایلی که باشه
ممنون میشم راهنمایی بفرمایید
سلام
این کد رو برای رویداد کلیک ، کلیدت استفاده کن
Dim objFD As Object
Dim strOut As String
strOut = vbNullString
Set objFD = Application.FileDialog(3)
objFD.ButtonName = "انتخاب"
objFD.Title = "لطفا فایل مورد نظر را انتخاب کنید"
If objFD.Show = -1 Then
strOut = objFD.SelectedItems(1)
End If
Set objFD = Nothing
FolderSelection = strOut
Dim strChoice As String
strChoice = FolderSelection
If Len(strChoice) > 0 Then
Me.AccessPath = strChoice
Else
End If
بجای Me.AccessPath اسم تکست باکست رو بنویس
ممنون از توجه و پاسخگویی شما دوست عزیز
خب این کد ادرس رو روی textbox میندازه و لی من میخوام کلیدی هم داشته باشم که فایل رو از همون ادرسی که روی textbox افتاده اجراش کنم
و یه زحمت دیگه میشه در کنارشون یه لیبل یا چند تا لیبل گذاشت که مشخصات فایل رو نشون بده؟
مثل سایز و فرمت از اینجور چیزا؟
این دکمه تشکر حذف شده یا من نمیبینم؟
خواهشا راهنمایی بفرمایید دوستان
کارم خیلی واجبه
ممنون میشم
برای اجرا کردن
Application.FollowHyperlink Me!AccessPath.Value
کمال تشکر رو دارم از پاسخگویی شما
فقط یه سوال دیگه دارم که اگه راهنمایی کنید لطف بزرگی کردین
در کنار این textbox ادرس فایلی که داریم یک textbox دیگه بزاریم و یه دکمه دیگه که با زدن دکمه فایل تکست اول رو به ادرس تکست دوم کپی کنه.
ممنون و سپاسگزارم
سلام تو نمونه یه کلید گذاشتم که هم فایل رو جای دیگه در کامپیوتر ذخیره میکنه و هم ادرس رو تو یه تکست بکس دیگه اگه درست متوجه منظورت شده باشم
ببخشید یادم رفت ضمیمه کنم
ممنون از لطفت دوست خوبم
ولی هیچ کدوم از باتن ها کار نمیکنه
ببخشید فکر کنم ایراد از اکسس منه
سلام تست کردم کار میکنه مشکل از افیس شماست احتمالا
یه تکس باکس بنام txtTarget اضافه کن یه کلید بذار و این کد رو براش کپی کن (برا کپی فایل در قسمت دیگر از کامپیوتر
Me.txtTarget = Me.AccessPath
Dim Dialog As Object
Dim Selected As Long
Set Dialog = Application.FileDialog(2)
With Dialog
.AllowMultiSelect = False
.InitialFileName = Nz(Me!txtTarget.Value)
.Title = "Name saved file"
Selected = .Show
If Selected <> 0 Then
Me!txtTarget.Value = .SelectedItems.Item(1)
If Not IsNull(Me!AccessPath.Value) Then
FileCopy Me!AccessPath.Value, Me!txtTarget.Value
End If
End If
End With
Cancel = True
اوکی افیس رو دوباره نصب کردم ردیف شد خیلی لطف کردی رفیق
فقط میشه کاری کرد که که وقتی عملیات کپی به اتمام رسید یه پیغامی بده یا یه پروگرس بار براش گذاشت؟
برای اینکه کاربر متوجه بشه کار کپی به اتمام رسیده.
ممنون
سلام خواهش
قبل از end if یه مسیج بذار
سلام عزیز
پروگرس بار هم میشه گذاشت؟
دوستان کمک لطفا
بجای مسیج میشه پروگرس بار گذاشت؟
راهنمایی کنید.ممنون