باز کردن محل قرار گیری فایل عکس

[قله بلند]

با سلام

چگونه می توانم فایلی که حاوی عکس است را باز کنم ، تا کاربر بتواند عکس مورد نظر را ، هنگام اضافه کردن رکورد جدید در پایگاه داده ، در محل مورد نظر قرار دهد. تمام موارد موجود راجع به تصاویر را جستجو کردم و از همه موارد نیز استفاده کردم ولی متاسفانه جواب نگرفتم. تنها موردی که مفید بود ، انتخاب text به جای OLE بود که پاسخ داد ، فقط مشکل من باز کزدن محلی روی هارد دیسک است که عکس ها انجا قرار دارد .
ممنون می شوم اگر به صورت ساده و قدم به قدم توضیح دهید که باید چه کار کنم.

[bad_boy_2007]

فکر کنم اگر درست منظور شما رو متوجه شده باشم باید کدی مشابه کد زیر مشکل شما رو حل کنه :

Shell "mspaint c:\a.jpg", vbNormalNoFocus

کد فوق تصویر رو در Paeint باز میکنه و میتونی بجای mspaint از Explorer هم استفاده کنی و حتی فولدر حاوی تصویر رو باز کنی

[قله بلند]

با سلام وتشکر از راهنمایی شما
من از دستور بالا استفاده کردم وفایل تصاویر را روی explorer باز کردم ،حالا چگونهبا دستوری میتوانم تصویر مورد نظرم را بعد از انتخاب از لیست تصاویر در محل درج عکس (image or OLE) ، قرار دهم .
میدانم سوالم تکراری است ولی اجرای کدهای موجود یا تولید خطا میکنند و یا کاری انجام نمیدهند .
ممنونم میشوم اگر باز راهنمایی ام کنید.

[bad_boy_2007]

با سلام وتشکر از راهنمایی شما
من از دستور بالا استفاده کردم وفایل تصاویر را روی explorer باز کردم ،حالا چگونهبا دستوری میتوانم تصویر مورد نظرم را بعد از انتخاب از لیست تصاویر در محل درج عکس (image or OLE) ، قرار دهم .
میدانم سوالم تکراری است ولی اجرای کدهای موجود یا تولید خطا میکنند و یا کاری انجام نمیدهند .
ممنونم میشوم اگر باز راهنمایی ام کنید.
هیچ راهی وجود نداره !!! (از طریق Explorer)
1- Drag & Drop کردن عکس بر روی فرم رو فعال و آدرس آرایه ای از عکسها را بگیری (پیاده سازیش یکم سخته)
2- استفاده از دیالوگ باز کردن فایل (فکر کنم تو VBA با FileOpen)

[amiry54321]

فقط مشکل من باز کزدن محلی روی هارد دیسک است که عکس ها انجا قرار دارد .[/SIZE]

سلام تا جایی که من متوجه شدم برای حل مشکل شما...
در help>sample database >northwind sample database برو و فورم کارمندان را باز کن هم وقتی روی add pic کلیک کنی فلدر مشخصی باز می شود از کدهایش هم می توانی استفاده کنی

[saeed razaee]

دوست عزیز جستجو کنید نمونه برنامه موجود می باشد که درایو حاوی عکس را باز و باانتخاب عکس عکس در محل موجود روی فرم قرار می گیرد. اگر ضمیمه نمودن فایل از من درسن بود برای ارسال می کردم. نمی دانم چرا ضمیمه از من غیر فعال است .

[F_ashigh]

این هم نمونه
امیدوارم که مشکل حل بشه!

[قله بلند]

با سلام
بعد از بررسی های فایل های موجود و همچنین کدهای موجود در NorthWind بالاخره توانستم کدها را اجرا کنم ولی متاسفانه تصویر را نمی بینم ولی علت را هم نمی دانم. کل کد را قرار می دهم و تقاضا می کنم که من را راهنمایی کنید که مشکل کجاست که تصویر رویت نمی شود:


