Unterformular wird nicht aktualisiert

19/01/2009 - 14:44 von Mike Berger | Report spam
Hallo zusammen,

ich habe ein Hauptformular -> ohne Datenverbindung
mit einem Eingabe Textfeld (txtSuchen) und einem Btn.

Als Klick Ereignis des Btn habe ich:

dim sqlText as String

sqlText = "SELECT tblFragen.ID, tblFragen.Basis, tblFragen.Bereich,
tblFragen.Frage, tblFragen.Quelle, " & _
"tblFragen.AnzahlRichtige, tblFragen.L1, tblFragen.A1,
tblFragen.L2, tblFragen.A2, tblFragen.L3, " & _
"tblFragen.A3, tblFragen.L4, tblFragen.A4, tblFragen.ErstellerName,
tblFragen.ErstellerDatum, " & _
"tblFragen.Wertigkeit, tblFragen.Aktiviert, tblFragen.Gesperrt " & _
"FROM tblFragen " & _
"WHERE (((tblFragen.Frage) Like '*" & Me.txtSuchen.Value & "*') AND
((tblFragen.Aktiviert)=Yes));"

CurrentDb.QueryDefs("qryFragen").SQL = sqlText

Me!ufrmFragen.Form.Requery
Me!ufrmFragen.Form.Refresh
Me.Refresh
Me.Requery

Aber das Unterformular wird nicht aktualisiert.

Ich habe leider keine Ahnung, warum es nicht aktualisiert wird.
Wenn ich das Hauptformular schließe und wieder öffne, dann wird werden
die korrekten Datensàtze angezeigt.

Aber ich kann ja nicht jedesmal das Formular schließen und wieder öffnen.

Was mache ich hier falsch.

Ich habe auch alles möglich schon probiert mit Requery und Refresh

Wer kann mir helfen.
Mike
 

Lesen sie die antworten

#1 Jürgen Volke
19/01/2009 - 15:10 | Warnen spam
Hallo Mike


ich habe ein Hauptformular -> ohne Datenverbindung
mit einem Eingabe Textfeld (txtSuchen) und einem Btn.

Als Klick Ereignis des Btn habe ich:

dim sqlText as String

sqlText = "SELECT tblFragen.ID, tblFragen.Basis, tblFragen.Bereich,
tblFragen.Frage, tblFragen.Quelle, " & _
"tblFragen.AnzahlRichtige, tblFragen.L1, tblFragen.A1, tblFragen.L2,
tblFragen.A2, tblFragen.L3, " & _
"tblFragen.A3, tblFragen.L4, tblFragen.A4, tblFragen.ErstellerName,
tblFragen.ErstellerDatum, " & _
"tblFragen.Wertigkeit, tblFragen.Aktiviert, tblFragen.Gesperrt " & _
"FROM tblFragen " & _
"WHERE (((tblFragen.Frage) Like '*" & Me.txtSuchen.Value & "*') AND
((tblFragen.Aktiviert)=Yes));"


CurrentDb.QueryDefs("qryFragen").SQL = sqlText



versuch mal
set qdf = CurrentDb.QueryDefs("qryFragen")
qdf.sql = sqlText
set qdf = nothing


Me!ufrmFragen.Form.Requery
Me!ufrmFragen.Form.Refresh
Me.Refresh
Me.Requery

Aber das Unterformular wird nicht aktualisiert.

Ich habe leider keine Ahnung, warum es nicht aktualisiert wird.
Wenn ich das Hauptformular schließe und wieder öffne, dann wird werden
die korrekten Datensàtze angezeigt.

Aber ich kann ja nicht jedesmal das Formular schließen und wieder öffnen.

Was mache ich hier falsch.

Ich habe auch alles möglich schon probiert mit Requery und Refresh

Wer kann mir helfen.
Mike



HTH Jürgen

Ähnliche fragen