title image


Smiley Re: ... ist schon fertig ...
Hallo Reinhard,Set DB = CurrentDb

file = Dir(EXCEL_EING & "ze*xls", vbNormal)

Do While Len(file) > 0

eing = -1

Query = "SELECT Ausgang, Eingang FROM ExBelege WHERE Belegname = '" & file & "'"

Set RS = DB.OpenRecordset(Query)

If RS.RecordCount = 1 Then

eing = -1

If IsNull(RS!Eingang) Then: eing = Now()

End If

RS.Close

if (eing = Now()) Then

'---------------------- die Daten werden jetzt verarbeitet

End If

file = Dir()

Loop

Set RS = NothingDie von den Aussendienstlern reinkommenden Excel-Dateien werden geprueft, ob sie ueberhaupt existieren, schon verarbeitet wurden ... und dann in eine grosse Tabelle importiert, von der spaeter die Daten an einzelne Bereiche verteilt werden.

m. b. G. Norbert
_____________________
normal:  02682-966898
Notruf:  0177-1741686
---------------------
e.o.b.


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: