Access MDE spinnt - Code jepostet

dann prüfe Datensätze
rs2.MoveLast
anz = rs2.RecordCount
rs2.MoveFirst
counter = 0
For i = 1 To anz
If rs1!DatumNEU = rs2!DatumNEU And rs1!Ist_Zeit = rs2!Ist_Zeit Then
counter = counter + 1
If rs2.EOF = False Then
rs2.MoveNext
End If
End If
Next i
If counter > 0 Then
MsgBox ("Datensätze bereits importiert")
GoTo Exit_bs_import_Click
Else
DoCmd.SetWarnings (False)
stDocName2 = "AB_ADD"
DoCmd.OpenQuery stDocName2, acNormal, acEdit \'sonst füge an
MsgBox ("Import abgeschlossen, Verlauf aktualisiert")
End If

End If


On Error GoTo Err_bs_import_Click

Exit_bs_import_Click:
Exit Sub

Err_bs_import_Click:
MsgBox Err.Description
Resume Exit_bs_import_Click

DoCmd.SetWarnings (True)
End Sub

Vielen Dank Euch allen! Und meinem Modem! !SCHMATZ!

 

Ja, hi Volker!

Ich entschuldige mich für die Anwendungsfehler. Bin halt totaler Beginner. Dieser von dir gefragte Code-Ausschnitt führt lediglich ein Import-Macro aus. Dieses erstellt die Tabellen Tourdaten und Endtabelle. Mehr nicht.

Vielen Dank

Mario

 

Erstellt: >Tourdaten, Endtabelle\' DoCmd.RunMacro stDocName

Irgendwie scheint mir, als sollten Daten aus einer externen Datei in eine Tabelle uebernommen werden - aber ich brauche mehr Info, sonst kann ich nicht helfen.

Volker

 

>Ja also hier der Code, für alle die mir helfen wollen. Ist nicht des Sauberste, aber in meiner MDB
funzt es ja.

<mecker>
Es waere voellig ausreichend gewesen, den Code in den alten Thread zu posten, statt dafuer einen neuen aufzumachen.

Und warum sagst du nicht, was der Code macht (kurze Beschreibung)
</mecker>

Hab mir den code gerade ausgedruckt und werde mich am Wochenende mal damit befassen.

Melde mich dann wieder.

Volker