Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
22/11/2009 22:01
Konu Sahibi
quad
Yorumlar
3
Okunma
1970
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

quad

Üye
 35
 7
 23
 12/10/2009
0
 İstanbul
 
 Ofis 2003
 24/05/2011,12:16
Çözüldü 
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


quad, 12-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

mehmetdemiral

Uzman
Me.... De....
 54
 218
 4.926
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 23/02/2019,21:53
Çözüldü 
Sayın quad
Aşağıda sitemizde aynı konunun işlendiği linkleri veriyorum:

https://www.accesstr.net/konu-google-ara...ircak.html

Genel olarak sorgulama sonucuma da şurdan ulaşılıyor:

https://www.accesstr.net/googlearama.php....html#1091


İnadına, ille de Accesstr.net...

Kullanici Avatari

quad

Üye
 35
 7
 23
 12/10/2009
0
 İstanbul
 
 Ofis 2003
 24/05/2011,12:16
Çözüldü 
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ı?


quad, 12-10-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

quad

Üye
 35
 7
 23
 12/10/2009
0
 İstanbul
 
 Ofis 2003
 24/05/2011,12:16
Çözüldü 
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)


quad, 12-10-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Aktif Form Kaydının Raporunu Açma mahsumyavuz 2 81 02/03/2019, 13:26
Son Yorum: mahsumyavuz
Çözüldü Yeni Formda Açma access acemisi 4 168 02/03/2019, 10:23
Son Yorum: access acemisi
Çözüldü Sorgu Kriterini Formdan Almak Ertugrul Kuzu 5 143 11/02/2019, 17:37
Son Yorum: Ertugrul Kuzu
Çözüldü Keydown İle Aynı Arama Listesinden 2 Ayrı Formdan Birine Veri Çekebildim. Oğuz Türkyılmaz 7 244 31/01/2019, 13:17
Son Yorum: Oğuz Türkyılmaz
Çözüldü Bir Formdan Başka Açık Bir Formda Bulunan Altformdaki Bir Alana Setfocus Yaptırabilme hbal09 2 137 11/01/2019, 16:20
Son Yorum: Allback

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.