DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba ahmet114 yukarıda özelime attığınız yazıya cevaben forma sormanızı yazmış idim.Bahse konu Hata mesajı üzerinde yaptığım incelemede;ahmet114' Alıntı:verdiğiniz linkteki resim dosyası güzel fakat hata veriyor nasıl düzeltirim
merhaba jale hn. acseste yapmış oldugunuz form çok güzel ama ben malsef yaptığım çalışmaya bunu ekleyemedim.sürekli debug oluyor.jale' Alıntı:Merhaba
Başka bir resim ekleme uygulaması.
Ekli File:resim.zip
[COLOR="Red"]Sub getFileName()[/COLOR]
' 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([COLOR="Red"]msoFileDialogFilePicker[/COLOR])
.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
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
[COLOR="Red"] Me![ImagePath].Text = fileName[/COLOR]
Me![Ad].SetFocus
Me![ImagePath].Visible = False
End If
End With
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
[COLOR="Red"] Me![ImagePath].Text = fileName[/COLOR]
Me![Ad].SetFocus
Me![ImagePath].Visible = False
End If
End With
End Sub