Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Bool

Bool

1 réponse
Avatar
Marc Demont
Bonjour,

Pourquoi le Bool coince sur : Bool = IIf(Nz(.[Nom Pays]) = "", True,
False) ?
propriété ? ou méthode ?
Quel est le Pb ???
---

Private Sub Commande6_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset

' Bool = True
' utilise la fonction
NZ([Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]![Nom Pays]) pour détecter sa valeur à Null

With [Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]

Bool = IIf(Nz(.[Nom Pays]) = "", True, False) ' ICI !!

' pour prendre la valeur un majuscule
NomDuPaysSaisie =
UCase([Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]![Nom Pays])

Set db = CurrentDb()
StrTexte = "SELECT * FROM [BDCatalogue_Index_Pays] WHERE UCase([Nom
Pays]) LIKE'*" & NomDuPaysSaisie & "*'"
Set rst = db.OpenRecordset(StrTexte)

If rst.EOF Then
rst.Edit
' il n"existe pas donc ajouter
rst.AddNew
rst("Nom Pays") =
[Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]![Nom Pays]
rst.Update
End If

' Fermer le Recordset
rst.Close
Set rst = Nothing
Set db = Nothing

.../...
......
end with
Signaler un problème avec ce contenu

1 réponse

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
Avatar
Charles ERNST
Bool = IIf(Nz(.[Nom Pays],"") = "", True,


"Marc Demont" a écrit dans le message de
news:ciuuhk$onf$

Bonjour,

Pourquoi le Bool coince sur : Bool = IIf(Nz(.[Nom Pays]) = "", True,
False) ?
propriété ? ou méthode ?
Quel est le Pb ???
---

Private Sub Commande6_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset

' Bool = True
' utilise la fonction
NZ([Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]![Nom Pays]) pour détecter sa valeur à Null

With [Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]

Bool = IIf(Nz(.[Nom Pays]) = "", True, False) ' ICI !!

' pour prendre la valeur un majuscule
NomDuPaysSaisie > UCase([Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]![Nom Pays])

Set db = CurrentDb()
StrTexte = "SELECT * FROM [BDCatalogue_Index_Pays] WHERE UCase([Nom
Pays]) LIKE'*" & NomDuPaysSaisie & "*'"
Set rst = db.OpenRecordset(StrTexte)

If rst.EOF Then
rst.Edit
' il n"existe pas donc ajouter
rst.AddNew
rst("Nom Pays") > [Form_FormulaireAjoutNouveauxPays]![BDCatalogue_Index_Pays-AjoutPays
sous-formulaire]![Nom Pays]
rst.Update
End If

' Fermer le Recordset
rst.Close
Set rst = Nothing
Set db = Nothing

.../...
......
end with