Diese teil liest alles aus, was irgendwie der Zeichenfollge in der form frmsuche im feld suchtext eingegeben wurde.
Suchtext ist eine Textbox, Suchliste eine Listbox
Option Compare Database
Private Sub suchliste_Click()
i = Me.suchliste
If Me.tbParameter.Value = „0“ Then
DoCmd.Close
Forms.frmBasisdaten.IDK.SetFocus
DoCmd.FindRecord i
Exit Sub
End If
If Me.tbParameter.Value = „1“ Then
Dim stDocName As String
Dim stLinkCriteria As String
B = Me.suchliste.Column(2)
stDocName = „frmAuftragDetail“
stLinkCriteria = „[IDAuftrag]=“ & i 'Me.suchtext.Value
DoCmd.Close
Forms.frmBasisdaten.IDK.SetFocus
DoCmd.FindRecord B
DoCmd.OpenForm stDocName, , , stLinkCriteria
'DoCmd.OpenForm stDocName
'Forms.frmAuftragDetail.IDAuftragsnummer.SetFocus
DoCmd.FindRecord i
Exit Sub
End If
End Sub
Private Sub suchtext_AfterUpdate()
Me.Requery
Me.Refresh
End Sub
erst mal danke für deine Hilfe.
Ist aber nicht ganz das das ich suche.
Deine Selection bezieht sich in dem Fall nur auf den Parameter Essen.
Ich möchte aber, dass bei einer Abfrage alle Orte mit nur den ersten drei Buchstaben abgefragt werden.
Hintergrund ist der:
Ich habe eine Spalte mit 54000 Orten.
Diese sind zum Teil so geschrieben, das der gleiche Ort z.B. Frankfurt ; Frankf. ; Frankfu. usw lautet.
Diese möchte ich aber zusammen anzeigen; dass heisst keine Duplikate von Orten in der Tabelle.
Ich hoffe ich habe mich einigermassen verständlich ausgedrückt.
MfG
timtim
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]