Programice a query automaticaly

[tzhgare1]

If I write this query then is function (db.CreateQueryDef("QueryName", SELECT * From nachname Where nachname like 'A*'")



But I dont know how to configure this 'A*' automaticly. If I am in the database at in one of a record would have this Nachname at this position 'A*' automaticly. Because i wouldent change this manuel.

Can someone helping me?
Thanks

[jwhite]

Can you post the code block where you creating/updating the stored query? Without seeing that, if the code is executing within the form where there is a Control named txtNachName, then: "SELECT * From nachname Where nachname like '" & Me.NachName & "*'"

[tzhgare1]

Private Sub Kombinationsfeld176_BeforeUpdate(Cancel As Integer)
Dim db As Database
Dim qd As QueryDef
Set db = CurrentDb()
Dim Wert1 As String

Wert1 = Nachname

Set qd = db.CreateQueryDef("Abfrage1", "SELECT [A_Tarif_KK].[Nachname], [A_Tarif_KK].[KKName], [A_Tarif_KK].[Positionsnummer] FROM [A_Tarif_KK] WHERE Nachname LIKE Wert1")

End Sub

[jwhite]

In line "Wert1 = Nachname", what is Nachname? A Control?

If so, then:
Set qd = db.CreateQueryDef("Abfrage1", "SELECT [A_Tarif_KK].[Nachname], [A_Tarif_KK].[KKName], [A_Tarif_KK].[Positionsnummer] FROM [A_Tarif_KK] WHERE Nachname LIKE '" & Me.Nachname & "*'")

[tzhgare1]

Thanks I had do. Now is working.
Wish you a good day