Suchen in Datensätzen

Computer: Software & Programmierung Microsoft Access
#1

Hallo

ich habe die vordefinierte Suchfunktion von Access (via Befehlsschaltfläche) eingefügt um in Tabellen nach Werten zu suchen. Ich möchte aber, dass die Optionen des Suchfensters automatisch auf folgenden Werten steht

  • Suchen --> alle
  • Vergleichen --> Teil des Feldes
  • Gross-Kleinschreibung --> nein
  • Formatierung beachten --> nein
  • Aktuelles Feld --> nein

Was muss ich wo in den Code einfügen damit dies möglich ist?
Sub Befehl24_Click()
On Error GoTo Err_Befehl24_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Befehl24_Click:
Exit Sub
Err_Befehl24_Click:
MsgBox Err.Description
Resume Exit_Befehl24_Click
End Sub

#2

Hi!

Also ich löse das immer folgender maßen:
Private Sub Befehl31_Click()
On Error GoTo Err_Befehl31_Click

SendKeys „%vt%s“, False
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Befehl31_Click:
Exit Sub

Err_Befehl31_Click:
MsgBox Err.Description
Resume Exit_Befehl31_Click

End Sub

Ich bin mir zwar nicht sicher, ob das der optimale Weg ist, aber es funktioniert.

mlg Zucky

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hi Zucky

ungewöhnliche Lösung, aber es funktioniert!
Danke für Deine Hilfe!

Hi!

Also ich löse das immer folgender maßen:
Private Sub Befehl31_Click()
On Error GoTo Err_Befehl31_Click

SendKeys „%vt%s“, False
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Befehl31_Click:
Exit Sub

Err_Befehl31_Click:
MsgBox Err.Description
Resume Exit_Befehl31_Click

End Sub

Ich bin mir zwar nicht sicher, ob das der optimale Weg ist,
aber es funktioniert.

mlg Zucky