arkadaşlar merhaba. ekte gönderdiğim örnekte dosya1 ismindeki formda arşivle isminde buton yardımıyla üzerinde bulunduğumuz kaydı arşive kaldırmak istiyorum. ancak bir uyarı veriyor çözemedim bu konuda yardıma ihtiyacım var teşekkür ederim
Merhaba,
Ekleme sorgusunda tarih alanı boş olursa hata verir. Bunun yerine ado kullan.
Dim rs As New ADODB.Recordset
rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("tc no") = Me.[tc no]
rs("adı soyadı") = Me.[adı soyadı]
rs("işe başlama") = Me.[işe başlama]
rs("işten ayrılış") = Me.[işten ayrılış]
rs.Update
Set rs = Nothing
MsgBox ("Dosya,ARŞİV tablosuna eklendi")
Me.Requery
Me.Refresh
DoCmd.GoToRecord , , acFirst
Zaten bu tablo yapısı ile çalışacak olsa bile çalışmaz.
Yapılmaması Gereken Ölümcül Hatalar dosyaarşiv diye tablo adı, işe başlama diye de alan adı olmaz.
Çok teşekkür ederim. Bir sorum daha olacak. Tüm kayıtları rs("tc no") = Me.[tc no]
rs("adı soyadı") = Me.[adı soyadı]
rs("işe başlama") = Me.[işe başlama]
rs("işten ayrılış") = Me.[işten ayrılış] bu şekilde tek tek kodları yazmaktansa var olan mevcut kayıtların tamamını aynı anda aktarma şansımız var mı? Tabii sadece üzerinde bulunduğumuz kayıt için
Muhakkak bir çözümü vardır sorumun. Yardımlarınızı bekliyorum. Teşekkür ederim şimdiden
Merhaba,
Bu yapı ile uygulamanı bir adım ileriye taşıyamazsın. Olmayacak yerlerde anlayamadığın hatalar vermeye başlayacak.
Formda, arşiv tablosuna aktarılacak verileri içeren metin kutusu ve açılan kutuların im özelliğine 1 yaz,
Butonun tıklandığında olayına aşağıdaki kodu ekle.
'dosyaarşiv isimli tabloya kayıt işlemi yapılıyor
Dim GDenetim As Control
Dim rs As New ADODB.Recordset
rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
For Each GDenetim In Me
If GDenetim.Tag = 1 Then
rs(GDenetim.ControlSource) = GDenetim.Value
End If
Next GDenetim
rs.Update
Set rs = Nothing
MsgBox ("Dosya,ARŞİV tablosuna eklendi")
Me.Requery
Me.Refresh
DoCmd.GoToRecord , , acFirst
(14/01/2018, 21:09)ozanakkaya yazdı: Merhaba,
Bu yapı ile uygulamanı bir adım ileriye taşıyamazsın. Olmayacak yerlerde anlayamadığın hatalar vermeye başlayacak.
Formda, arşiv tablosuna aktarılacak verileri içeren metin kutusu ve açılan kutuların im özelliğine 1 yaz,
Butonun tıklandığında olayına aşağıdaki kodu ekle.
'dosyaarşiv isimli tabloya kayıt işlemi yapılıyor
Dim GDenetim As Control
Dim rs As New ADODB.Recordset
rs.Open "dosyaarşiv", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
For Each GDenetim In Me
If GDenetim.Tag = 1 Then
rs(GDenetim.ControlSource) = GDenetim.Value
End If
Next GDenetim
rs.Update
Set rs = Nothing
MsgBox ("Dosya,ARŞİV tablosuna eklendi")
Me.Requery
Me.Refresh
DoCmd.GoToRecord , , acFirst
harikasın devrem teşekkür ederim