Hallo an alle.
Ich habe hier ein VBA Code, der mir Werte aus Exceltabellen entnimmt, und mir dann in eine Access Datenbanktabelle einfügt. Dies funktioniert einwandfrei, bis auf:
Der User kann ja nach dem ersten mal speichern, wieder Werte ändern und noch mal abspeichern.
Ändert sich nichts in der Zelle, dann wird trotzdem ein neuer Satz gespeichert. Ich kenne die Funktion Add, aber die bringt mir nichts, wenn noch nie ein Datensatz gespeichert ist.
Set rec = db.TableDefs("Verfahrweise_Vorschlag").OpenRecords et(dbOpenDynaset)
For iCounter = 9 To anzahldatensatz
If IsEmpty(tb61.Cells(iCounter, 12)) = False Then
If IsNumeric(tb61.Cells(iCounter, 10)) Then 'Der Wert muss numerisch sein
rec.Add
rec!kst =
rec!xxx = tb61.Cells(iCounter, 2)
rec!yyy = tb61.Cells(iCounter, 12)
rec!zzz = tb61.Cells(iCounter, 11)
rec!datum = date_next
rec.Update
Else
'Hier kann eine Abfrage gestartet werden, sollte der keine Zahl eingegeben worden sein
End If
End If
Next
rec.Close
Application.ScreenUpdating = True
Ich habe hier ein VBA Code, der mir Werte aus Exceltabellen entnimmt, und mir dann in eine Access Datenbanktabelle einfügt. Dies funktioniert einwandfrei, bis auf:
Der User kann ja nach dem ersten mal speichern, wieder Werte ändern und noch mal abspeichern.
Ändert sich nichts in der Zelle, dann wird trotzdem ein neuer Satz gespeichert. Ich kenne die Funktion Add, aber die bringt mir nichts, wenn noch nie ein Datensatz gespeichert ist.
Set rec = db.TableDefs("Verfahrweise_Vorschlag").OpenRecords et(dbOpenDynaset)
For iCounter = 9 To anzahldatensatz
If IsEmpty(tb61.Cells(iCounter, 12)) = False Then
If IsNumeric(tb61.Cells(iCounter, 10)) Then 'Der Wert muss numerisch sein
rec.Add
rec!kst =
rec!xxx = tb61.Cells(iCounter, 2)
rec!yyy = tb61.Cells(iCounter, 12)
rec!zzz = tb61.Cells(iCounter, 11)
rec!datum = date_next
rec.Update
Else
'Hier kann eine Abfrage gestartet werden, sollte der keine Zahl eingegeben worden sein
End If
End If
Next
rec.Close
Application.ScreenUpdating = True