Nach Kombinationsfeld tabelle filtern

18/04/2009 - 09:16 von Philippe Malmedé | Report spam
hallo an alle,

habe eine tabelle in der ein Kombinationsfeld (lieARG/long integer) nach dem
die
tabelle sortiert werden soll, leider funktioniert der filter nicht. es wird
gefiltert aber kein datensatz angezeigt.
wie spreche ich das kombinationsfeld richtig an?

Private Sub lblTextSuchEingabe_Change()
Dim strTextSucheEingabe As String
Dim lonTextSucheGenau As String
Dim strTextSucheUngefaehr As Long


strTextSucheEingabe = lblTextSuchEingabe.Text

If (strTextSucheEingabe) = "" Then
lonTextSucheGenau = 0
Else
lonTextSucheGenau = (CLng(strTextSucheEingabe)) ' wandelt text in long
integer
End If

MsgBox Str(lonTextSucheGenau)


DoCmd.OpenForm "sfmLieferscheinVerwaltung"
DoCmd.ApplyFilter , "[lieAGR] = " & lonTextSucheGenau & ""

für Eure hilfe im Voraus vielen Dank


Gruß Philippe
End Sub
 

Lesen sie die antworten

#1 Gunter Avenius
18/04/2009 - 10:27 | Warnen spam
Hallo Philippe,

Philippe Malmedé schrieb folgendes:
habe eine tabelle in der ein Kombinationsfeld (lieARG/long integer) nach dem
die
tabelle sortiert werden soll, leider funktioniert der filter nicht. es wird
gefiltert aber kein datensatz angezeigt.
wie spreche ich das kombinationsfeld richtig an?

Private Sub lblTextSuchEingabe_Change()
Dim strTextSucheEingabe As String
Dim lonTextSucheGenau As String
Dim strTextSucheUngefaehr As Long

strTextSucheEingabe = lblTextSuchEingabe.Text

If (strTextSucheEingabe) = "" Then
lonTextSucheGenau = 0
Else
lonTextSucheGenau = (CLng(strTextSucheEingabe)) ' wandelt text in long
integer
End If

MsgBox Str(lonTextSucheGenau)

DoCmd.OpenForm "sfmLieferscheinVerwaltung"
DoCmd.ApplyFilter , "[lieAGR] = " & lonTextSucheGenau & ""

für Eure hilfe im Voraus vielen Dank



proiere es so:
DoCmd.OpenForm "sfmLieferscheinVerwaltung"
Forms("sfmLieferscheinVerwaltung").Filter = "[lieAGR] = " &
lonTextSucheGenau
Forms("sfmLieferscheinVerwaltung").Filteron=true

Gruß
Gunter
__________________________________________________________
Access FAQ: http://www.donkarl.com
home: http://www.avenius.com - http://www.AccessRibbon.de
http://www.ribboncreator.de

3. SQL Server-Entwickler-Konferenz - Nürnberg im Mai
http://www.donkarl.com/?SEK

Ähnliche fragen