Kod Penceresinden Verilere Ulaşmak

[emavus]

Merhaba arkadaşlar,

Access'de "Satışlar" tablosundaki kayıtlara vb kod penceresinden nasıl ulaşabilirim. Kod penceresinden bu kayıtlara ulaşıp veriler üzerinde işlem yapmak ve raporlar oluşturmak istiyorum.Yapmak istediğim işlemi sorgu kullanarak 12 sorgu ile ancak yapabiliyorum.Bunun yerine vb deki deyimlerle tek modülde yapabilceğim. Bide bu kayıtlara ulaşabilsem... :kafa:

Yardımlarınız için şimdiden teşekkür ederim.

 

[modalı]

Sorgu tasarı görünümünde sol üstteki SQL i tıklarsanız sorgunun SQL deki kodu görünüyor. Bunları herhangi bir modüle uygun şekilde yazarsanız herhalde isteğiniz gerçekleşir.

 

[emavus]

Sn. Modalı teşekkür ederim.


SQL, olarak değilde visualbasic deki döngüleri kullanabilceğim şekilde acaba bir tabloya ulaşabilirmiyim.
Ã?rneğin ben "Satışlar" tablomdaki Müşteri,tarih,cinsi,miktar alanlarıyla ilgili raporlar oluşturmak istiyorum. Bu alanlarıda vb ile okutup değerlerini başka değişkenlere atayacağım ve bunlar üzerinden sonuçlar çıkaracağım.
Konu ile ilgili bilgisi olan arkadaşların yardımını bekliyorum.
İyi çalışmalar.

 

[modalı]

Elimde aşağıdaki kodlar var Çeşitli sorguların VB deki uygulamaları. Umarım yardımcı olur.

Dim strSQLStart As String
  Dim strSQLFrom As String
  Dim strSQLWhere As String
  Dim strSQLOrder As String
  Dim strSQL as string
  strSQLStart = "SELECT TestTable.x1"
      strSQLStart = strSQLStart & "  , TestTable.x2"
      strSQLStart = strSQLStart & "  , TestTable.x3"
      strSQLStart = strSQLStart & "  , TestTable.DateIn"
      strSQLStart = strSQLStart & "  , TestTable.T1"
      strSQLStart = strSQLStart & "  , TestTable2.Id"
      strSQLStart = strSQLStart & "  , TestTable2.RecordName"
      strSQLStart = strSQLStart & "  , TestTable2.RecordDate"
   strSQLFrom = " From  TestTable2 "
      strSQLFrom = strSQLFrom & "  INNER JOIN TestTable "
      strSQLFrom = strSQLFrom & "  ON TestTable2.Id = TestTable.x1"
   strSQLWhere = " Where  (((TestTable2.RecordName) Like ""*Name*"") "
      strSQLWhere = strSQLWhere & "  AND ((TestTable2.RecordDate)>#1/15/2006#))"
   strSQLOrder = " Order By TestTable2.RecordDate DESC;"
   strSQL = strSQLStart & strSQLFrom & strSQLWhere & strSQLOrder

 

[emavus]

Çok teşekkür ederim.Bunun işimi göreceğini tahmin ediyorum.
Akşam deneyeceğim.
Allaha emanet ol.