[AC-2007] Erreur d’exécution 94 [Résolu]

[Kuky18]

Bonjour,

Voila j'ai un petit souci, qui à mon avis doit être très simple à résoudre, mais je ne vois pas du tout la solution ...

Je cherche à enregistrer dans une base de données le contenu d'un formulaire. Le problème n'est pas l'enregistrement mais l'affectation des contenues des textbox à une variable 'string'.

Variable = textbox.value

Lorsque mon champ est vide, l'erreur 94 apparaît et me dis que j'utilise Null incorrectement, pourtant cette affectation fonctionne parfaitement sur les autres champs...

Si quelqu’un peut m'aider

Merci !

[marot_r]

Ceci devrait résoudre ton problème.

Code :

1
2
3
if not isnull(Me.NomTaTextBox) then
   taVariable=Me.NomTaTextBox
end if

A+

[Kuky18]

OK merci, mais je trouve bizarre que l'on ne puisse pas affecter une chaîne vide à une variable 'String'...

[Kuky18]

Je viens de penser à un truc...

Est il possible de parcourir l'ensemble de mes textboxs avec une boucle afin de tester si elles sont vide ou remplies ?

[Kuky18]

J'ai trouvé ce morceau de code sur le net qui permet de réinitialiser les TextBox à la volé mais je ne sait pas comment faire un test sur la valeur de chacune d'entre elle...

Code :

1
2
3
4
5
6
7
 
Dim ctrl As Control
For Each ctrl In Userform01.MultiPage2.Pages(2).Controls
     If TypeOf ctrl Is MSForms.TextBox Then
     ctrl.Value = ""
     End If
Next

If TypeOf ctrl Is MSForms.TextBox and ctrl.value = empty Then

Mais cela ne fonctionne pas, c'est un probleme d'objet apparement...

[marot_r]

Code :

1
2
3
4
5
6
7
8
Dim ctrl As Control
For Each ctrl In Userform01.MultiPage2.Pages(2).Controls
     If TypeOf ctrl Is MSForms.TextBox Then
       if isempty(ctrl) then
          ctrl.Value = ""
       end if
     End If
Next

Sur un nouvel enregistrement Access initialise généralement les champs textes à Empty qui est différent de Null et qui n'est pas une chaîne vide non plus.

A+

[Kuky18]

Pour être plus précis dans l'énoncé de mon problème, lors de l'ouverture de mon formulaire, j'initialise chaque textbox avec la valeur "".

La solution que vous me proposez ne fonctionne pas, il semblerais que l'objet ctrl ne dispose pas de la méthode "value"...

[marot_r]

Essaye :

Code :

1
2
3
4
5
6
7
8
Dim ctrl As Control
For Each ctrl In Userform01.MultiPage2.Pages(2).Controls
     If TypeOf ctrl Is MSForms.TextBox Then
       if isempty(ctrl) then
          ctrl = ""
       end if
     End If
Next

Ça devrait marché.

A+

[Kuky18]

Bonjour,

J'ai résolu mon problème en utilisant ce code :

Code :

1
2
3
4
5
6
7
8
 
For Each Zone In Forms.NomFormulaire.Controls
     If Zone.ControlType = acTextBox Then
        If IsEmpty(Zone.Value) Then
            Zone.Value = ""
        End If
    End If
Next

Une partie du problème résidait dans le fait que lorsque je récupérais un enregistrement de ma base toutes les textboxs correspondantes obtenais la valeur 'Null' (rien d'extraordinaire !). Donc avant une modification/enregistrement, j'utilise ce code afin de purifier mes textboxs.

En vous remerciant pour vos remarques !

Sujet résolu