sayın mntf02,
Alıntı:Sayısal değer içeren alanlar şunlardır;
1) K
2) D
3) DY
4) KU
5) IDDC
6) IDOD
7) M
8) CB
9) IDT
10) CC
11) KD
12) KVN
13) MS
14) MD
15) KS
yukarıda belirttiğiniz bilgileri,tablonuzdaki alanların sayı veri türü olarak hazırlanmış olduğunu ve form üzerinde de aynı isimlerle kendilerine karşılık gelen metin kutularını da sayısal veri girişi olarak ele alınacak olunduğunda;sql sorgu ifadenizdeki bu sayı veri türü girişi içeren ilgili metin kutularının düzenlenmiş hali aşağıdaki kodlamada yer almaktadır.inceleyebilirsiniz.
Private Sub Komut4_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Fihrist ([IDNO],[AS],[TCKN],[K],[D],[DY],[DT],[BA],[AA],[S],[GT],[CIGT],[KU],[TT],[ST],[SGC],[VT],[VN],[F],[resim],[IDDC],[IDO],[OGA],[KC],[KCT],[IDH],[DCA],[M],[C],[CB],[TM],[IDT],[CC],[KD],[KVN],[MS],[MD],[DN],[KS],[TCS],[SSV],[MSB],[TAT],[SST],[ACAT],[KDT]) VALUES ('" & Me.IDNO & "','" & Me.AS & "','" & Me.TCKN & "'," & Me.K & "," & Me.DY & ",'" & Me.DT & "','" & Me.BA & "','" & Me.aa & "','" & Me.S & "','" & Me.GT & "','" & Me.CIGT & "'," & Me.KU & ",'" & Me.TT & "','" & Me.ST & "','" & Me.SGC & "','" & Me.VT & "','" & Me.VN & "','" & Me.F & "','" & Me.resim & "'," & Me.IDDC & "," & Me.IDO & ",'" & Me.OGA & "','" & Me.KC & "','" & Me.KCT & "','" & Me.IDH & "','" & Me.DCA & "'," & Me.M & ",'" & Me.C & "'," & Me.CB & ",'" & Me.TM & "'," & Me.IDT & "," & Me.CC & "," & Me.KD & "," & Me.KVN & "," & Me.MS & "," & Me.MD & ",'" & Me.DN & "'," & Me.KS & ",'" & Me.TCS & "','" & Me.SSV & "','" & Me.MSB & "','" & Me.TAT & "','" & Me.SST & "','" & Me.ACAT & "','" & Me.KDT & "')"
DoCmd.SetWarnings True
Me.Tablo2alt.Requery
End Sub
elbette ki,uygulayıp denemeniz sonucunda düzeltilmesi gereken var ise,bunu belirtirseniz tekrar incelemesi yapılacaktır.bilgilerinize.
ayrıca,bir de bilgi iletmek gerekirse;
sql sorgu ifadeleri eğer uzunsa ve sığmıyorsa,buna çözüm olarak bir de;
uygun görülen bir kısmında yer alacak
ve anlamında bağlama için kullanılan (&) işaretinden sonra alt tire (_) işareti eleyerek bir alt satırdan devam edebilirsiniz.örnek;
DoCmd.RunSQL "INSERT INTO Fihrist ([IDNO],[AS],[TCKN],[K],[D],[DY],[DT],[BA],[AA],[S],[GT],[CIGT],[KU],[TT],[ST],[SGC],[VT],[VN],[F],[resim],[IDDC],[IDO],[OGA],[KC],[KCT],[IDH],[DCA],[M],[C],[CB],[TM],[IDT],[CC],[KD],[KVN],[MS],[MD],[DN],[KS],[TCS],[SSV],[MSB],[TAT],[SST],[ACAT],[KDT]) VALUES ('" & Me.IDNO & "','" & Me.AS & "','" & _
Me.TCKN & "'," & Me.K & "," & Me.DY & ",'" & Me.DT & "','" & Me.BA & "','" & Me.aa & "','" & Me.S & "','" & _
Me.GT & "','" & Me.CIGT & "'," & Me.KU & ",'" & Me.TT & "','" & Me.ST & "','" & Me.SGC & "','" & Me.VT & _
"','" & Me.VN & "','" & Me.F & "','" & Me.resim & "'," & Me.IDDC & "," & Me.IDO & ",'" & Me.OGA & "','" & _
Me.KC & "','" & Me.KCT & "','" & Me.IDH & "','" & Me.DCA & "'," & Me.M & ",'" & Me.C & "'," & Me.CB & _
",'" & Me.TM & "'," & Me.IDT & "," & Me.CC & "," & Me.KD & "," & Me.KVN & "," & Me.MS & "," & Me.MD & _
",'" & Me.DN & "'," & Me.KS & ",'" & Me.TCS & "','" & Me.SSV & "','" & Me.MSB & "','" & Me.TAT & "','" & Me.SST & "','" & Me.ACAT & "','" & Me.KDT & "')"
gibi...
iyi çalışmalar,
saygılar.