전달 된 인수가 조건과 일치하지 않습니다.

Question

한 프로 시저에서 다른 프로 시저로 인수를 전달하려고했습니다. 모두 괜찮아 보이지만 인수는 통과되었지만 Select case 시나리오에서 주어진 기준과 일치합니다.

내가 뭘 잘못하고 있니?

절차를 통과 인수 :

Private Sub but_next_Click() 

Call zmien_fakture("but_next") 

End Sub 

절차 수신 인수 :

Private Sub zmien_fakture(ByVal txt_name As String) 

Select Case txt_name 

    Case txt_name = "but_next" 
     If Lastrow > nr_faktury_dol Then 
      nr_faktury_dol = nr_faktury_dol + 1 

     Else 
      MsgBox ("To jest ostatnia faktura") 

     End If 

    Case txt_name = "but_prev" 
     If nr_faktury_dol <> 1 Then: nr_faktury_dol = nr_faktury_dol - 1 

    Case Else 

End Select 

End Sub 

Answer 1

가 Case "but_next"와 Case txt_name = "but_next"를 교체합니다.

이

Private Sub zmien_fakture(ByVal txt_name As String) 
    Select Case txt_name 
     Case "but_next" 
      If Lastrow > nr_faktury_dol Then 
       nr_faktury_dol = nr_faktury_dol + 1 
      Else 
       MsgBox ("To jest ostatnia faktura") 
      End If 
     Case "but_prev" 
      If nr_faktury_dol <> 1 Then: nr_faktury_dol = nr_faktury_dol - 1 
     Case Else 
    End Select 
End Sub 

왜 구문이 작동하지 않는 : 당신이 Case txt_name = "but_next"를 사용하는 경우

, 문 txt_name = "but_next"이 TRUE 또는 FALSE로 평가하고 당신이 얻을 : 올바른 코드가

Select Case txt_name ' txt_name="but_next", but txt_name<>TRUE and txt_name<>FALSE 
    Case True 
     'do something 
    Case False 
     'do something 
    Case Else 
End Select 

을하지만, Select Case txt_name 변수 txt_name은 True 또는 False이 아니며 실제로 점프합니다. Case Else 부분.

Private Sub zmien_fakture(ByVal txt_name As String) 
    Select Case True 
     Case txt_name = "but_next" 
      If Lastrow > nr_faktury_dol Then 
       nr_faktury_dol = nr_faktury_dol + 1 
      Else 
       MsgBox ("To jest ostatnia faktura") 
      End If 
     Case txt_name = "but_prev" 
      If nr_faktury_dol <> 1 Then: nr_faktury_dol = nr_faktury_dol - 1 
     Case Else 
    End Select 
End Sub