Office: (Office 2003) Prüfen, ob Datensatz schon vorhanden

Morgen!!

Ich würde gerne mit VBA überprüfen, ob in einer Tabelle schon Datensätze aus einem bestimmten Datum (Jahr) vorhanden sind. Und zwar soll nachgeschaut werden, ob in der Tabelle Archiv schon Datensätze aus dem Jahr sind wie in der Tabelle Import. Bis jetzt schaut mein Code so aus:


Dim datvorh As String, krit As String
Dim jahrimp As String

jahrimp = DLookup("Jahr", "t_Import")
datvorh = DCount("*", "t_Archiv", "Jahr = jahrimp")
If datvorh > 0 Then
MsgBox "Ja, schon vorhanden"
Else:
MsgBox "Nein, noch nicht vorhanden"
End If


Leider kommt die Fehlermeldung "Sie haben die vorherige Operation angebrochen", jetzt weiß ich nicht, was ich falsch mache... Kennt sich da jemand aus?

:)

 

"krit as string"

hab ich schon entfernt

 

Hallo
wie ist Jahr in DEN Tabelle (t_Archiv/t_Import ) gespeichert Date/Text/Zahl ?
dein Dlookup bringt eifach das Datum des 1. Datensatzes in t_Import
ist das so ?

möglich das du so was machen musst:
datvorh = DCount("*", "t_Archiv", "Jahr = " & jahrimp) für Zahl
oder eben je nach DatenTyp
datvorh = DCount("*", "t_Archiv", "Jahr = '" & jahrimp &"'") für String/Text

Bei Date zuerst Datum für DCOUNT Aufbereiten: sowas: StrDatumFuerSql = Format(dat, "\#yyyy\-mm\-dd\#")

 

Dein Vergleichskriterium ist eine Stringvariable und muss deshalb auch so eingebaut werden.
datvorh allerdings sollte vom Typ Long sein, DCount gibt eine Zahl zurück und du vergleichst ja auch mit 0.

Code:

maike

 

Hi!

Sorry, dass ich mich erst so spät melde, aber ich bin die letzten Tage nicht dazu gekommen...

@ Maikek: ich habe deinen Code probiert, prinzipiell funktioniert er FAST... ich habe

Dim datvorh As Long, jahrimp As String

jahrimp = DLookup("Jahr", "t_Import")
datvorh = DCount("*", "t_Archiv", "Jahr = '" & jahrimp & "'")
If datvorh > 0 Then
MsgBox "Jahr schon vorhanden"
Else:
MsgBox "Nein, Jahr noch nicht vorhanden, Daten werden importiert"
End If

Funkt prinzipiell super, wenn ich die Daten das erste Mal importiere schreibt er, dass die Daten importiert werden und tut das auch... Wenn ich dann die selben Daten probeweise nochmal importiere, schreibt er als Fehlermeldung "Datentypen in Kriterienausruck unverträglich"... Die Daten werden zwar nicht importiert (was ja Sinn der Sache ist), aber irgendwie scheint das nicht so zu laufen, wie es sollte... Ist das ein Problem??

 

Hallo,
sieht aus als sei dein Feld "Jahr" in der t_Archiv ein Feld vom Datentyp Zahl.
Guck dir nochmal den Beitrag #3 von Lanz Rudolf an und probiere es so:

Code:

maike

 

Hey, cool! Das funktioniert!! Danke, ihr seid die Besten!!!!

 

Na dann leg' ich mal noch eins drauf *wink.gif*

• Jahr ist ein Sch...name für ein Tabellenfeld, da es auch z.B. eine Funktion sein kann (gilt auch für andere reservierte Begriffe: Name, Datum, etc.).
• Die Variable datvorh brauchst du nicht.
• Variablen ein Typkürzel mitgeben, das hilft beim sauberen Programmieren.

Code: