Tester l'existance d'une variable dans une requète ... [Résolu]
nuts_ben
- Messages postés
- 4
- Date d'inscription
- jeudi 9 février 2006
- Statut
- Membre
- Dernière intervention
- 17 mars 2009
- Messages postés
- 4
- Date d'inscription
- jeudi 9 février 2006
- Statut
- Membre
- Dernière intervention
- 17 mars 2009
A voir également:
- Tester l'existance d'une variable dans une requète ...
- Tester le type d'une variable python ✓ - Forum - C# / .NET
- Tester le type d'une variable java ✓ - Forum - Java
- SQL : Sql server - tester l'existance d'un objet - CodeS SourceS - Guide
- Delphi / Pascal : Tester l'existance d'un répertoire - CodeS SourceS - Guide
- Visual Basic / VB.NET : Tester l'existance d'un répertoire - CodeS SourceS - Guide
6 réponses
Meilleure réponse
- Messages postés
- 17280
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 21 juillet 2019
On Error Resume Next
permet de gérer les erreurs...
permet de gérer les erreurs...
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
6032 internautes nous ont dit merci ce mois-ci
- Messages postés
- 17280
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 21 juillet 2019
Private Sub Test
On Error Goto Handler
....
Exit Sub
Handler:
Msgbox "Une erreur " & err.number & " est survenue :" & vbnewline & _
Err.Description
End Sub
On Error Goto Handler
....
Exit Sub
Handler:
Msgbox "Une erreur " & err.number & " est survenue :" & vbnewline & _
Err.Description
End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
6032 internautes nous ont dit merci ce mois-ci
- Messages postés
- 267
- Date d'inscription
- jeudi 5 février 2009
- Statut
- Membre
- Dernière intervention
- 26 novembre 2013
Bonjour,
Tu rajoute simplement un test.
Ta variable est-elle réinitialisée? Si oui à quelle valeur?
Sinon tu rajoute simplement
If num2 > 0 then 'dans le cas où elle est réinitialisée à 0
If .SetFieldVal("num2", Nz(c, "")) = False Then
Anzeige "AVERTISSEMENT", UebernahmeArt, InSatz.Fields!num2 & " num2:<" & InSatz.Fields!num2 & ">", Editor.GetLastError
End If
end if
HellAngel777
<hr />
Les machines ne font pas d'erreurs
Heureusement nous sommes humains
Tu rajoute simplement un test.
Ta variable est-elle réinitialisée? Si oui à quelle valeur?
Sinon tu rajoute simplement
If num2 > 0 then 'dans le cas où elle est réinitialisée à 0
If .SetFieldVal("num2", Nz(c, "")) = False Then
Anzeige "AVERTISSEMENT", UebernahmeArt, InSatz.Fields!num2 & " num2:<" & InSatz.Fields!num2 & ">", Editor.GetLastError
End If
end if
HellAngel777
<hr />
Les machines ne font pas d'erreurs
Heureusement nous sommes humains
- Messages postés
- 4
- Date d'inscription
- jeudi 9 février 2006
- Statut
- Membre
- Dernière intervention
- 17 mars 2009
Merci pour ta réponsehellangel777,
En fait, la variable num2 correspond au nom d'une des colonnes de ma requête dans mon fichier Access. Cette colonne est amené ne pas être présente parfois. A ce moment là, le programme plante car il ne connait pas du num2.
Donc je n'initialise pas mes variables.
Je viens de voir qu'un erreur est présente dans mon premier code, je corrige :
<hr size= "2" width="100%" />
If .SetFieldVal("num2", Nz( InSatz.Fields!num2 , "")) = False Then
Anzeige "AVERTISSEMENT", UebernahmeArt, InSatz.Fields!num2 & " num2:<" & InSatz.Fields!num2 & ">", Editor.GetLastError
End If
<hr size="2" width="100%" />
La partie en gras est justement ce qui fait planter le prog car le champ num2 n'existe pas... Je ne peux pas la tester à null car vu qu'elle n'existe pas, ça plante.
Ce qui me faudrait, c'est une fonction isExiste() !!
Quelqu'un à une idée?
Merci
En fait, la variable num2 correspond au nom d'une des colonnes de ma requête dans mon fichier Access. Cette colonne est amené ne pas être présente parfois. A ce moment là, le programme plante car il ne connait pas du num2.
Donc je n'initialise pas mes variables.
Je viens de voir qu'un erreur est présente dans mon premier code, je corrige :
<hr size= "2" width="100%" />
If .SetFieldVal("num2", Nz( InSatz.Fields!num2 , "")) = False Then
Anzeige "AVERTISSEMENT", UebernahmeArt, InSatz.Fields!num2 & " num2:<" & InSatz.Fields!num2 & ">", Editor.GetLastError
End If
<hr size="2" width="100%" />
La partie en gras est justement ce qui fait planter le prog car le champ num2 n'existe pas... Je ne peux pas la tester à null car vu qu'elle n'existe pas, ça plante.
Ce qui me faudrait, c'est une fonction isExiste() !!
Quelqu'un à une idée?
Merci