Im Deklarationsteil steht: Global iAnzahl_DB_Records As Integer .
Auszugsweise...
Call AnzahlRecords_Datenbank(AUSWERTUNG, "DAT000", "TIME")
MsgBox (iAnzahl_DB_Records) gibt mir "0" obwohl der Wert von "288" ordnungsgemäß in der Statusleiste zu lesen ist.
Die
Sub jetzt...
Sub AnzahlRecords_Datenbank(DBFullName As String, TableName As String, FieldName As String)
Dim db As Database, rs As Recordset
Set db = OpenDatabase(DBFullName)
Set rs = db.OpenRecordset(TableName, dbOpenTable) ' all records
iAnzahl_DB_Records = rs.RecordCount
application.statusbar=iAnzahl__DB_Records
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
Andere "Global" Variablen verlieren nicht Ihre Inhalte. Stehe vor einem Rätsel!
Wer kann mir helfen?
Franz D.