07/05/2012, 12:46
merhaba aşağıdaki kod yardımıyla tablodaki verileri bir başka tabloya aktarıyorum ancak tablo sütun adlarını kelime aralarında boşluk olacak şekilde yazdığımda kod hata veriyor örneğin SONDAJKUYUSUADI alanını SONDAJ KUYUSU ADI olarak değiştirdiğimde kodda SONDAJ_KUYUSU_ADI olarak değiştiriyorum ancak kod çalışmıyor acaba problem nerededir?
sanırım rs( ) alanları istenilen yeri bulamıyor bu rs (1) alanının içine SONDAJ KUYUSU ADI alanını belirtmek için nasıl yazmalıyım?
Dim rs As New ADODB.Recordset
rs.Open "SONDAJBİLGİLERİ", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not rs.EOF
For i = 1 To rs(5)
CurrentDb.Execute "insert into SONDAJVERİGİRİŞİ (SONDAJKUYUSUADI,yass,bha) "
& "select " & "'" & rs(1) & "','" & rs(4) & "', '" & rs(7) & "'"
Next
rs.MoveNext
Loop
Set rs = Nothing
sanırım rs( ) alanları istenilen yeri bulamıyor bu rs (1) alanının içine SONDAJ KUYUSU ADI alanını belirtmek için nasıl yazmalıyım?