Probleme SQL et ACCESS urgent (Entreprise)
ROBELLET Benoit
-
Utilisateur anonyme -
Utilisateur anonyme -
Lorsque je programme en VBA sous ACCESS une fonction du type
Public function GetCodeProduit(Des as string) as string
Dim DB as Database
Dim RS as Recordset
set DB = CurrentDb
set RS = DB.OpenRecordSet("SELECT * FROM Table WHERE Condition = 'COND'",dbopendynaset)
if RS.RecordCount<>0 then
GetCodeProduit = Nz(RS.Fields("CodeProduit").value,"")
Else
GetCodeProduit = ""
Endif
RS.Close
DB.Close
End Function
Mon problème est le suivant :
Si dans la table, il y a une désignation avec un apostrophe ( ' ), j'obtient une erreur.
Merci d'avance pour votre coup de main.
Public function GetCodeProduit(Des as string) as string
Dim DB as Database
Dim RS as Recordset
set DB = CurrentDb
set RS = DB.OpenRecordSet("SELECT * FROM Table WHERE Condition = 'COND'",dbopendynaset)
if RS.RecordCount<>0 then
GetCodeProduit = Nz(RS.Fields("CodeProduit").value,"")
Else
GetCodeProduit = ""
Endif
RS.Close
DB.Close
End Function
Mon problème est le suivant :
Si dans la table, il y a une désignation avec un apostrophe ( ' ), j'obtient une erreur.
Merci d'avance pour votre coup de main.
A voir également:
- Probleme SQL et ACCESS urgent (Entreprise)
- Clé windows 10 entreprise gratuit - Guide
- Organigramme d'une entreprise word - Guide
- Entreprise architecte - Télécharger - Gestion de projets
- Planning entreprise - Télécharger - Outils professionnels
- Calcul valeur entreprise excel gratuit - Télécharger - Comptabilité & Facturation
