Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Erreur 94 lors tentative effacement contenu textBox

Erreur 94 lors tentative effacement contenu textBox

16 réponses
Avatar
Guy FALESSE
Bonjour à tous,

J'ai un formulaire qui contient 1 listView,2 txtBox et 1 bouton de commande

le bouton de commande à ce code:

Private Sub Command1_Click()

Me.txtCode = ""

Me.txtEntrerLettres = ""

End Sub



Le textbox txtCode a ce code:

Private Sub TXTCode_Change()

Dim monSQL As String, Critère As String, rst As Recordset, leNbre As Integer

Dim maBD As Database, strConnection As String

Dim ObjListe As ListItem, I As Integer

strConnection = "c:\BaseAccess\CodesPostaux_97.mdb"

Critère = txtCode.Text & "*" 'ne pas oublier de mettre .Text

monSQL = "SELECT tblCodes.Code, tblCodes.Localité FROM tblCodes " _

& "WHERE tblCodes.Code Like '" & Critère & "'" _

& "ORDER BY tblCodes.Code;"

Set maBD = OpenDatabase(strConnection)

Set rst = maBD.OpenRecordset(monSQL)

lstViewCodes.ListItems.Clear

lstViewCodes.ColumnHeaders.Clear

'Ajoute les titres

lstViewCodes.ColumnHeaders.Add , , "Codes", lstViewCodes.Width / 5

lstViewCodes.ColumnHeaders.Add , , "Localité", lstViewCodes.Width / 1.3

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

lstViewCodes.View = lvwReport

If rst.RecordCount > 0 Then

rst.MoveFirst

Do While Not rst.EOF

'==============================

Set ObjListe = Nothing

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

'==============================

rst.MoveNext

Loop

End If

Set rst = Nothing

Set maBD = Nothing

End Sub

le txtBox txtEntrerLettres a le même code, avec bien sûr quelques
changements

Lorsque je clique sur le bouton qui devrait m'effacer le contenu des txtBox,
j'ai l'erreur 94 qui dit utilisation non autorisée du null.

Les champs Localités et codes sont du type text et le null est permis dans
la table.

Comment pourrais-je effacer ces textBox sans avoir d'erreur.

D'avance merci à ceelles ou ceux qui pourraient m'apporter la solution.

Guy FALESSE
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
dark poulpo
jai plus vb d'installé.



--
-----
http://dark.freezee.org/
- Dark Update v2.0
- Dark Emule v0.44b r4
- Dark 3D-X 0.7beta
- Dark Shell 1.12
Avatar
Guy FALESSE
Salut dark poulpo,

Ah! D'accord, ça complique évidemment les choses.
Merci tout de même d'avoir essayé.
@+

Guy FALESSE


"dark poulpo" a écrit dans le message de news:
421dd5cd$0$11724$
jai plus vb d'installé.



--
-----
http://dark.freezee.org/
- Dark Update v2.0
- Dark Emule v0.44b r4
- Dark 3D-X 0.7beta
- Dark Shell 1.12




Avatar
Guy FALESSE
Bonjour à tous et en particulier à dark poulpo,

Finalement, j'ai trouvé, il "suffisait" de faire la gestion du null.
Je n'ai trouvé qu'avec l'aide des différents forums et des pistes que j'ai
reçues.
@+

Guy FALESSE

ObjListe.SubItems(1) = IIf(IsNull(rst!localité.Value), "",
rst!localité.Value)
"Guy FALESSE" a écrit dans le message de news:
OD%
Bonjour à tous,

J'ai un formulaire qui contient 1 listView,2 txtBox et 1 bouton de
commande

le bouton de commande à ce code:

Private Sub Command1_Click()

Me.txtCode = ""

Me.txtEntrerLettres = ""

End Sub



Le textbox txtCode a ce code:

Private Sub TXTCode_Change()

Dim monSQL As String, Critère As String, rst As Recordset, leNbre As
Integer

Dim maBD As Database, strConnection As String

Dim ObjListe As ListItem, I As Integer

strConnection = "c:BaseAccessCodesPostaux_97.mdb"

Critère = txtCode.Text & "*" 'ne pas oublier de mettre .Text

monSQL = "SELECT tblCodes.Code, tblCodes.Localité FROM tblCodes " _

& "WHERE tblCodes.Code Like '" & Critère & "'" _

& "ORDER BY tblCodes.Code;"

Set maBD = OpenDatabase(strConnection)

Set rst = maBD.OpenRecordset(monSQL)

lstViewCodes.ListItems.Clear

lstViewCodes.ColumnHeaders.Clear

'Ajoute les titres

lstViewCodes.ColumnHeaders.Add , , "Codes", lstViewCodes.Width / 5

