Voila le code que j'ai ecrit (j'ai enleve des morceaux) :
Dim E_mail1 As String
Dim e_mail2 As String
Dim Nom As String
...
Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset)
If MyRecordset.EOF = True Then
MsgBox ("No match")
Exit Sub
Else
Do Until MyRecordset.EOF
E_mail1 = MyRecordset![e-mail]
e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte
pas le fait que le champ soit NULL. Je ne vois pas
pourquoi ca doit poser un probleme !
Nom = MyRecordset!Title & " " & MyRecordset![Last
Name]
...
MyRecordset.MoveNext
Loop
MyRecordset.Close
End If
Ca risque de me poser des problemes pour chaque champs si
un jour ils sont vides !
Donc, merci d'avance pour toutes les suggestions que vous
pourrez m'apporter !!!
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
Denis Taglia
Bonjour, Je pense que declare en string et vide ou null dans la table ça le derange. Essais E_mail2=NZ(MyRecordset![e-mail2],""). Ca doit-etre vrai pour le E_mail1 aussi si il est vide? Denis
"nenelle" a écrit dans le message de news:099401c36e22$3ee95b90$
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) : Dim E_mail1 As String Dim e_mail2 As String Dim Nom As String ... Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset) If MyRecordset.EOF = True Then MsgBox ("No match") Exit Sub Else Do Until MyRecordset.EOF E_mail1 = MyRecordset![e-mail] e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte pas le fait que le champ soit NULL. Je ne vois pas pourquoi ca doit poser un probleme ! Nom = MyRecordset!Title & " " & MyRecordset![Last Name] ... MyRecordset.MoveNext Loop MyRecordset.Close End If
Ca risque de me poser des problemes pour chaque champs si un jour ils sont vides ! Donc, merci d'avance pour toutes les suggestions que vous pourrez m'apporter !!!
Bonjour,
Je pense que declare en string et vide ou null dans la table ça le derange.
Essais E_mail2=NZ(MyRecordset![e-mail2],"").
Ca doit-etre vrai pour le E_mail1 aussi si il est vide?
Denis
"nenelle" <ganaelle.antoine@orange.fr> a écrit dans le message de
news:099401c36e22$3ee95b90$a601280a@phx.gbl...
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) :
Dim E_mail1 As String
Dim e_mail2 As String
Dim Nom As String
...
Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset)
If MyRecordset.EOF = True Then
MsgBox ("No match")
Exit Sub
Else
Do Until MyRecordset.EOF
E_mail1 = MyRecordset![e-mail]
e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte
pas le fait que le champ soit NULL. Je ne vois pas
pourquoi ca doit poser un probleme !
Nom = MyRecordset!Title & " " & MyRecordset![Last
Name]
...
MyRecordset.MoveNext
Loop
MyRecordset.Close
End If
Ca risque de me poser des problemes pour chaque champs si
un jour ils sont vides !
Donc, merci d'avance pour toutes les suggestions que vous
pourrez m'apporter !!!
Bonjour, Je pense que declare en string et vide ou null dans la table ça le derange. Essais E_mail2=NZ(MyRecordset![e-mail2],""). Ca doit-etre vrai pour le E_mail1 aussi si il est vide? Denis
"nenelle" a écrit dans le message de news:099401c36e22$3ee95b90$
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) : Dim E_mail1 As String Dim e_mail2 As String Dim Nom As String ... Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset) If MyRecordset.EOF = True Then MsgBox ("No match") Exit Sub Else Do Until MyRecordset.EOF E_mail1 = MyRecordset![e-mail] e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte pas le fait que le champ soit NULL. Je ne vois pas pourquoi ca doit poser un probleme ! Nom = MyRecordset!Title & " " & MyRecordset![Last Name] ... MyRecordset.MoveNext Loop MyRecordset.Close End If
Ca risque de me poser des problemes pour chaque champs si un jour ils sont vides ! Donc, merci d'avance pour toutes les suggestions que vous pourrez m'apporter !!!
nenelle
Merci beaucoup ! Ca marche ! Il faut croire qu'il prefere les champs pleins ! Encore merci !
Merci beaucoup ! Ca marche !
Il faut croire qu'il prefere les champs pleins !
Encore merci !
Merci beaucoup ! Ca marche ! Il faut croire qu'il prefere les champs pleins ! Encore merci !
Michel Walsh
Salut,
On ne peut pas emmagaziner un NULL dans un String. Il faut un variant pour emmagaziner un NULL. D'où, soit
Dim x As Variant x=Rst.Fields("nomDuChamp")
soit
Dim x As String x= Nz( rst.Fields("nomDuChamp"), vbNullString )
Dans le premier cas, on conserve l'information que le champ est NULL, dans le second, on transforme localement l'information champ-Null en une chaîne vide.
Espérant être utile, Vanderghast, Access MVP
"nenelle" wrote in message news:099401c36e22$3ee95b90$
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) : Dim E_mail1 As String Dim e_mail2 As String Dim Nom As String ... Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset) If MyRecordset.EOF = True Then MsgBox ("No match") Exit Sub Else Do Until MyRecordset.EOF E_mail1 = MyRecordset![e-mail] e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte pas le fait que le champ soit NULL. Je ne vois pas pourquoi ca doit poser un probleme ! Nom = MyRecordset!Title & " " & MyRecordset![Last Name] ... MyRecordset.MoveNext Loop MyRecordset.Close End If
Ca risque de me poser des problemes pour chaque champs si un jour ils sont vides ! Donc, merci d'avance pour toutes les suggestions que vous pourrez m'apporter !!!
Salut,
On ne peut pas emmagaziner un NULL dans un String. Il faut un variant
pour emmagaziner un NULL. D'où, soit
Dim x As Variant
x=Rst.Fields("nomDuChamp")
soit
Dim x As String
x= Nz( rst.Fields("nomDuChamp"), vbNullString )
Dans le premier cas, on conserve l'information que le champ est NULL, dans
le second, on transforme localement l'information champ-Null en une chaîne
vide.
Espérant être utile,
Vanderghast, Access MVP
"nenelle" <ganaelle.antoine@orange.fr> wrote in message
news:099401c36e22$3ee95b90$a601280a@phx.gbl...
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) :
Dim E_mail1 As String
Dim e_mail2 As String
Dim Nom As String
...
Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset)
If MyRecordset.EOF = True Then
MsgBox ("No match")
Exit Sub
Else
Do Until MyRecordset.EOF
E_mail1 = MyRecordset![e-mail]
e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte
pas le fait que le champ soit NULL. Je ne vois pas
pourquoi ca doit poser un probleme !
Nom = MyRecordset!Title & " " & MyRecordset![Last
Name]
...
MyRecordset.MoveNext
Loop
MyRecordset.Close
End If
Ca risque de me poser des problemes pour chaque champs si
un jour ils sont vides !
Donc, merci d'avance pour toutes les suggestions que vous
pourrez m'apporter !!!
On ne peut pas emmagaziner un NULL dans un String. Il faut un variant pour emmagaziner un NULL. D'où, soit
Dim x As Variant x=Rst.Fields("nomDuChamp")
soit
Dim x As String x= Nz( rst.Fields("nomDuChamp"), vbNullString )
Dans le premier cas, on conserve l'information que le champ est NULL, dans le second, on transforme localement l'information champ-Null en une chaîne vide.
Espérant être utile, Vanderghast, Access MVP
"nenelle" wrote in message news:099401c36e22$3ee95b90$
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) : Dim E_mail1 As String Dim e_mail2 As String Dim Nom As String ... Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset) If MyRecordset.EOF = True Then MsgBox ("No match") Exit Sub Else Do Until MyRecordset.EOF E_mail1 = MyRecordset![e-mail] e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte pas le fait que le champ soit NULL. Je ne vois pas pourquoi ca doit poser un probleme ! Nom = MyRecordset!Title & " " & MyRecordset![Last Name] ... MyRecordset.MoveNext Loop MyRecordset.Close End If
Ca risque de me poser des problemes pour chaque champs si un jour ils sont vides ! Donc, merci d'avance pour toutes les suggestions que vous pourrez m'apporter !!!
Jeff
Bonjour
Tu pourrais déclarer tes 2 variables e_mail1 et e_mail2 en type Variant
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
"nenelle" a écrit dans le message de news:099401c36e22$3ee95b90$
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) : Dim E_mail1 As String Dim e_mail2 As String Dim Nom As String ... Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset) If MyRecordset.EOF = True Then MsgBox ("No match") Exit Sub Else Do Until MyRecordset.EOF E_mail1 = MyRecordset![e-mail] e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte pas le fait que le champ soit NULL. Je ne vois pas pourquoi ca doit poser un probleme ! Nom = MyRecordset!Title & " " & MyRecordset![Last Name] ... MyRecordset.MoveNext Loop MyRecordset.Close End If
Ca risque de me poser des problemes pour chaque champs si un jour ils sont vides ! Donc, merci d'avance pour toutes les suggestions que vous pourrez m'apporter !!!
Bonjour
Tu pourrais déclarer tes 2 variables e_mail1 et e_mail2 en type Variant
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
"nenelle" <ganaelle.antoine@orange.fr> a écrit dans le message de
news:099401c36e22$3ee95b90$a601280a@phx.gbl...
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) :
Dim E_mail1 As String
Dim e_mail2 As String
Dim Nom As String
...
Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset)
If MyRecordset.EOF = True Then
MsgBox ("No match")
Exit Sub
Else
Do Until MyRecordset.EOF
E_mail1 = MyRecordset![e-mail]
e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte
pas le fait que le champ soit NULL. Je ne vois pas
pourquoi ca doit poser un probleme !
Nom = MyRecordset!Title & " " & MyRecordset![Last
Name]
...
MyRecordset.MoveNext
Loop
MyRecordset.Close
End If
Ca risque de me poser des problemes pour chaque champs si
un jour ils sont vides !
Donc, merci d'avance pour toutes les suggestions que vous
pourrez m'apporter !!!
Tu pourrais déclarer tes 2 variables e_mail1 et e_mail2 en type Variant
Cordialement
Jeff
Charte du forum : http://users.skynet.be/mpfa/
"nenelle" a écrit dans le message de news:099401c36e22$3ee95b90$
Bonjour,
Voila le code que j'ai ecrit (j'ai enleve des morceaux) : Dim E_mail1 As String Dim e_mail2 As String Dim Nom As String ... Set MyRecordset = MyDb.OpenRecordset(SQLStr, dbOpenDynaset) If MyRecordset.EOF = True Then MsgBox ("No match") Exit Sub Else Do Until MyRecordset.EOF E_mail1 = MyRecordset![e-mail] e_mail2 = MyRecordset![e-mail2] 'Ici il n'accepte pas le fait que le champ soit NULL. Je ne vois pas pourquoi ca doit poser un probleme ! Nom = MyRecordset!Title & " " & MyRecordset![Last Name] ... MyRecordset.MoveNext Loop MyRecordset.Close End If
Ca risque de me poser des problemes pour chaque champs si un jour ils sont vides ! Donc, merci d'avance pour toutes les suggestions que vous pourrez m'apporter !!!
