AccessTr.neT

Tam Versiyon: ADO Hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Değerli Arkadaşlar;
Programım da kayıt bölümünde ADO kullanıyorum. Aşağıda verdiğim sub da görüntülerini eklediğim hatayı veriyor. Forumda bir kaç arama yaptım ama çözüm bulamadım. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.
Private Sub kaydet_Click() 'Kayıt bölümü
Dim yeniyol As String
Dim yenidosya As String
Dim eskiyol As String
Dim eskidosya As String
Dim a1, a2, a3, say As Integer
Dim kayyer As String
Dim kaydos As String
Dim ekle As String



Metin129 = ""
' 1- Boşluk kontrolü yap
If fkitapad = "" Or IsNull(fkitapad) Then
MsgBox ("Kitap Adını boş geçemezsiniz")
fkitapad.SetFocus
Exit Sub
End If

'Dosya hazırlık işlemleri
eskidosya = dosyaad & "." & uzanti
a1 = Len(Right(kitapseckutu.Column(1), Len(kitapseckutu.Column(1)) - InStrRev(kitapseckutu.Column(1), "\")))
a2 = Len(kitapseckutu.Column(1))
a3 = a2 - a1
eskiyol = Left(kitapseckutu.Column(1), a3)
Metin129 = eskiyol
yenidosya = fkitapad & "." & uzanti
yeniyol = CurrentProject.Path & "\" & "KITAP" & "\"

' Seçeneklere bak

If adsecim = 1 And yersecim = 1 Then 'ad değiştir, klasöre kopyala
FileCopy kitapseckutu.Column(1), yeniyol & yenidosya
kaydos = yenidosya
kayyer = yeniyol & yenidosya
'eskisini silme mesajı
ElseIf adsecim = 1 And yersecim = 2 Then 'ad değiştir , olduğu yerde bırak
FileCopy kitapseckutu.Column(1), eskiyol & yenidosya
kaydos = yenidosya
kayyer = eskiyol & yenidosya
'eskisini silme mesajı
ElseIf adsecim = 2 And yersecim = 1 Then 'ad kalsın, klasöre kopyala
FileCopy kitapseckutu.Column(1), yeniyol & eskidosya
kaydos = eskidosya
kayyer = yeniyol & eskidosya
'eskisini silme mesajı
End If

Dim rs As New ADODB.Recordset
rs.Open "F_KITAP", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

'With rs
rs.AddNew
rs("kitapadi") = fkitapad
rs("yeri") = kayyer
rs("sayfa") = fsayfa
rs("edbturno") = edebiturkutu
rs("genturno") = genelturkutu
rs("altturno") = altturkutu
rs("ozturno") = ozelturkutu
'burada sorun olabilir.
If ankelliste <> "" Or ankelliste <> Null Then 'ankelliste boş değilse
For say = 0 To ankelliste.ListCount - 1
rs("ankelno" & say + 1) = ankelliste.Column(0, say)
Next
End If

rs("yayinevino") = yayevikutu
rs("basyil") = fbasyil
rs("basno") = fbassay
rs("kisakonu") = fkisakonu
rs("okunma") = oku
rs("onkapakyolu") = fonkapakyolu
rs("arkakapakyolu") = farkakapakyolu
rs("dilno") = dilkutu
rs.Update
'End With
rs.Close


'Yazar bağnatılarını yap

If secilenyazarliste <> "" Or secilenyazarliste <> Null Then 'yazar seçilmişse...
For say = 0 To secilenyazarliste.ListCount - 1
ekle = "INSERT INTO T_YAZARBAG ( kitapno, yazarno)" _
& " values(fkno,secilenyazarliste.column(0,say))"
DoCmd.RunSQL ekle
Next
End If
'Çevirmen bağlantılarını yap

If secilencevirmenliste <> "" Or secilencevirmenliste <> Null Then 'cevirmen seçilmişse...
For say = 0 To secilencevirmenliste.ListCount - 1
ekle = "INSERT INTO T_CEVIRMENBAG ( kitapno, cevirmenno)" _
& " values(fkno,secilencevirmenliste.column(0,say))"
DoCmd.RunSQL ekle
Next
End If

'Notlar bağlantılarını yap

If faciklama <> "" Or faciklama <> Null Then 'not kısmında yazı varsa
ekle = "INSERT INTO T_NOTLAR ( kitapno, aciklama)" _
& " values(fkno,'" & faciklama & "' )"
DoCmd.RunSQL ekle
End If

'geçici dosyadan sil

' Mesajı ver
MsgBox (fkitapad & " adlı kitabınızın kaydı başarıyla tamamlanmıştır")
' Ekranı temizle yeni kayda hazırla
temizle
kitapseckutu.SetFocus


End Sub
rsopen "SELECT * FROM F_KİTAP", .......

şeklinde denermisiniz...
İlginize çok teşekkür ederim Sayın horozufuk;
Ama maalesef olmadı. Aşağıdaki hatayı aldım.
FROM yazmayı unutmuşum tekrar deneyiniz.
Bu seferki hata mesajımız şöyle;
Örneğinizi eklermisiniz.
Sayfalar: 1 2