Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
01/12/2010 16:00
Konu Sahibi
Hayri16
Yorumlar
7
Okunma
2999
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
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


Ek Dosyalar Ekran Görüntüleri
           
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

POWER

Uzman
Uzman
UF.... ÖZ....
 54
 1.874
 43
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 18/09/2018,02:14
Çözüldü 
rsopen "SELECT * FROM F_KİTAP", .......

şeklinde denermisiniz...


Please return your positive or negative ...

Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
İlginize çok teşekkür ederim Sayın horozufuk;
Ama maalesef olmadı. Aşağıdaki hatayı aldım.


Ek Dosyalar Ekran Görüntüleri
   
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

POWER

Uzman
Uzman
UF.... ÖZ....
 54
 1.874
 43
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 18/09/2018,02:14
Çözüldü 
FROM yazmayı unutmuşum tekrar deneyiniz.


Please return your positive or negative ...

Kullanici Avatari

Hayri16

Aktif Üye
Aktif Üye
 58
 1.010
 56
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Bu seferki hata mesajımız şöyle;


Ek Dosyalar Ekran Görüntüleri
   
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

POWER

Uzman
Uzman
UF.... ÖZ....
 54
 1.874
 43
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 18/09/2018,02:14
Çözüldü 
Örneğinizi eklermisiniz.


Please return your positive or negative ...


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü ALike Hatası notrino 2 52 20/09/2018, 10:02
Son Yorum: notrino
Çözüldü Liste Kutusu Eksik İsleç Hatası hey 19 342 16/09/2018, 18:38
Son Yorum: hey
Çözüldü Form Da Yapmış Olduğum Hesaplama İşlemi #tür! Hatası Veriyor kursun 3 169 15/09/2018, 21:10
Son Yorum: kursun
Çözüldü Hata: Birinci Tablonun Başvurulan Alanı İçin Benzersiz Dizin Bulunamadı.hatası kursun 4 134 15/09/2018, 12:52
Son Yorum: ozanakkaya
Çözüldü Hata: Birinci Tablonun Başvurulan Alanı İçin Benzersiz Dizin Bulunamadı.hatası kursun 8 183 15/09/2018, 12:51
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.