Skip to main content

AccessTr.neT


Etiketler
Yazar: chopper07 - Cevaplar: 2 - İzleme: 3258
Butonla Web adresini Açtırma
Bir Butonun veya Labelın Click Olayına Ekleyin


Kod:
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("www.accesstr.net adresini açmak istiyor musunuz?", vbInformation + vbYesNo, www.accesstr.net )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe https://accesstr.net", vbNormal )
Case vbNo
Exit Sub
End Select

Yazar: adams43 - Cevaplar: 7 - İzleme: 7326
Butonla klasör açmak
Arkadaşlar form üzerindeki bir butonla yine aynı formaki bir alanın değeriyle aynı adı taşıyan bir klasörü açtırmak istiyorum. Açtırmak istediğim klasörün yolu belli.
Örneğin;
C:..../Belgelerim/[formdaki alanın değeri]

Bu klasörü açtırabilirmiyiz? Tabiiki Access içinde değil. Normal Microsoft explorer ekranında.

Yardımlarınız için şimdiden teşekkür ederim.
Yazar: HandSword - Cevaplar: 7 - İzleme: 5220
Formda ArkaPlan ve Label Renklerini Butonla değiştirme Uygulaması
Merhaba, Form üzerinde arkaplan zemin ve label renk düzenlerinin buton kullanarak kullanıcı tarafından aynen sitemizde olduğu gibi renklere saygının değişik bir versiyonu olan bir uygulama olup, geliştirilebilir... saygılarımla...

Biraz çok uygulama örneği eklemek teşekkürü ortadan kaldırıyor mu ne ? Fur biraz ara mı verelim ne? Img-grin
Yazar: ancyra - Cevaplar: 1 - İzleme: 2855
Butonla İnternet sayfasını açmak
Formda daha önce database'de kayıtlı internet adreslerini formda arama yaparak butonla açmak istiyorum. Nasıl bir yol izliyebilirim?

Dim baglan As String
baglan = tbxpdsyol.Text
Shell("C:\Program Files\Internet Explorer\iexplore.exe " & baglan, AppWinStyle.MaximizedFocus)

böyle denedim olmadı.
tamamdır sorun çözüldü. Referanslardan --- Microsoft internet controls yükledim sorun haloldu.
Yazar: makarax - Cevaplar: 2 - İzleme: 2232
tek butonla a formunu kapatıp b formunu açsın
Arkadaşlar merhaba, A formundaki command1 butonanına tıkladığımda, A formunun kapanıp B formunun açılması istiyorum. Yardımcı olursanız sevinirim.
Yazar: makarax - Cevaplar: 4 - İzleme: 3254
textboxta imlecin olduğu yere, butonla karakter ekleme.
Merhaba üstatlar. Ø ve ° butonlarına bastığımda, bunları metin kutusundaki imlecin olduğu yere eklemek istiyorum. Yardımcı olursanız sevinirim. ornek ektedir.
Yazar: HandSword - Cevaplar: 8 - İzleme: 6837
Mouse (Fare) İşlevinin Butonla Aktif ve Pasif Uygulaması
Merhaba, Forumumuzda Mouse (Fare) tekerleğinin (Orta Scroll) düğmesinin iptali konusunda anlaşılır anlaşılmaz bazı uygulamalar mevcut, bazı arkadaşlar sadece uygulamalarında bir formda veya kullanıcının insiyatifinde fare tekerleğinin iptali gibi birkaç istem ve söylemlerde bulunmuş, Detaylı araştırma yapamasam da konu ile ilgili sadece bir form üzerinde komut düğmesiyle Mouse (Fare) orta scroll düğmesinin aktif ve pasif yapılmasını uygulamacının insiyatifine bırakan bir örnek uygulamayı arkadaş
Yazar: HandSword - Cevaplar: 3 - İzleme: 3717
Formda Altform Girişlerini Butonla Aşağı&Yukarı Taşıma Uygulaması
Merhaba, Formda bulunan altform üzerindeki giriş değerlerinin yerlerini aşağı veya yukarı form üzerinde butonla taşımak isteyen arkadaşlar olabilir. Belki bir yerlerde ihtiyaç olabilir diye dış kaynaktan temin ettiğim uygulamayı arkadaşlara fikir vermesi açısından sunuyorum. Saygılarımla...
Yazar: emolokka - Cevaplar: 10 - İzleme: 4974
Radio Butonla Seçtiğimiz Bir Fiyatı Butona Bastıgımız Zaman Ekrana O Seçtiğimiz Fiyat
Arkadaşlar Bana Yardımcı Olur musunuz Acaba Ben Bir Otopark Programı Yapmaktayım Fiyatlar Listesine Tıkladığımızda Fiyatlar Listesindeki Radio Butonundaki Bir Tane Fiyat Seçip Ondan Sonra Butona Bastığımızda Ekrana 2tl Yi Seçtiysek Ekrana Ücret 2 Tl Yazdırma Bunu Nasıl Yapabiliriz Acaba Yardımcı Olursanız Çok Sevinirim Sağolun.
Yazar: access_42 - Cevaplar: 2 - İzleme: 3090
Kapalı Dosyadan Butonla Sütun Kopyalama
Merhabalar,

Excel de kapalı bir dosyadan bir sütunu buton aracılığı ile kopyalamak ve açık olan dosyama yapıştırmak istiyorum.İnternette yaptığım araştırmalar sonucu şöyle bir kod derledim :
Kod:
Sub Macro1()
    Workbooks.Open dosyanın yolu ve adı.xls
        With ThisWorkbook.Sheets(1)
             .Range(A1).Copy Sheets(1).Range(A1)
             .Range(A2).Copy Sheets(1).Range(A2)
        End With
    ActiveWorkbook.Close True
End Sub

ancak çalışmadı. Nasıl bu işlemi g
Task