Ich zähle Sätze in meinem Recordset, funktioniert, Beispielsweise enthält meine Tabelle 1.000 Datensätze.
Die unten stehende Funktion wird über den Knopf "Aktualisieren" aufgerufen:
Public Function SB02()
Const conDBConn = "DRIVER=SQL Server;SERVER=OKZEDER;DATABASE=FWExAp03"
Dim objDBConnSB02 As New ADODB.Connection
Dim objDBRSSB02 As New ADODB.Recordset
objDBConnSB02.Open conDBConn
objDBRSSB02.Open "SELECT COUNT(*) as Anzahl FROM SB02", objDBConnSB02, 3, 3
SB02 = Format(objDBRSSB02!Anzahl, "###,###,###")
End Function
Angenommen ich habe aktualisieren gedrückt und erhalte 1000 Datensätze. 10 Minuten später enthält dieselbe tabelle 2.000 Datensätze weil neue dazu gekommen sind. Es kann auch sein das die Tabelle 10 min später weniger Datensätze als 1000 enthält.
Ich möchte nun eine Meldung ausgeben wenn ich 10 min später auf den Aktualisierungs Button klicke, das die Tabelle anstatt 1000 Datensätze nun 2000 enthält.
Wie bekommt man sowas hin in meiner Funktion? Kann mir jemand helfen
Die unten stehende Funktion wird über den Knopf "Aktualisieren" aufgerufen:
Public Function SB02()
Const conDBConn = "DRIVER=SQL Server;SERVER=OKZEDER;DATABASE=FWExAp03"
Dim objDBConnSB02 As New ADODB.Connection
Dim objDBRSSB02 As New ADODB.Recordset
objDBConnSB02.Open conDBConn
objDBRSSB02.Open "SELECT COUNT(*) as Anzahl FROM SB02", objDBConnSB02, 3, 3
SB02 = Format(objDBRSSB02!Anzahl, "###,###,###")
End Function
Angenommen ich habe aktualisieren gedrückt und erhalte 1000 Datensätze. 10 Minuten später enthält dieselbe tabelle 2.000 Datensätze weil neue dazu gekommen sind. Es kann auch sein das die Tabelle 10 min später weniger Datensätze als 1000 enthält.
Ich möchte nun eine Meldung ausgeben wenn ich 10 min später auf den Aktualisierungs Button klicke, das die Tabelle anstatt 1000 Datensätze nun 2000 enthält.
Wie bekommt man sowas hin in meiner Funktion? Kann mir jemand helfen