+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdan Web Sayfasi Acma (/konu-formdan-web-sayfasi-acma.html)
Formdan Web Sayfasi Acma - quad - 22/11/2009
Arkadaslar konu ile ilgili farkli mesajlar vardi ama yeni bir baslikta sormak daha iyi olur diye dusundum.
Form uzerinde bir butona tiklandiginda icinde text bolumunde yazan bilgiyide alarak bir int. explorer actirmak istiyorum.
yani wwww.google.com/ text21 e yazilan ve =fast gibi bir uzantisi olan.
ekteki sekilde yaptim. ancak sayfanin acilma suresi oldukca uzun suruyo. buton tıklandıktan sonra web sayfasinin gelmesi cok vakit aliyor.
diger sekilde daha hizli sayfayi acabiliyorum ancak bu sefer adrese istedigim gibi ekleme yapamiyorum.
yardimci olabilirmisiniz..
tesekkurler..
Private Sub komut1_Click()
a = "http://www.google.com/"
b = Me.Text21
c = "=fast"
Me.komut1.HyperlinkAddress = a & b & c
End Sub
2.tur
Private Sub Komut24_Click()
a = "http://www.google.com/"
b = Me.Text21
c = "=fast"
d = a & b & c
Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & d, vbMaximizedFocus)
End Sub
Cvp: Formdan Web Sayfasi Acma - mehmetdemiral - 22/11/2009
Sayın quad
Aşağıda sitemizde aynı konunun işlendiği linkleri veriyorum:
https://accesstr.net/konu-google-arama-yaptircak.html
Genel olarak sorgulama sonucuma da şurdan ulaşılıyor:
https://accesstr.net/googlearama.php?cx=partner-pub-1043250512993369%3Aggy18dg0e30&cof=FORID%3A10&ie=UTF-8&q=google+ile+arama&sa=Ara&siteurl=www.accesstr.net%2Fkonu-formdan-web-sayfasi-acma.html#1091
Cvp: Formdan Web Sayfasi Acma - quad - 22/11/2009
yapmak istedigim google arama sayfasi degil. googlei sadece ornek olarak yazdim.
istedigim xxx sitesinin linkine textteki metini ve son degiskendeki bilgiyi ekleyip oyle internet sayfasi acmak.
Private Sub Komut24_Click()
a = "http://www.xxxx.com/"
b = Me.Text21
c = "=fast"
d = a & b & c
Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE" & d, vbMaximizedFocus)
End Sub
tam olarak yapmak istedigim;
Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE
in sonunda istedigim adresi yazabiliyorum. ancak adres yazmak yerine degisken koyamiyorum. boyle bir imkanım varmı?
Cvp: Formdan Web Sayfasi Acma - quad - 23/11/2009
forumdan baska bir ornekten esinlenerek toparladim..
bu sekilde istedigim gibi calisiyor.
Dim blg, programi As String
programi = "C:\Program Files\Internet Explorer\IEXPLORE.EXE"
Me.Text21.SetFocus
blg = "http://www.xxx.tr/asdd=" & Me.Text21.Text & "&e=k"
a = Shell(programi & " " & blg, vbMaximizedFocus)