lstViewCodes.ColumnHeaders.Add , , "Localité", lstViewCodes.Width / 1.3

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

lstViewCodes.View = lvwReport

If rst.RecordCount > 0 Then

rst.MoveFirst

Do While Not rst.EOF

'============================= >
Set ObjListe = Nothing

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

'============================= >
rst.MoveNext

Loop

End If

Set rst = Nothing

Set maBD = Nothing

End Sub

le txtBox txtEntrerLettres a le même code, avec bien sûr quelques
changements

Lorsque je clique sur le bouton qui devrait m'effacer le contenu des
txtBox, j'ai l'erreur 94 qui dit utilisation non autorisée du null.

Les champs Localités et codes sont du type text et le null est permis dans
la table.

Comment pourrais-je effacer ces textBox sans avoir d'erreur.

D'avance merci à ceelles ou ceux qui pourraient m'apporter la solution.

Guy FALESSE




Avatar
jacques thiery
Tu peux aussi ecrire
ObjListe.SubItems(1) = "" & (rst!localité.Value)
Cordialement

"Guy FALESSE" a écrit dans le message de news:

Bonjour à tous et en particulier à dark poulpo,

Finalement, j'ai trouvé, il "suffisait" de faire la gestion du null.
Je n'ai trouvé qu'avec l'aide des différents forums et des pistes que j'ai
reçues.
@+

Guy FALESSE

ObjListe.SubItems(1) = IIf(IsNull(rst!localité.Value), "",
rst!localité.Value)
"Guy FALESSE" a écrit dans le message de news:
OD%
Bonjour à tous,

J'ai un formulaire qui contient 1 listView,2 txtBox et 1 bouton de
commande

le bouton de commande à ce code:

Private Sub Command1_Click()

Me.txtCode = ""

Me.txtEntrerLettres = ""

End Sub



Le textbox txtCode a ce code:

Private Sub TXTCode_Change()

Dim monSQL As String, Critère As String, rst As Recordset, leNbre As
Integer

Dim maBD As Database, strConnection As String

Dim ObjListe As ListItem, I As Integer

strConnection = "c:BaseAccessCodesPostaux_97.mdb"

Critère = txtCode.Text & "*" 'ne pas oublier de mettre .Text

monSQL = "SELECT tblCodes.Code, tblCodes.Localité FROM tblCodes " _

& "WHERE tblCodes.Code Like '" & Critère & "'" _

& "ORDER BY tblCodes.Code;"

Set maBD = OpenDatabase(strConnection)

Set rst = maBD.OpenRecordset(monSQL)

lstViewCodes.ListItems.Clear

lstViewCodes.ColumnHeaders.Clear

'Ajoute les titres

lstViewCodes.ColumnHeaders.Add , , "Codes", lstViewCodes.Width / 5

lstViewCodes.ColumnHeaders.Add , , "Localité", lstViewCodes.Width / 1.3

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

lstViewCodes.View = lvwReport

If rst.RecordCount > 0 Then

rst.MoveFirst

Do While Not rst.EOF

'============================= >>
Set ObjListe = Nothing

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

'============================= >>
rst.MoveNext

Loop

End If

Set rst = Nothing

Set maBD = Nothing

End Sub

le txtBox txtEntrerLettres a le même code, avec bien sûr quelques
changements

Lorsque je clique sur le bouton qui devrait m'effacer le contenu des
txtBox, j'ai l'erreur 94 qui dit utilisation non autorisée du null.

Les champs Localités et codes sont du type text et le null est permis
dans la table.

Comment pourrais-je effacer ces textBox sans avoir d'erreur.

D'avance merci à ceelles ou ceux qui pourraient m'apporter la solution.

Guy FALESSE








Avatar
Guy FALESSE
Salut Jacques,
Merci pour ta réponse.
C'est encore plus simple et ça fonctionne :-)
@+

Guy FALESSE


"jacques thiery" a écrit dans le message de news:
%
Tu peux aussi ecrire
ObjListe.SubItems(1) = "" & (rst!localité.Value)
Cordialement

"Guy FALESSE" a écrit dans le message de news:

Bonjour à tous et en particulier à dark poulpo,

Finalement, j'ai trouvé, il "suffisait" de faire la gestion du null.
Je n'ai trouvé qu'avec l'aide des différents forums et des pistes que
j'ai reçues.
@+

Guy FALESSE

ObjListe.SubItems(1) = IIf(IsNull(rst!localité.Value), "",
rst!localité.Value)
"Guy FALESSE" a écrit dans le message de news:
OD%
Bonjour à tous,

J'ai un formulaire qui contient 1 listView,2 txtBox et 1 bouton de
commande

le bouton de commande à ce code:

