Merhaba

Access&sql bağlantı yapılmış bir formda (http://www.access-sql.com/Konu-Ms-Access...Baglantisi) belirli bir alana göre arama veya bir combobaxtan seçerek seçilen kayıta gitme işlemini nasıl yapabiliriz.

Örnek olarak aşağıdaki kodu kullanmayı denediğimde " Operation is not allowed when the object is closed" uyarısını veriyor.

Yardımlarınızı bekliyorum, teşekkürler



Private Sub ara_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[SeriNo] = ''" & Me![ara] & "'"

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Merhaba
bu hata mesajı üzerinde işlem yaptığınız tablo yada sorgu açık olmadığından kaynaklanıyor bunun için;Dim deyimi sonrasına şuna benzer kod yazmanız gerekli;






kolay gelsin..

Sayın onur_can

Verdiğiniz kodu bir türlü uyarlamayamadım. Formun kod kısmı aşağıda. Yardımcı olurmusunuz. Teşekkürler



---------------------------------------------------------------------
Option Compare Database
---------------------------------------------------------------------
Private Sub Form_load()
Dim rst As New ADODB.Recordset
Dim strsql As String

Set cn = New ADODB.Connection
cn.ConnectionString = "driver={SQL Server};" & _
"server=EY;uid=admin;pwd=123;database=DTBS"
cn.Open

rst.CursorLocation = adUseClient
strsqla = "SELECT Tablo1.Id, Tablo1.ADI, Tablo1.Soyadı FROM TABLO1 "
rst.Open strsqla, cn, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst

rst.Close
cn.Close

Set rst = Nothing
Set cn = Nothing
End Sub
-------------------------------------------------------------------
Private Sub ADIara_AfterUpdate()

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst "[ADI] = '" & Me.ADIara & "'"

If Not rs.EOF Then Me.Bookmark = rs.Bookmark


End Sub
---------------------------------------------------------------------

Acaba problem çok mu zor ?

Eğer başka bir yöntemi varsa onuda uygulayabilirim.

Yapmak istediğim sql serverdaki tabloya bağlı bir access formunda comboboxtan seçtiğim kayıta gitmek.

Yardımlarınızı bekliyorum. teşekkürler

Kodu aşağıdaki şekilde değiştirdiğimde oldu. Çok basitmiş ama insanın aklına gelmior bazen Tşk.ler

Private Sub ADIara_AfterUpdate()

Me.ADI.SetFocus
DoCmd.FindRecord Me!ADIara, acEntire

End Sub