Fixation d'erreur d'incompatibilité de type 13 en VBA

Je suis nouveau sur le codage et suis en train de développer un userform qui me permet de remplir une base de données.

Je suis en train de mettre en place des processus de validation des données qui peuvent être entrées dans la base de données par le biais de l'objet userform.

Le code que j'utilise pour cela est indiqué ci-dessous où Reg est le nom de l'contrôles sur mon userform.

Quand je lance cette partie du code, il s'arrête sur la première ligne et montre l'Erreur d'Incompatibilité de Type 13 de la boîte de message.

Toute aide que vous pouvez donner serait très apprécié.

Sub ValidCombo1()

    If Reg18.Value = "" And ((Reg17.Value <> "1" Or (Reg15.Value <> "0" Or "") Or Reg16.Value <> "A" Or Reg19.Value <> "") Or (Reg17.Value <> "" And Reg15.Value <> "" And Reg16.Value <> "" And Reg19.Value <> "")) Then

        MsgBox "Invalid Foundations combination"

        Reg13.Value = ""

    ElseIf Reg25.Value = "" And ((Reg24.Value <> "1" Or (Reg22.Value <> "0" Or "") Or Reg23.Value <> "A" Or Reg26.Value <> "") Or (Reg24.Value <> "" And Reg22.Value <> "" And Reg23.Value <> "" And Reg26.Value <> "")) Then

        MsgBox "Invalid Inverts and Aprons combination"

        Reg13.Value = ""
  • pouvez-vous mettre de l'instruction if dans un bloc de code s'il vous plaît?
InformationsquelleAutor Wizard0800 | 2016-11-20