Sur ma page se trouvent plusieurs TextBox : Titre, Nom, Prénom,...
Lorsque mon recordset contient que des champs non null tout va bien,
mais lorsqu'un est vide j'ai une erreur '94' utilisation non autorisée
de Null
J'ai tanté de contourner par des test de valeur de mes champs du
recordset sans succès. Voici mon code :
Private Sub Affichage()
sql = "select * from Client where NumClient=" & cec
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
Nom.Text = rs1.Fields("Nom")
If rs1.Fields("Nom") = Null Then
Nom.Text = ""
Else
Nom.Text = rs1.Fields("Nom")
End If
rs1.Close
End Sub
Marche pas :-(
ou
Private Sub Affichage()
sql = "select * from Client where NumClient=" & cec
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
Nom.Text = rs1.Fields("Nom")
If rs1.Fields("Nom") = "" Then
Nom.Text = ""
Else
Nom.Text = rs1.Fields("Nom")
End If
rs1.Close
End Sub
Idem
Help, Help, Help
Et un Grand Merci d'avance pour vos réponces.
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
Christophe QUEVAL
Bonjour,
A la place de : If rs1.Fields("Nom") = Null Then, faites If IsNull(rs1.Fields("Nom")) Then...
Christophe
"Lorenzo" a écrit dans le message de news:
Bonjour à tous
Voilà mon problème :
Je pilote une base access à l'aide de VB
Sur ma page se trouvent plusieurs TextBox : Titre, Nom, Prénom,...
Lorsque mon recordset contient que des champs non null tout va bien, mais lorsqu'un est vide j'ai une erreur '94' utilisation non autorisée de Null
J'ai tanté de contourner par des test de valeur de mes champs du recordset sans succès. Voici mon code :
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = Null Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Marche pas :-(
ou
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = "" Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Idem
Help, Help, Help Et un Grand Merci d'avance pour vos réponces.
Lorenzo T.
Bonjour,
A la place de : If rs1.Fields("Nom") = Null Then, faites If
IsNull(rs1.Fields("Nom")) Then...
Christophe
"Lorenzo" <thoor@ifrance.com> a écrit dans le message de
news:0or9ovocvo6hq4d6gnqbij2hdn9e5dp5ie@4ax.com...
Bonjour à tous
Voilà mon problème :
Je pilote une base access à l'aide de VB
Sur ma page se trouvent plusieurs TextBox : Titre, Nom, Prénom,...
Lorsque mon recordset contient que des champs non null tout va bien,
mais lorsqu'un est vide j'ai une erreur '94' utilisation non autorisée
de Null
J'ai tanté de contourner par des test de valeur de mes champs du
recordset sans succès. Voici mon code :
Private Sub Affichage()
sql = "select * from Client where NumClient=" & cec
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
Nom.Text = rs1.Fields("Nom")
If rs1.Fields("Nom") = Null Then
Nom.Text = ""
Else
Nom.Text = rs1.Fields("Nom")
End If
rs1.Close
End Sub
Marche pas :-(
ou
Private Sub Affichage()
sql = "select * from Client where NumClient=" & cec
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
Nom.Text = rs1.Fields("Nom")
If rs1.Fields("Nom") = "" Then
Nom.Text = ""
Else
Nom.Text = rs1.Fields("Nom")
End If
rs1.Close
End Sub
Idem
Help, Help, Help
Et un Grand Merci d'avance pour vos réponces.
A la place de : If rs1.Fields("Nom") = Null Then, faites If IsNull(rs1.Fields("Nom")) Then...
Christophe
"Lorenzo" a écrit dans le message de news:
Bonjour à tous
Voilà mon problème :
Je pilote une base access à l'aide de VB
Sur ma page se trouvent plusieurs TextBox : Titre, Nom, Prénom,...
Lorsque mon recordset contient que des champs non null tout va bien, mais lorsqu'un est vide j'ai une erreur '94' utilisation non autorisée de Null
J'ai tanté de contourner par des test de valeur de mes champs du recordset sans succès. Voici mon code :
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = Null Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Marche pas :-(
ou
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = "" Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Idem
Help, Help, Help Et un Grand Merci d'avance pour vos réponces.
Lorenzo T.
LaCitrouille
Tu peux également faire simplement :
NOM.TEXT = rs1.Fields("Nom") & ""
Attention, cela ne fonctionne que pour les types string.
Cordialement.
"Lorenzo" a écrit dans le message de news:
Bonjour à tous
Voilà mon problème :
Je pilote une base access à l'aide de VB
Sur ma page se trouvent plusieurs TextBox : Titre, Nom, Prénom,...
Lorsque mon recordset contient que des champs non null tout va bien, mais lorsqu'un est vide j'ai une erreur '94' utilisation non autorisée de Null
J'ai tanté de contourner par des test de valeur de mes champs du recordset sans succès. Voici mon code :
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = Null Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Marche pas :-(
ou
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = "" Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Idem
Help, Help, Help Et un Grand Merci d'avance pour vos réponces.
Lorenzo T.
Tu peux également faire simplement :
NOM.TEXT = rs1.Fields("Nom") & ""
Attention, cela ne fonctionne que pour les types string.
Cordialement.
"Lorenzo" <thoor@ifrance.com> a écrit dans le message de news:
0or9ovocvo6hq4d6gnqbij2hdn9e5dp5ie@4ax.com...
Bonjour à tous
Voilà mon problème :
Je pilote une base access à l'aide de VB
Sur ma page se trouvent plusieurs TextBox : Titre, Nom, Prénom,...
Lorsque mon recordset contient que des champs non null tout va bien,
mais lorsqu'un est vide j'ai une erreur '94' utilisation non autorisée
de Null
J'ai tanté de contourner par des test de valeur de mes champs du
recordset sans succès. Voici mon code :
Private Sub Affichage()
sql = "select * from Client where NumClient=" & cec
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
Nom.Text = rs1.Fields("Nom")
If rs1.Fields("Nom") = Null Then
Nom.Text = ""
Else
Nom.Text = rs1.Fields("Nom")
End If
rs1.Close
End Sub
Marche pas :-(
ou
Private Sub Affichage()
sql = "select * from Client where NumClient=" & cec
Set rs1 = db.OpenRecordset(sql, dbOpenDynaset)
Nom.Text = rs1.Fields("Nom")
If rs1.Fields("Nom") = "" Then
Nom.Text = ""
Else
Nom.Text = rs1.Fields("Nom")
End If
rs1.Close
End Sub
Idem
Help, Help, Help
Et un Grand Merci d'avance pour vos réponces.
Attention, cela ne fonctionne que pour les types string.
Cordialement.
"Lorenzo" a écrit dans le message de news:
Bonjour à tous
Voilà mon problème :
Je pilote une base access à l'aide de VB
Sur ma page se trouvent plusieurs TextBox : Titre, Nom, Prénom,...
Lorsque mon recordset contient que des champs non null tout va bien, mais lorsqu'un est vide j'ai une erreur '94' utilisation non autorisée de Null
J'ai tanté de contourner par des test de valeur de mes champs du recordset sans succès. Voici mon code :
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = Null Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Marche pas :-(
ou
Private Sub Affichage() sql = "select * from Client where NumClient=" & cec Set rs1 = db.OpenRecordset(sql, dbOpenDynaset) Nom.Text = rs1.Fields("Nom") If rs1.Fields("Nom") = "" Then Nom.Text = "" Else Nom.Text = rs1.Fields("Nom") End If rs1.Close End Sub
Idem
Help, Help, Help Et un Grand Merci d'avance pour vos réponces.
