hi,
ich habe mal wieder etwas gecoded, was eigentlich (im test funktionierte) aber jetzt probleme macht.
als ich in der zeile
If var3 = „1_1_1_1“ Then
noch If var2 = 3325 Then
stehen hatte hat access alles ohne problem ausgeführt.
als ich es dann in If var3 = „1_1_1_1“ Then
geändert habe funktioniert nix mehr, er gibt allerdings auch keine fehlermeldung raus.
die Spalte in Table Working_Table_KAP1 ist eine Text Spalte, in der u.a. mal der Eintrag 1_1_1_1 steht
hier mal der ganze code
Sub COPY()
Set rs1 = CurrentDb.OpenRecordset(„SELECT * FROM Working_Table_KAP1“)
Set rs2 = CurrentDb.OpenRecordset(„SELECT * FROM Duplication_Test“)
If Not rs1.EOF And Not rs2.EOF Then
rs1.MoveFirst
rs2.MoveFirst
Do Until rs1.EOF
var1 = rs1(„KATALOG_ID“)
var2 = rs1(„PROFIL_ID“)
var3 = rs1(„CONCAT“)
var4 = rs1(„SWERT“)
If var3 = „1_1_1_1“ Then
rs2.AddNew
rs2.Fields(„PROFIL_ID“) = var2
rs2.Fields(„KATALOG_ID“) = var1
rs2.Fields(„CONCAT“) = var3
rs2.Fields(„SWERT“) = var4
rs2.Update
rs2.MoveNext
End If
rs1.MoveNext
Loop
End If
Set rs1 = Nothing
Set rs2 = Nothing
End Sub
wie gesagt, als ich es noch mit der anderen variable, die war eine int variable probiert habe, hat es super funktionier
besten dank für hinweise jeder art
Stefan