VBA İle Sorgu - Baskı Önizleme +- 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ığı: VBA İle Sorgu (/konu-vba-ile-sorgu.html) |
VBA İle Sorgu - idrisy - 08/07/2012 Sayın hocalarım; Aşağıdaki sorguyu Vba kodu olarak yazmak ve buton ile çalıştırmak istiyorum. Nasıl yazabiliriz?
Cvp: VBA İle Sorgu - POWER - 09/07/2012
Cvp: VBA İle Sorgu - idrisy - 09/07/2012 Hocam; Buton ile çalıştırabileceğim şekilde kodun tamamını yazabilir misin? Cvp: VBA İle Sorgu - idrisy - 10/07/2012 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 |