Code vb pour recuperer une valeur dans access
Résolu
nathh76
Messages postés
40
Date d'inscription
Statut
Membre
Dernière intervention
-
aide -
aide -
A voir également:
- Code vb pour recuperer une valeur dans access
- Code ascii - Guide
- Recuperer message whatsapp supprimé - Guide
- Code puk bloqué - Guide
- Comment recuperer une video sur youtube - Guide
- Code activation windows 10 - Guide
27 réponses
Bon alors j'ai testé, et après plusieurs essais, il s'avère que le tests (le bloc if complet) corect est celui-ci
Il ne faut pas du tout de : si il te les rajoute c mauvais signe
Redis moi si il te sort une erreur
If IsNull([Base TVA0 sous-formulaire].Form![SommeDePrix element]) Then
Me![base TVA0] = 0
Else
[base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix element]
End If
Il ne faut pas du tout de : si il te les rajoute c mauvais signe
Redis moi si il te sort une erreur
J'ai toujours le message d'erreur :
Erreur d'execution 2113
valeur incorrecte pour ce champ.
Ce qui m'etonne, c'est que lorsque je regarde dans le debogueur, il bug sur la ligne
[base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix element]
alors que vu mon jeux d'essais, il ne devrait pas aller dans le else.
J'y comprend plus rien, je suis perdu.
Erreur d'execution 2113
valeur incorrecte pour ce champ.
Ce qui m'etonne, c'est que lorsque je regarde dans le debogueur, il bug sur la ligne
[base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix element]
alors que vu mon jeux d'essais, il ne devrait pas aller dans le else.
J'y comprend plus rien, je suis perdu.
lorsque tu est en mode débogage, place ta souris sur une des variables du if pour faire apparaitre une infobulle, elle t'indiquera la valeur de la variable....donne moi stp la valeur des variables du if si c'est possible...
Sinon, je suis perdu au moins autant que toi, je ne vois pas comment comparer une variable avec null avec une autre methode que celles proposées plus haut
Essaie aussi de vérifier la syntaxe des variables entre [] parce que le compilateur ne les corrige pas automatiquement, donc vérifie dans les propriétés des controle leurs noms, et vérifie leurs syntaxe dans le code
Sinon, je suis perdu au moins autant que toi, je ne vois pas comment comparer une variable avec null avec une autre methode que celles proposées plus haut
Essaie aussi de vérifier la syntaxe des variables entre [] parce que le compilateur ne les corrige pas automatiquement, donc vérifie dans les propriétés des controle leurs noms, et vérifie leurs syntaxe dans le code
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Ben la je suis perdu parce que j'ai essayé le code que je t'ai indiqué, et avec mon prototype sa fonctionne, c'est à dire que si le champ est vide il me met bien 0 dans l'autre, et sinon il affecte bien la valeur
Les seules erreurs que j'ai rencontré venaient du fait que j'avais mal nommé mes controles par rapport au code
Donc désolé de ne pas pouvoir t'aider plus que sa
Les seules erreurs que j'ai rencontré venaient du fait que j'avais mal nommé mes controles par rapport au code
Donc désolé de ne pas pouvoir t'aider plus que sa
Je vais essayer de trouver un moyen de contourner mon probleme.
Merci de m'avoir consacrer du temps.
Merci de m'avoir consacrer du temps.
Private Sub Commande49_Click()
On Error GoTo Err_Commande49_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
If [Base TVA0 sous-formulaire].Form!SommeDePrix_element.Value = "" Then
Me![base TVA0] = 0
Else: [base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix_element]
End If
[Montant TVA55] = [base TVA55] * 0.055
[Montant TVA196] = [base TVA196] * 0.196
[Montant HT] = [base TVA0] + [base TVA55] + [base TVA196]
[Montant TVA] = [Montant TVA55] + [Montant TVA196]
[Montant TTC] = [Montant HT] + [Montant TVA]
Exit_Commande49_Click:
Exit Sub
Err_Commande49_Click:
[base TVA0] = 0
Resume Exit_Commande49_Click
End Sub
On Error GoTo Err_Commande49_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
If [Base TVA0 sous-formulaire].Form!SommeDePrix_element.Value = "" Then
Me![base TVA0] = 0
Else: [base TVA0] = [Base TVA0 sous-formulaire].Form![SommeDePrix_element]
End If
[Montant TVA55] = [base TVA55] * 0.055
[Montant TVA196] = [base TVA196] * 0.196
[Montant HT] = [base TVA0] + [base TVA55] + [base TVA196]
[Montant TVA] = [Montant TVA55] + [Montant TVA196]
[Montant TTC] = [Montant HT] + [Montant TVA]
Exit_Commande49_Click:
Exit Sub
Err_Commande49_Click:
[base TVA0] = 0
Resume Exit_Commande49_Click
End Sub