I use this function to update/fill the grid:
With iGrid0
.BorderType = igBorderThinFlat
.Clear True
.BeginUpdate
.AddCol sHeader:="ID", sKey:="ID", bVisible:=False
.AddCol sHeader:="Re-Datum", sKey:="Re-Datum", lWidth:=70
.AddCol sHeader:="Re-Nummer", sKey:="Re-Nummer", lWidth:=80
With .AddCol(sHeader:="Preis", sKey:="BETRAG", lWidth:=75)
.eAlignH = igAlignHRight
.sFmtString = "#,##0.00 €" '"#.##,## €"
End With
.AddCol sHeader:="Firma", sKey:="Lieferant", lWidth:=180
.AddCol sHeader:="Verwendungszweck", sKey:="Verwendungszweck", lWidth:=264
.AddCol sHeader:="HH-ST", sKey:="HH-ST", lWidth:=88
.AddCol sHeader:="Fach", sKey:="Fach", lWidth:=31
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(strSQL, , dbOpenSnapshot)
.FillFromRS rs
.EndUpdate
End With
Everything works fine, i see the rows in the grid.
After updating the strSQL i see the another result. Fine!
Now, when it comes to the point that the SQL-Query results to 0 rows, i see 0 Rows in the Grid. Fine!
Here starts the problem: At this point no rows will ever be displayed after updating the SQL-Query again, even if the Query results 1000+ Rows.
Can anybody explain, what i', doing wrong?