24/07/2014, 15:00
Sayfalar: 1 2
24/12/2014, 23:08
Formda Çoklu Kriter (Üçüncü satır Testking 117-202 dumps
tarih alanları için) (VBA'da)
tarih alanları için) (VBA'da)
10/09/2015, 16:31
(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
23/12/2015, 21:37
"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.
yeni konu açınız.
Sayfalar: 1 2