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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

Hayri16

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


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

Kullanici Avatari

POWER

Uzman
UF.... ÖZ....
 54
 1.874
 44
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 Dün,12:38
Çözüldü 
rsopen "SELECT * FROM F_KİTAP", .......

şeklinde denermisiniz...


Please return your positive or negative ...

Kullanici Avatari

Hayri16

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.


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

Kullanici Avatari

POWER

Uzman
UF.... ÖZ....
 54
 1.874
 44
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 Dün,12:38
Çözüldü 
FROM yazmayı unutmuşum tekrar deneyiniz.


Please return your positive or negative ...

Kullanici Avatari

Hayri16

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;


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

Kullanici Avatari

POWER

Uzman
UF.... ÖZ....
 54
 1.874
 44
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 Dün,12:38
Çö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ü Compile error in hidden module hatası çözümü nedir? mehami 5 3.034 13/12/2018, 10:20
Son Yorum: ozanakkaya
Çözüldü Formu Bulmama Hatası notrino 1 59 12/12/2018, 13:57
Son Yorum: notrino
Çözüldü MSXML2.DOMDocument kodunda User-defined type not defined hatası access acemisi 2 72 05/12/2018, 13:54
Son Yorum: access acemisi
Çözüldü Formda Kayıt Yapıldığında Yinelenen Değerler Hatası Alıyorum Oğuz Türkyılmaz 2 64 05/12/2018, 00:52
Son Yorum: Oğuz Türkyılmaz
Çözüldü "Method 'FileDialog' of object '_Application' failed" hatası access acemisi 5 115 27/11/2018, 14:53
Son Yorum: access acemisi

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