VBA質問：既存の検索フォームに検索テキストフィールドを追加します。

Question

私はテーブルを検索するためのスクリプトを持っています。今度は、txtSearchHsnrという名前の2番目のフィールドを追加します。すべてのコードを読むことなくD

Private Sub cmdSearch_Click() 

'Dim voor postcode 

    Dim strPostcode As String 
    Dim strSearchPostcode As String 

'Dim voor huisnummer 

    Dim strHuisnummer As String 
    Dim strSearchHuisnummer As String 

'Check txtSearchPstCode for Null value or Nill Entry first. 

If IsNull(Me![txtSearchPstCode]) Or (Me![txtSearchPstCode]) = "" Then 
MsgBox "Vul a.u.b. een (geldige ie: 8932 JZ) postcode in.", vbOKOnly, "Geen of foutieve postcode!" 
Me![txtSearchPstCode].SetFocus 

ElseIf IsNull(Me![txtSearchHsnr]) Or (Me![txtSearchHsnr]) = "" Then 
MsgBox "Vul a.u.b. een huisnummer in.", vbOKOnly, "Geen of foutief huisnummer ingevoerd!" 
Me![txtSearchHsnr].SetFocus 

Exit Sub 
End If 
'--------------------------------------------------------------- 

     'zoeken naar data uit veld txtSearchPstCode 
     'en verivieerd dit met tabel Postcode 

     DoCmd.ShowAllRecords 
     DoCmd.GoToControl ("Postcode") 
     DoCmd.FindRecord Me!txtSearchPstCode 

     Postcode.SetFocus 
     strPostcode = Postcode.Text 
     txtSearchPstCode.SetFocus 
     strSearchPostcode = txtSearchPstCode.Text 



     'zoeken naar data uit veld txtSearchHsnr 
     'en verifieer dit met tabel Huisnummer 

     DoCmd.ShowAllRecords 
     DoCmd.GoToControl ("Huisnummer") 
     DoCmd.FindRecord Me!txtSearchHsnr 

     Huisnummer.SetFocus 
     strHuisnummer = Huisnummer.Text 
     txtSearchHsnr.SetFocus 
     strSearchHuisnummer = txtSearchHsnr.Text 


     'Wanneer er een overeenkomende record is in strPostcode en laat messagebox zien 
     'en leeg zoek data in text veld 

     If strPostcode = strSearchPostcode Then 
     MsgBox "Klant gevonden nl.: " & strSearchPostcode & " " & strSearchHuisnummer, , "Klant gevonden" 
     Achternaam.SetFocus 
     txtSearchPstCode = "" 
     txtSearchHsnr = "" 

    'Wanneer Postcode niet is gevonden zet focus terug naar txtSearchPstCode en laat messagebox zien 
     Else 
      MsgBox "Helaas, postcode: " & strSearchPostcode & strSearchHuisnummer & " niet gevonden. Is het een nieuwe klant?", , "Klant niet gevonden in bestaande klanten." 
      txtSearchPstCode.SetFocus 
    End If 
End Sub 

Answer 1

：コードは、これはなぜ、私はVBAの合計noobのだけど、私はそれが好きですHuisnummer.SetFocus

で動作を停止したいくつかの理由

コントロールにすでにフォーカスがある場合は、再度フォーカスを設定しようとするとエラーが発生します。アクティブなコントロールが確認できます。