Option Compare Database
Option Explicit
Dim path As String
Private Sub Command3_Click()
' Use the Office File Open dialog to get a file name to use
' as an employee picture.
getFileName
End Sub


Private Sub Form_RecordExit(Cancel As Integer)
' Hide the errormsg label to reduce flashing when navigating
' between records.
errormsg.Visible = False
End Sub
Private Sub RemovePicture_Click()
' Clear the file name for the employee record and display the
' errormsg label.
Me![Imagepath] = ""
hideImageFrame
errormsg.Visible = True
End Sub
Private Sub Form_AfterUpdate()
' Requery the ReportsTo combo box after a record has been changed.
' Then, either show the errormsg label if no file name exists for
' the employee record or display the image if there is a file name that
' exists.
'Me!ReportsTo.Requery
Me.Requery
On Error Resume Next
showErrorMessage
showImageFrame
If (IsRelative(Me!Imagepath) = True) Then
Me![OLEBound1].Picture = path & Me![Imagepath]
Else
Me![OLEBound1].Picture = Me![Imagepath]
End If
End Sub
Private Sub ImagePath_AfterUpdate()
' After selecting an image for the employee, display it.
On Error Resume Next
showErrorMessage
showImageFrame
If (IsRelative(Me!Imagepath) = True) Then
Me![OLEBound1].Picture = path & Me![Imagepath]
Else
Me![OLEBound1].Picture = Me![Imagepath]
End If
End Sub
Private Sub Form_Current()
' Display the picture for the current employee record if the image
' exists. If the file name no longer exists or the file name was blank
' for the current employee, set the errormsg label caption to the
' appropriate message.
Dim res As Boolean
Dim fName As String


path = CurrentProject.path
On Error Resume Next
errormsg.Visible = False
If Not IsNull(Me!picture_raeeis) Then
res = IsRelative(Me!picture_raeeis)
fName = Me![Imagepath]
If (res = True) Then
fName = path & "\" & fName
End If


Me![OLEBound1].Picture = fName
showImageFrame
Me.PaintPalette = Me![OLEBound1].ObjectPalette
If (Me![OLEBound1].Picture <> fName) Then
hideImageFrame
errormsg.Caption = "Picture not found"
errormsg.Visible = True
End If
Else
hideImageFrame
errormsg.Caption = "Click Add/Change to add picture"
errormsg.Visible = True
End If
End Sub
Sub getFileName()
' Displays the Office File Open dialog to choose a file name
' for the current employee record. If the user selects a file
' display it in the image control.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Select Employee Picture"
.Filters.add "All Files", "*.*"
.Filters.add "JPEGs", "*.jpg"
.Filters.add "Bitmaps", "*.bmp"
.FilterIndex = 3
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![Imagepath].Visible = True
Me![Imagepath].SetFocus
Me![Imagepath].Text = fileName
'Me![FirstName].SetFocus



'Me![Imagepath].Visible = False
End If
End With
End Sub
Sub showErrorMessage()
' Display the errormsg label if the image file is not available.
If Not IsNull(Me!picture_raeeis) Then
errormsg.Visible = False
Else
errormsg.Visible = True
End If
End Sub
Function IsRelative(fName As String) As Boolean
' Return false if the file name contains a drive or UNC path
IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)
End Function
Sub hideImageFrame()
' Hide the image control
Me![OLEBound1].Visible = False
End Sub
Sub showImageFrame()
' Display the image control
Me![OLEBound1].Visible = True
End Sub

[bemilove]

من هم اين مشكل را دارم
(With Application.FileDialog(msoFileDialogFilePicker
كار من در اين قسمت متوقف مي شود

[bemilove]

تو رو خدا يكي مشكلم رو حل كنه
اين فايل يك ارور مي ده................براي گذاشتن عكس تو اكسس

[me.alizadeh]

تو رو خدا يكي مشكلم رو حل كنه
اين فايل يك ارور مي ده................براي گذاشتن عكس تو اكسس

این مشکل من هم هست

[Abbas Amiri]

باید رفرنس Microsoft office xx object library را به برنامه ات اضافه کنی