title image


Smiley habe eine Lösung gefunden
Danke - ich hab's jetzt so gelöst:

Dim lngAnzahlDatensaetze As Long



lngAnzahlDatensaetze = CurrentDb.TableDefs!tabQuotenHistorie.RecordCount



DoCmd.SetWarnings False

DoCmd.OpenQuery "qryQuotenHistorie", acViewNormal, acEdit

DoCmd.SetWarnings True



If lngAnzahlDatensaetze - CurrentDb.TableDefs!tabQuotenHistorie.RecordCount = 0 Then

MsgBox "keine Datensätze eingefügt"

Else

MsgBox "Aktuelle Daten eingefügt"

End If



Das ist zwar sicher nicht die eleganteste Lösung und nicht ganz so, wie Ihr das vorgeschlagen habt, aber mit der Execute-Methode bin ich ehrlich gesagt nicht ganz klar gekommen. Aber ich bin in der Hilfe dabei über .RecordCount gestoßen ...



Schönes Wochenende

Sven
Ich arbeite mit Office 2003

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: