Debug für eine if-Anweisung in Access 2013

Question

Ich habe ein Stück Code, um sicherzustellen, dass der Benutzer einen "Schrottbetrag" eingibt, wenn sie einen "Schrott-Code" eingegeben haben. Wenn ich den Code für Scrap1 anwende und benutze, funktioniert alles super. Wenn ich versuche, denselben Code mit den nächsten Variablennamen zu verwenden, erhalte ich einen Fehler, der besagt, dass mein Code "einen mehrdeutigen Namen gefunden hat. Ich habe meine Variablennamen und den Code überprüft, bis meine Augen bluteten. Alles sieht gut aus . hat einen Fehler jemand sehen, die ich verpasst haben

'check to see that there is a scrap amount if a code has been entered #1. 

Private Sub Form_BeforeUpdate(Cancel As Integer) 
    If Me.ScrapCodes1.Value Then 
    If Me.ScrapAmount1 = 0 Then 
      Cancel = True 
      MsgBox "If Scrap Code is selected, then Scrap Amount must have a value." 
    End If 
    End If 
End Sub 


'check to see that there is a scrap amount if a code has been entered #2. 
Private Sub Form_BeforeUpdate(Cancel As Integer) 
    If Me.ScrapCodes2.Value Then 
    If Me.ScrapAmount2 = 0 Then 
      Cancel = True 
      MsgBox "If Scrap Code is selected, then Scrap Amount must have a value." 
    End If 
    End If 
End Sub 

Answer 1

Ja, in einem Teil montieren:?

Private Sub Form_BeforeUpdate(Cancel As Integer) 

    ' check to see that there is a scrap amount if a code has been entered #1. 
    If Me.ScrapCodes1.Value Then 
     If Me.ScrapAmount1 = 0 Then 
      Cancel = True 
     End If 
    End If 

    ' check to see that there is a scrap amount if a code has been entered #2. 
    If Me.ScrapCodes2.Value Then 
     If Me.ScrapAmount2 = 0 Then 
      Cancel = True 
     End If 
    End If 

    If Cancel = True Then 
     MsgBox "If Scrap Code is selected, then Scrap Amount must have a value." 
    end If 

End Sub