title image


Smiley Re: Access Parameterabfrage als Recordset öffnen
Dieses Beispiel beruht auf folgenden Grundlagen:Tabelle: [MeineTabelle]Felder:[ID], Long Integer[MeinFeld], TextfeldAbfrage: [qryMeineParameterAbfrage]PARAMETERS lngID Long;SELECT MeineTabelle.*FROM MeineTabelleWHERE (((MeineTabelle.ID)=[lngID]));Code:Option Compare DatabaseOption Explicit Sub ZeigWasDuKannst() Dim DB As Database, RST As Recordset, QDF As QueryDef, PRM As Parameter  Set DB = CurrentDb Set QDF = DB.QueryDefs("qryMeineParameterAbfrage")  Set PRM = QDF.Parameters("lngID") PRM.Value = InputBox(Prompt:="Geben Sie den Wert für lngID ein", Default:=0)  Set RST = QDF.OpenRecordset(dbOpenDynaset) If RST.RecordCount Then RST.MoveLast MsgBox "Wir haben " & RST.RecordCount & " Datensätze an der Angel." Else MsgBox "Der Recordset enthält keine Einträge" End If  RST.Close: Set RST = Nothing Set PRM = Nothing Set QDF = Nothing Set DB = NothingEnd SubViel Erfolg!Thomas Prötzschcu
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: