Skip to main content

AccessTr.neT


Dao İle Bir Sonraki Kayda Git

Dao İle Bir Sonraki Kayda Git

Çözüldü #1
Merhaba,

İlişkisiz form üzerinden dao ile kayıt yapan form oluşturdum. Kayıtlar arasında gezinmek istiyorum onun için bir düğmeye aşağıdaki kodu ekledim, düğmeye bastığımda sadece bir kayıt ileriye gidiyor. Düğmeye her basmamda bir kayıt ileriye gitmesini nasıl yapabilirim?
Teşekkür ederim

 Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
Dim SSQL As String
SSQL = "SELECT * FROM tbl_ornek"
Set db = CurrentDb
Set rs = db.OpenRecordset(SSQL, dbOpenDynaset, dbSeeChanges)
'rs.MoveFirst
rs.AddNew

rs![adi] = Me.tadi
rs.Update
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
.rar dao-ornek.rar (Dosya Boyutu: 22,67 KB | İndirme Sayısı: 3)
Cevapla
#2
öncelikle formunuza aşağıdaki yordamı ekleyin
Sub KayitDolas(Optional xGez As Integer)
Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim str As String
    Dim SSQL As String
'    SSQL = "SELECT * FROM tbl_ornek"
    Set db = CurrentDb
'    Set rs = db.OpenRecordset(SSQL, dbOpenDynaset, dbSeeChanges)
    Set rs = db.OpenRecordset("tbl_ornek", dbOpenTable, dbSeeChanges)

    rs.MoveFirst
    With rs
          ' Set the index.
          .Index = "PrimaryKey"
          If xGez = 0 Then
            .MoveFirst
          ElseIf xGez = 2 Then
            .MoveLast
          Else
          If Len(Me.tid & "") = 0 Then GoTo Kapat
            .Seek "=", Me.tid
            .Move xGez
          End If
    If .BOF Or .EOF Then GoTo Kapat
         
    End With

    Me.tadi = rs.Fields("adi").Value
    Me.tid = rs.Fields("id").Value
Kapat:
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
   
End Sub
kodun kaba mantığı şu
xGez değişkeni ile  yordama yapacağı işlem bilgisi gönderiliyor
  • xGez = -1 ise bir önceki kayda gider
  • xGez = 1 ise bir sonraki kayda gider
  • xGez = 0 ise bir ilk kayda gider
  • xGez = 2 ise bir önceki kayda gider
gerisi düğme ekleyip ilgili parametre ile yordamı çalıştırmak
mesela sonraki kayda gitme düğmesinin yordamı
Private Sub BtnSonra_Click()
KayitDolas 1
End Sub
Cevapla
#3
Merhaba

Hocam aşağıdaki hatayı veri,
[img][Resim: do.php?img=15284][/img]
Cevapla
#4
(25/03/2023, 12:59)berduş yazdı: öncelikle formunuza aşağıdaki yordamı ekleyin
mesajımda özellikle belirtmiştim kodu formunuza eklemeniz gerektiğini)
Cevapla
#5
Merhaba,

Hocam elinize, emeğinize sağlık çok teşekkür ederim çok güzel oldu.
(öncelikle formunuza aşağıdaki yordamı ekleyin) demenize rağmen dikkatsizlik ve acelecilik ederek modüle eklemişim kusuruma bakmayın zamanınızı aldım.

Sayılarımla.
Cevapla
#6
rica ederim)
dört işlevi de kontrol ettiniz mi?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task