06-02-2023, 13:00
Herkese merhaba,
Bir tablodan başka bir tabloya veri aktarırken aşağıdaki kodu kendi tablo ve verilerime uyarlayarak kullandım. Tanımladığım resime tıkladığımda verileri aktarıyor. Buraya kadar sıkıntı yok fakat. Veri aktardığım tabloda eklemek istediğim veri alanı kadar boş veri kaydı oluşturuyor. bu sorunun nedeni nedir?
Bir tablodan başka bir tabloya veri aktarırken aşağıdaki kodu kendi tablo ve verilerime uyarlayarak kullandım. Tanımladığım resime tıkladığımda verileri aktarıyor. Buraya kadar sıkıntı yok fakat. Veri aktardığım tabloda eklemek istediğim veri alanı kadar boş veri kaydı oluşturuyor. bu sorunun nedeni nedir?
Visual Basic
- Private Sub Komut20_Click()
- Dim Cvp
- Cvp = MsgBox("Kayitlar aktarilacak", vbCritical + vbYesNo, "AKTARMA")
- If vbYes Then
- CurrentDb.Execute "INSERT INTO Tablo1_alt ( Adı, Soyadı, Numarası, Sınıfı, Bölümü, [Kayit Ekleme Tarihi], [not], aciklama ) " & _
- "SELECT Tablo1.Adı, Tablo1.Soyadı, Tablo1.Numarası, Tablo1.Sınıfı, Tablo1.Bölümü, Tablo1.[Kayit Ekleme Tarihi], Tablo1.[not], Date() & ' tarihinde arþive aktarıdı. Ankara Anadolu Lisesine nakil gitti' " & vbNewLine & " & Tablo1.[aciklama] AS E1 " & _
- "FROM Tablo1"
- Me.Liste.Requery
- CurrentDb.Execute "Delete Tablo1.* From Tablo1"
- Me.Requery
- End If
- End Sub