Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

VBA İle Sorgu

idrisy
idrisy
Access Cevaplanmış Soruları
3
3571

VBA İle Sorgu

Çözüldü #1
idrisy
Aktif Üye
idrisy
Bul
Aktif Üye
Adı Soyadı: İd.... YE....
Yaşı: 55
Konum: Osmaniye
Ofis Versiyonu: Ofis 2021 32 Bit
Son Oturumu: 01/08/2025,18:00
Yorumları: 224
Konuları: 57
Kayıt Tarihi: 27/12/2008
Teşekkür Puanı: 11
Sayın hocalarım; Aşağıdaki sorguyu Vba kodu olarak yazmak ve buton ile çalıştırmak istiyorum. Nasıl yazabiliriz? 

SELECT T300_DisiplinGorusme.ID, T300_DisiplinGorusme.OkulNo, T300_DisiplinGorusme.AdiSoyadi, T300_DisiplinGorusme.Sinifi, T300_DisiplinGorusme.sube, T300_DisiplinGorusme.Cinsiyeti, T300_DisiplinGorusme.GorusmeNo, T300_DisiplinGorusme.DisplineVeren, T300_DisiplinGorusme.Ek, T300_DisiplinGorusme.veren, T300_DisiplinGorusme.sonek, T300_DisiplinGorusme.Neden, T300_DisiplinGorusme.DilekceTarihi, T300_DisiplinGorusme.GorusmeTarihi, T300_DisiplinGorusme.Ay, T300_DisiplinGorusme.Danisman, T300_DisiplinGorusme.Karar, T300_DisiplinGorusme.Gorusme, T300_DisiplinGorusme.Onay, T300_DisiplinGorusme.oyil FROM T300_DisiplinGorusme;
Cevapla
Çözüldü #2
POWER
Uzman
POWER
Bul
Uzman
Adı Soyadı: Uf.... Öz....
Yaşı: 61
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 11/08/2025,14:15
Yorumları: 1.893
Konuları: 44
Kayıt Tarihi: 02/04/2010
Teşekkür Puanı: 1.899
Mesleğiniz: Bilgisayar Mühendisi 

Docmd.RunSQL "SELECT T300_DisiplinGorusme.ID, T300_DisiplinGorusme.OkulNo, T300_DisiplinGorusme.AdiSoyadi, T300_DisiplinGorusme.Sinifi, T300_DisiplinGorusme.sube, T300_DisiplinGorusme.Cinsiyeti, T300_DisiplinGorusme.GorusmeNo, T300_DisiplinGorusme.DisplineVeren, T300_DisiplinGorusme.Ek, T300_DisiplinGorusme.veren, T300_DisiplinGorusme.sonek, T300_DisiplinGorusme.Neden, T300_DisiplinGorusme.DilekceTarihi, T300_DisiplinGorusme.GorusmeTarihi, T300_DisiplinGorusme.Ay, T300_DisiplinGorusme.Danisman, T300_DisiplinGorusme.Karar, T300_DisiplinGorusme.Gorusme, T300_DisiplinGorusme.Onay, T300_DisiplinGorusme.oyil FROM T300_DisiplinGorusme;"
Please return your positive or negative ...
Cevapla
Çözüldü #3
idrisy
Aktif Üye
idrisy
Bul
Aktif Üye
Adı Soyadı: İd.... YE....
Yaşı: 55
Konum: Osmaniye
Ofis Versiyonu: Ofis 2021 32 Bit
Son Oturumu: 01/08/2025,18:00
Yorumları: 224
Konuları: 57
Kayıt Tarihi: 27/12/2008
Teşekkür Puanı: 11
Hocam; Buton ile çalıştırabileceğim şekilde kodun tamamını yazabilir misin?
Cevapla
Çözüldü #4
idrisy
Aktif Üye
idrisy
Bul
Aktif Üye
Adı Soyadı: İd.... YE....
Yaşı: 55
Konum: Osmaniye
Ofis Versiyonu: Ofis 2021 32 Bit
Son Oturumu: 01/08/2025,18:00
Yorumları: 224
Konuları: 57
Kayıt Tarihi: 27/12/2008
Teşekkür Puanı: 11
Teşekkürler Hocalarım sorunumu çözdüm.
İlgilenene arkadaşlar için Çözümü:

Private Sub Komut0_Click()
Dim rs As New ADODB.Recordset
Dim sorgu As String
sorgu = "SELECT [T300_DisiplinGorusme].[ID], [T300_DisiplinGorusme].[OkulNo], [T300_DisiplinGorusme].[AdiSoyadi], [T300_DisiplinGorusme].[Sinifi], [T300_DisiplinGorusme].[sube], [T300_DisiplinGorusme].[Cinsiyeti], [T300_DisiplinGorusme].[GorusmeNo], [T300_DisiplinGorusme].[DisplineVeren], [T300_DisiplinGorusme].[Ek], [T300_DisiplinGorusme].[veren], [T300_DisiplinGorusme].[sonek], [T300_DisiplinGorusme].[Neden], [T300_DisiplinGorusme].[DilekceTarihi], [T300_DisiplinGorusme].[GorusmeTarihi], [T300_DisiplinGorusme].[Ay], [T300_DisiplinGorusme].[Danisman], [T300_DisiplinGorusme].[Karar], [T300_DisiplinGorusme].[Gorusme], [T300_DisiplinGorusme].[Onay], [T300_DisiplinGorusme].[oyil] FROM [T300_DisiplinGorusme];"
[Forms]![Form1].[Form]![Liste4].RowSource = sorgu
rs.Open sorgu, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'MsgBox rs(0)
'MsgBox rs(1)
Set rs = Nothing
Liste4.Requery
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task