VBA - DAO - Überlauf bei numerischem Feld
03.09.2003 22:09:59
Jürgen
Ich realisiere derzeit ein Wordmakro, welches eine Excel-Tabelle als Datenbasis verwendet und daraus je na Anforderung ein entsprechendes Formular generiert.
Soweit so gut; das funktioniert auch alles ganz gut... wenn ich nur nicht diesen dummen Fehler sporadisch hätte.
Manchmal (und leider doch öfters) kommt die Fehlermeldung "3349 Überlauf bei numerischem Feld" und mein Makro bricht ab
Hat schon jemand Erfahrungen mit diesem Phänomen gesammelt?
Ich verwende alle Felder als Textfelder... also wo kommt dieser Fehler her?
Was kann ich tun, um diesen Fehler zu vermeiden?
Anbei poste ich mal ein Stück Coding, damit Ihr eine Vorstellung habt, was ich mache:
---------------------------------------------------------
Option Explicit
Public Rs As DAO.Recordset
Public strBilderpfad As String
Public oWord As Object
Sub DokumentErstellen()
...
' Datenquelle zuweisen und verbinden
strDatenquelle = GetSetting(Appname, Section, "Datasource")
Set db = OpenDatabase(strDatenquelle, False, False, "Excel 8.0;")
SQL = "Select * FROM `" & strBereich & "` WHERE bearbeitet='ja' AND `ArtNr` Is Not Null"
Set Rs = db.OpenRecordset(SQL)
' Recordset durchlaufen und Formulare erzeugen
Do While Not Rs.EOF
' Steuerung an BS übergeben
DoEvents
ActiveDocument.Bookmarks(vBookmark).Range.InsertAfter (Rs.Fields("ArtNr").Value)
ActiveDocument.Bookmarks(vBookmark).Range.InsertAfter (Rs.Fields("ArtName").Value)
.
....
Loop
---------------------------------------------------------------------
Für Antworten und Anregungen möchte ich an dieser Stelle schonmal herzlich im voraus bedanken... ich verzweifle langsam und googlen hat mich leider auch noch nicht richtig weitergebracht...
also vielen Dank für eure Hilfe
Gruss
justo