Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
Dim Bildpfad As String
Bildpfad = Me!bilder
If Len(Dir(Bildpfad)) <> 0 Then
Me!Artbild.Picture = Bildpfad
Else
Me!Artbild.Picture = Me!pfad & "ST-000000.jpg"
End If
End SubZitatWHERE IIf([Vorname]=Forms!Aktensuche!Text_Vname Is Null,[Vorname]='*',[Vorname]=Forms!Aktensuche!Text_Vname)
=Wie "*" & "Hallo" & "*" 'zeigt alles was "Hallo" enthält an beliebiger Stelle
=Wie "Hallo" & "*" 'zeigt alles was mit "Hallo" anfängt
=Wie "*" & "Hallo" 'zeigt alles was "Hallo" am Ende enthält