VBAは、記入していないときに記入フォームを強制的に続けるべきではありません

Question

記入するフォームがあります。記入しなければならないフィールドは記入しないでください。いくつかのことを助けてください

これはpresedボタンの下にある場合にMe.cbTyreNsf.value = "" その後

MsgBox "You must complete the Wheel Nsf value", vbCritical 
    Exit Sub 

End If 

If Me.cbTyreNsR.value = "" Then 

    MsgBox "You must complete Wheel Nsr value", vbCritical 
    Exit Sub 
End If 

the function called 
Call CheckifRecordExistOnWheelTable 

機能 のSelect Case AVAR ケースのコード "NULL" コールinsertWheel ケースその他 電話updateWheel エンドを選択

と機能

nssf = Me.cbTyreNsf.value 

Select Case nssf 
Case "0" 
    MsgBox " Please enter the NSF tyre value", vbCritical 
    Me.cbTyreNsf.SetFocus 
    ' MsgBox "about to exit" 
    Exit Sub 

Case Else 
    nsf = CInt(nssf) 
End Select 

ことにより、任意の助けを呼ばれる関数のコード私は24時間試したすべてのものを数える

Answer 1

のためにそれにされているしてくださいこれが問題になることができます。

cbTyreNsfに値がない場合、nssfに値を渡しません。 （その時点でmsgbox（nssf）を試してください。空白のメッセージボックスが表示されます）。あなたが現在の選択事例を使ってそれをテストしたいならば、空のcbTyreNsfのために値の長さをチェックすることができます。

nssf =Len(Me.cbTyreNsR.value)