Comment faire pour avoir Plusieurs Conditions dans un if/then Instruction

Je suis en train d'écrire du code dans Access 2010 que lorsque le bouton [Valider] est cliqué, il va analyser plusieurs champs (8 au total) pour une valeur (ou pas de valeur), et de renvoyer un énoncé (ou texte) dans un autre domaine ([AppStatus]) basé sur la présence de tous les 8 champs sont inscrits ou pas. En d'autres termes, si un des champs sont nuls, le [AppStatus] champ doit remplir avec le texte par défaut de "RE de PRÉ-QUAL". Ci-dessous est là que j'ai commencé mais je n'arrive pas à comprendre pourquoi ça ne fonctionne pas.

Private Sub Validate_Click()
    If [PrimarySSN].Value = Null Then
    If [PropAddress].Value = Null Then
    If [PropCity].Value = Null Then
    If [PropState].Value = Null Then
    If [PropZipCode].Value = Null Then
    If [RequestedLoanAmount].Value = Null Then
    If [BorrowerIncome.Value] = Null Then
    If [EstHomeValue].Value = Null Then
          [AppStatus].Value = "RE PRE-QUAL"
    ElseIf [PrimarySSN].Value = Not Null Then
    ElseIf [PropAddress].Value = Not Null Then
    ElseIf [PropCity].Value = Not Null Then
    ElseIf [PropState].Value = Not Null Then
    ElseIf [PropZipCode].Value = Not Null Then
    ElseIf [RequestedLoanAmount].Value = Not Null Then
    ElseIf [BorrowerIncome].Value = Not Null Then
    ElseIf [EstHomeValue].Value = Not Null Then
          [AppStatus].Value = Null
    End If
    End If
    End If
    End If
    End If
    End If
    End If
End Sub

InformationsquelleAutor VBA Challenged | 2015-09-03

3

L'une des raisons pour lesquelles il n'est pas le travail, c'est parce que Rien n'est jamais égal à Null, pas même un autre Null. Un autre problème est que vous ne pouvez pas utiliser Not Null dans le code VBA. (Not Null est valable dans l'Accès SQL, mais ça n'aide pas ici.) Dans VBA, utilisez IsNull() pour vérifier si une valeur est Nulle.

Vous voulez "RE de PRÉ-QUAL" que la valeur de AppStatus chaque fois que l'un ou plusieurs de ces autres champs 8 est Nulle (c'est à dire IsNull(fieldname.Value) = True). Sinon, AppStatus sera Nulle. Si vous pourriez faire quelque chose comme ça ...
```
If IsNull(Me.PrimarySSN.Value) _
        Or IsNull(Me.PropAddress.Value) _
        ' additional Or conditions for each of next 5 fields
        Or IsNull(Me.EstHomeValue.Value) Then
    Me.AppStatus.Value = "RE PRE-QUAL"
Else
    Me.AppStatus.Value = Null
End If
```
Cependant que ce serait un peu lourd lorsqu'il est étendu à tous les 8 champs.

Comme alternative, vous pourriez commencer avec une liste de noms de contrôle, les charger dans un tableau, et l'utilisation d'un For boucle pour parcourir le tableau de vérifier si chaque contrôle de la valeur est Null. Si l'un d'eux est Nul, ensemble AppStatus à "RE de PRÉ-QUAL" et de sortir de la boucle.
```
Dim astrFields() As String
Dim strFieldList As String
Dim varAppStatus As Variant
Dim varField As Variant
strFieldList = "PrimarySSN,PropAddress,PropCity,PropState,PropZipCode," & _
    "RequestedLoanAmount,BorrowerIncome,EstHomeValue"
astrFields = Split(strFieldList, ",")
varAppStatus = Null
For Each varField In astrFields
    'Debug.Print varField
    If IsNull(Me.Controls(varField).Value) = True Then
        varAppStatus = "RE PRE-QUAL"
        Exit For
    End If
Next
Me.AppStatus.Value = varAppStatus
```
Avis, cette approche pourrait rendre la maintenance plus facile. Si jamais vous avez besoin d'ajouter ou de supprimer des contrôles à partir de la liste de ceux qui devraient être examinés, ou de modifier leurs noms, il suffit de modifier le strFieldList chaîne.
- Qu'il a fait...Merci HansUp! Est-il un moyen pour accomplir cette sans cliquer sur un bouton pour qu'il s'exécute automatiquement lorsque le formulaire se ferme? J'ai essayé d'appliquer le même code que vous avez fournies ci-dessus pour la fonction de fermeture de la forme, mais elle renvoie l'erreur "Vous ne pouvez pas affecter une valeur à cet objet". Quand je debug il, de sa mise en surbrillance l'Autre Moi.AppStatus.Valeur = Null partie du code.
- Vous pouvez pas compter sur les contrôles en cours de disponibles au cours de la forme de À Proximité événement. Envisagez de Sur Décharger à la place. Ou mettre le code dans une procédure distincte, et l'appeler à partir de la Après mise à Jour cas de chacun de ces domaines qui déterminent AppStatus.Value.
InformationsquelleAutor HansUp

Je pense que c'est ce que vous avez besoin de:

If [PrimarySSN].Value = Null Or [PropAddress].Value = Null Or [PropCity].Value = Null Or [PropState].Value = Null Or [PropZipCode].Value = Null Or [RequestedLoanAmount].Value = Null Or [BorrowerIncome.Value] = Null Or [EstHomeValue].Value = Null Then
      [AppStatus].Value = "RE PRE-QUAL"
Else
      [AppStatus].Value = Null    
End If

Et aussi pensez à ceci:

InformationsquelleAutor user648026

Vous devez vous connecter pour publier un commentaire.