Skip to main content

AccessTr.neT


Formdan Farklı Tabloya Veri Aktarma

Formdan Farklı Tabloya Veri Aktarma

Çözüldü #1
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
.rar aktarım örneği.rar (Dosya Boyutu: 53,42 KB | İndirme Sayısı: 17)
Cevapla
#2
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 HatalarURL'ye Git dosyaarşiv diye tablo adı, işe başlama diye de alan adı olmaz.
Cevapla
#3
Ç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
Son Düzenleme: 14/01/2018, 13:06, Düzenleyen: alperadn01.
Cevapla
#4
Muhakkak bir çözümü vardır sorumun. Yardımlarınızı bekliyorum. Teşekkür ederim şimdiden
Cevapla
#5
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
Cevapla
#6
(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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task