Terimakasih kang Opi atas respons nya....tapi di saya kenapa ga jalan ya. Sy suda masukan coding sbb:
Private Sub Website_Click()
DoCmd.RunCommand acCmdRefreshPage
If IsNull(Me!Website) Then
Exit Sub
Dim Fl As Long
Fl = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & Me!Website, vbNormalFocus)
End If
End Sub
Waktu di klik pada textbox tsb tidak ada reaksi apa2. Apakah ada yg kurang?
Best Regards
CW
From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com] On Behalf Of Sofyan Efendi
Sent: 10 Mei 2012 9:55
To: belajar-access@yahoogroups.com
Subject: [belajar-access] Re: Ketika di Klik Masuk Browser
Dear Kang Cecep,
Kalau diset pada event on click sepertinya riskan ya, karena nanti saat input, event ini akan aktif. Tapi tidak mengapa, sekedar belajar, bisa dimodif lagi nanti.
Saya coba tadi, dengan membuat text box biasa dengan nama Text42, diisi dengan tulisan: http://imopi.wordpress.com/
Kemudian pada event on click:
Private Sub Text42_Click()
DoCmd.RunCommand acCmdRefreshPage
If IsNull(Me!Text42) Then Exit Sub
Dim Fl As Long
Fl = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & Me!Text42, vbNormalFocus)
End Sub
Procedure diatas berlaku tidak hanya untuk hyperlink, tapi berlaku untuk membuka semua file yang terdaftar di Windows kita, termasuk MDB, DOX, XLS, PDF, dsb.
Silahkan ganti isinya dengan (misal): D:\Test.docx
Maka file dokumen Test.docx akan langsung terbuka, dengan syarat file tersebut memang ada, dan alamatnya benar.
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/
--- In belajar-access@yahoogroups.com, "cepwahyu" <cepwahyu@...> wrote:
>
> Halllo pencinta access semua,
>
>
>
> Saya punya satu texbox yg isinya alamat website, saya ingin ketika diklik
> langsung membuka browser...
>
> Please help...
>
>
>
> Best Regards
>
> CW
>
Tidak ada komentar:
Posting Komentar