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?
Vous devez vous connecter pour publier un commentaire.
Votre code peut avoir d'autres questions, mais des expressions comme
sont une incompatibilité de type.
""
est une chaîne de caractères, et non pas une valeur Booléenne.Remplacement
Reg15.Value <> "0" Or ""
par(je pense que c'est votre intention), permettra d'éliminer ces différences de type.