Private Sub Command1_Click()

Me.txtCode = ""

Me.txtEntrerLettres = ""

End Sub



Le textbox txtCode a ce code:

Private Sub TXTCode_Change()

Dim monSQL As String, Critère As String, rst As Recordset, leNbre As
Integer

Dim maBD As Database, strConnection As String

Dim ObjListe As ListItem, I As Integer

strConnection = "c:BaseAccessCodesPostaux_97.mdb"

Critère = txtCode.Text & "*" 'ne pas oublier de mettre .Text

monSQL = "SELECT tblCodes.Code, tblCodes.Localité FROM tblCodes " _

& "WHERE tblCodes.Code Like '" & Critère & "'" _

& "ORDER BY tblCodes.Code;"

Set maBD = OpenDatabase(strConnection)

Set rst = maBD.OpenRecordset(monSQL)

lstViewCodes.ListItems.Clear

lstViewCodes.ColumnHeaders.Clear

'Ajoute les titres

lstViewCodes.ColumnHeaders.Add , , "Codes", lstViewCodes.Width / 5

lstViewCodes.ColumnHeaders.Add , , "Localité", lstViewCodes.Width / 1.3

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

lstViewCodes.View = lvwReport

If rst.RecordCount > 0 Then

rst.MoveFirst

Do While Not rst.EOF

'============================= >>>
Set ObjListe = Nothing

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

'============================= >>>
rst.MoveNext

Loop

End If

Set rst = Nothing

Set maBD = Nothing

End Sub

le txtBox txtEntrerLettres a le même code, avec bien sûr quelques
changements

Lorsque je clique sur le bouton qui devrait m'effacer le contenu des
txtBox, j'ai l'erreur 94 qui dit utilisation non autorisée du null.

Les champs Localités et codes sont du type text et le null est permis
dans la table.

Comment pourrais-je effacer ces textBox sans avoir d'erreur.

D'avance merci à ceelles ou ceux qui pourraient m'apporter la solution.

Guy FALESSE












Avatar
Ouattara Inssoukira
Quand tu cliques sur le bouton pour effacer les zones textes, profites en
pour effacer aussi la listeview.
Dans ta procedure change, teste si le texte box est vide alors tu
n'executes pas la procedure en écrivant au debut de cette procédure change :

if txtcode = "" then
exit sub
end if


"Guy FALESSE" a écrit dans le message de
news:OD%
Bonjour à tous,

J'ai un formulaire qui contient 1 listView,2 txtBox et 1 bouton de


commande

le bouton de commande à ce code:

Private Sub Command1_Click()

Me.txtCode = ""

Me.txtEntrerLettres = ""

End Sub



Le textbox txtCode a ce code:

Private Sub TXTCode_Change()

Dim monSQL As String, Critère As String, rst As Recordset, leNbre As


Integer

Dim maBD As Database, strConnection As String

Dim ObjListe As ListItem, I As Integer

strConnection = "c:BaseAccessCodesPostaux_97.mdb"

Critère = txtCode.Text & "*" 'ne pas oublier de mettre .Text

monSQL = "SELECT tblCodes.Code, tblCodes.Localité FROM tblCodes " _

& "WHERE tblCodes.Code Like '" & Critère & "'" _

& "ORDER BY tblCodes.Code;"

Set maBD = OpenDatabase(strConnection)

Set rst = maBD.OpenRecordset(monSQL)

lstViewCodes.ListItems.Clear

lstViewCodes.ColumnHeaders.Clear

'Ajoute les titres

lstViewCodes.ColumnHeaders.Add , , "Codes", lstViewCodes.Width / 5

lstViewCodes.ColumnHeaders.Add , , "Localité", lstViewCodes.Width / 1.3

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

lstViewCodes.View = lvwReport

If rst.RecordCount > 0 Then

rst.MoveFirst

Do While Not rst.EOF

'============================= >
Set ObjListe = Nothing

Set ObjListe = lstViewCodes.ListItems.Add(, , rst!code) ' 1ere colonne

ObjListe.SubItems(1) = rst!localité ' 2eme colonne

'============================= >
rst.MoveNext

Loop

End If

Set rst = Nothing

Set maBD = Nothing

End Sub

le txtBox txtEntrerLettres a le même code, avec bien sûr quelques
changements

Lorsque je clique sur le bouton qui devrait m'effacer le contenu des


txtBox,
j'ai l'erreur 94 qui dit utilisation non autorisée du null.

Les champs Localités et codes sont du type text et le null est permis dans
la table.

Comment pourrais-je effacer ces textBox sans avoir d'erreur.

D'avance merci à ceelles ou ceux qui pourraient m'apporter la solution.

Guy FALESSE




1 2