Skip to main content

AccessTr.neT


Kod ile SORGU yaratma

Yandemir
Yandemir
9
7135

Kod ile SORGU yaratma

#1

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

ObjQry.Close 'Yaratılan sorguyu kapatır kullanıma hazır hale gelir
DoCmd.OpenQuery QryName, acNormal, acEdit ' Sorguyu izletir tablo şeklinde
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
#2
Paylaşım ve açıklamalar için teşekkürler.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
#3
güzel basit bir örnek ve arada lazım oluyor.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
#4
tesekkurler ustad.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla
#5
Açıklamalı paylaşım için teşekkürler.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#6
Katkı ve paylaşımınız için teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da