Currentdb.openrecordset(Sql) - Baskı Önizleme

Currentdb.openrecordset(Sql) - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Currentdb.openrecordset(Sql) (/konu-currentdb-openrecordset-sql.html)

Sayfalar: 1 2 3 4

Cvp: Currentdb.openrecordset(Sql) - zaferlacin - 17/07/2019

Halily hocam istediğim tam bu olduğunu düşünüyorum teşekkür ederim şimdilik işlem tamam

Cvp: Currentdb.openrecordset(Sql) - berduş - 17/07/2019

ÖD)
iyi çalışmalar

RE: Currentdb.openrecordset(Sql) - zaferlacin - 17/07/2019

(17/07/2019, 23:03)halily yazdı: ÖD)
iyi çalışmalar

Proje bitene kadar daha çok görüşeceğiz gibi
Teşekkür ederim
İyi Çalışmalar

RE: Currentdb.openrecordset(Sql) - zaferlacin - 18/07/2019

Halily hocam sizin verdiğiniz örnekten yola çıktım Buraya Kadar Çalışıyor

Private Sub Komut75_Click()
Dim dbs As DAO.Database

Dim rss As DAO.Recordset

Dim txtSql As String

If IsNull([Metin1]) Then

MsgBox ("giriş yapmadınız")

Else

txtSql = "Select * from resimler where adi='" & CStr(Me.Metin1.Value) & "'"

Me.Liste6.RowSource = txtSql

Set dbs = CurrentDb

Set rss = dbs.OpenRecordset(txtSql, dbOpenDynaset)

Me.Metin2 = rss.Fields("resim_yol")

End If

End Sub

Private Sub next_Click()
Me.Recordset.MoveNext 'Bu Olmuyor Burayı Nasıl Yazmalıyım
Me.Metin2 = rss.Fields("resim_yol")
End Sub

Cvp: Currentdb.openrecordset(Sql) - berduş - 18/07/2019

Kod:

DoCmd.GoToRecord , , acNext

sadece bu kodu yazmanız yeterli sonraki kayıt için
bu arada 1 şey sorayım dün gönderdiğim kod yeterliydi diğer kodları eklemenize gerek var mıydı?

sql_hy.rar (Dosya Boyutu: 21,63 KB | İndirme Sayısı: 1)

Cvp: Currentdb.openrecordset(Sql) - berduş - 18/07/2019

bu arada aşağıdaki kodlar da ben de sorunsuz çalıştı

Private Sub BtnGeri_Click()

'DoCmd.GoToRecord , , acPrevious

Me.Recordset.MovePrevious

End Sub



Private Sub BtnIleri_Click()

'DoCmd.GoToRecord , , acNext

Me.Recordset.MoveNext

End Sub



Private Sub BtnIlk_Click()

'DoCmd.GoToRecord , , acFirst

Me.Recordset.MoveFirst

End Sub



Private Sub btnSon_Click()

'DoCmd.GoToRecord , , acLast

Me.Recordset.MoveLast

End Sub