Terimakasih sebelumnya pak Abduhsuryadi
saya menggunakan msaccess2013 saat ini, dan Blum berhasil.
di Reference ada ; Microsoft access 15.0 Object library (sudah dicentang).
Pada Kamis, 10 Juli 2014 13:48, "abduhsuryadi@gmail.com [belajar-access]" <belajar-access@yahoogroups.com> menulis:
tambah reference ke Microsft Office 12.0 Object Library (untuk office 2007)
kemudian paste kode berikut di onclick tombol browse
Dim Dlg As FileDialog
Dim sFileTerpilih As String
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "pilih file"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Files", "*.jpg;*.bmp;*.gif;*.png;*.doc*;*.xls*"
If .Show = -1 Then
sFileTerpilih = .SelectedItems(1)
Else
Exit Sub
End If
End With
Me.Lokasi_nama = sFileTerpilih
kemudian paste kode berikut di onclick tombol browse
Dim Dlg As FileDialog
Dim sFileTerpilih As String
Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
With Dlg
.Title = "pilih file"
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "Files", "*.jpg;*.bmp;*.gif;*.png;*.doc*;*.xls*"
If .Show = -1 Then
sFileTerpilih = .SelectedItems(1)
Else
Exit Sub
End If
End With
Me.Lokasi_nama = sFileTerpilih
__._,_.___
Posted by: johari anak betawi <johari.anakbetawi@yahoo.co.id>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (3) |
Yahoo Groups
Control your view and sort preferences per Yahoo Group
You can now control your default Sort & View Preferences for Conversations, Photos and Files in the membership settings page.
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar