title image


Smiley Re: Execute-Variante läuft (Verweis fehlte)
Dann probiere es mal damit:Dim db As DAO.Database



If Not DatumVorhanden(Date) Then

Set db = CurrentDb

db.Execute "qryQuotenHistorie"

If db.RecordsAffected = 0 Then

MsgBox "Keine Datensätze angefügt. Tabelle ist bereits aktualisiert."

Else

MsgBox db.RecordsAffected & " Datensätze angefügt"

End If

End If

End Sub

'_______________________________________________________________________________________________



Public Function DatumVorhanden(Optional myDate As Date) As Boolean

On Error GoTo Er

Dim rs As DAO.Recordset, s As String



s = "select Count(DatumFeld) from DeineTabelle where DatumFeld=" & Format(myDate, "\#yyyy\-mm\-dd\#")

Set rs = CurrentDb.OpenRecordset(s, dbOpenSnapshot)

If rs(0) > 0 Then DatumVorhanden = True



Ex:

On Error Resume Next

rs.Close

Set rs = Nothing

Exit Function

Er:

Dim strErr As String

Select Case Err.Number

Case Else

strErr = "Fehlermeldung/Information..." & vbCrLf

strErr = strErr & "FehlerNummer: " & Err.Number & vbCrLf

strErr = strErr & "Beschreibung: " & vbCrLf & Err.Description

MsgBox strErr, vbCritical + vbOKOnly, "Function: DatumVorhanden"

Resume Ex

End Select

Resume

End FunctionDu mußt natürlich 'DeineTabelle' und 'DatumFeld' durch Deine richtige Benamsung ersetzen.



Gruß Carsten


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: