N
Noname
Misafir
Mehaba arkadaşlar, data control kullanıyorum ama şu arama işinin içinden bi türlü çıkamadım.
datBiblio.Recordset.Index = "Title" yazan kısmın "Title" Kısmına ararken kullanacağı tablo adını yazmayacakmıyız?
Daha sonrada Data Controlün RecordSetType özelliğini "0 Table" olarak ayarlamayacakmıyız?
Ya yapıyorum ama hep şu hatayı veriyo.
-> Run-Time error '3015':
"Title" isn't an index in table. Look in the Indexes collction of the
TAbleDef object to determine the valid index names.
Evet yazdığım tablo adına göre "title" değişiyo tabi. Ama hep aynı şey. Nasıl olcak???
teşekkürler..
Private Sub cmdFind_Click()
prompt$ = "Kitap adını tam (eksiksiz) olarak yazın."
'Kitap Adı alanı taramasında kullanılacak diziyi al
SearchStr$ = InputBox(prompt$, "Kitap Araması")
datBiblio.Recordset.Index = "Title" ' Title tablosunu kullan
datBiblio.Recordset.Seek "=", SearchStr$ 've ara
If datBiblio.Recordset.NoMatch Then 'dizi bulunamazsa
MsgBox ("Üzgünüm, aradığınız kitabı bulamadım.")
datBiblio.Recordset.MoveFirst 'birinci kayda git
End If
End Sub
datBiblio.Recordset.Index = "Title" yazan kısmın "Title" Kısmına ararken kullanacağı tablo adını yazmayacakmıyız?
Daha sonrada Data Controlün RecordSetType özelliğini "0 Table" olarak ayarlamayacakmıyız?
Ya yapıyorum ama hep şu hatayı veriyo.
-> Run-Time error '3015':
"Title" isn't an index in table. Look in the Indexes collction of the
TAbleDef object to determine the valid index names.
Evet yazdığım tablo adına göre "title" değişiyo tabi. Ama hep aynı şey. Nasıl olcak???
teşekkürler..
Private Sub cmdFind_Click()
prompt$ = "Kitap adını tam (eksiksiz) olarak yazın."
'Kitap Adı alanı taramasında kullanılacak diziyi al
SearchStr$ = InputBox(prompt$, "Kitap Araması")
datBiblio.Recordset.Index = "Title" ' Title tablosunu kullan
datBiblio.Recordset.Seek "=", SearchStr$ 've ara
If datBiblio.Recordset.NoMatch Then 'dizi bulunamazsa
MsgBox ("Üzgünüm, aradığınız kitabı bulamadım.")
datBiblio.Recordset.MoveFirst 'birinci kayda git
End If
End Sub