Skip to main content

AccessTr.neT


Kod ile SORGU yaratma

Yandemir
Yandemir
9
7138

Kod ile SORGU yaratma

#7
Paylaşım için teşekürler.
Cevapla
#8
Formda Çoklu Kriter (Üçüncü satır Testking 117-202 dumps
tarih alanları için) (VBA'da)
Cevapla
#9
(27/02/2013, 00:34)Yandemir yazdı:

  On Error GoTo Hatada                'Hata olduğunda
  Dim ObjQry As DAO.QueryDef       'Objemizi tanıtıyoruz QueryDef
  Dim Sql As String                     'Sorgumuz için Sql cümlemiz

  Sql = "SELECT * FROM TabloAdimiz WHERE ID=1"  'SQL Cümlemiz
  QryName = "SorguAdimiz"                 'Oluşacak sorgunun adı
  Set ObjQry = CurrentDb.CreateQueryDef(QryName, SQL) 'Sorgumuzu Yaratıyoruz

Hatada:
  If Err.Number = 3012 Then  'Yaratılan sorgu varsa 3012 hatası verir
     CurrentDb.QueryDefs.Delete (QryName)  'Sorgu var ise siler
     Resume     'Kaldığın yerden devam et
  End If

slm bana her türlü ekran büyüklügüne geçildiğinde kendi boyutunu alabilen 32/64 bit uyumlu bir kod verebilirmisniz.
 
   ObjQry.Close   'Yaratılan sorguyu kapatır kullanıma hazır hale gelir
   DoCmd.OpenQuery QryName, acNormal, acEdit   ' Sorguyu izletir tablo şeklinde
Cevapla
#10
"slm bana her türlü ekran büyüklügüne geçildiğinde kendi boyutunu alabilen 32/64 bit uyumlu bir kod verebilirmisniz."

yeni konu açınız.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task