LES FONCTIONS DCOUNT, DLOOKUP ET DSUM D'ACCESS EN VB6

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018 - 1 juil. 2004 à 13:58
mymym Messages postés 30 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 20 juin 2005 - 31 mai 2005 à 11:09

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/24179-les-fonctions-dcount-dlookup-et-dsum-d-access-en-vb6

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
1 juil. 2004 à 13:58

Et voici comment ouvrir simplement la base :

DBEngine.SystemDB = ""
Dim Session As Workspace
Set Session = DBEngine.Workspaces(0)
Set m_bd = Session.OpenDatabase(sCheminBD)

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
16 août 2004 à 09:37

Version en VB .Net :

ACCESSTOVB7 : LES FONCTIONS DCOUNT, DLOOKUP ET DSUM D'ACCESS EN VB7
www.vbfrance.com/code.aspx?ID=25408

mymym Messages postés 30 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 20 juin 2005
31 mai 2005 à 09:33

bonjour, voila j ai un probleme je ne sais pas ecrire un code vb et je nai pas d autre solution il me faut absolument du vb pour ma bd access,
je dois pouvoir afficher un numero de client dans mon formulaire de saisie mais pour ce faire il faut que en rentrant les coordonnee du client (nom/prenom/code postal) ca puisse chercher ds ma base si le client existe et dc me donner son numero sinon lui cree un nouveau numero
je crois que pour ca il faut utiliser les fonction
-Dcount pour compter les client
- si >0 faire un OpenRecordset pour chercher si le client existe
- sinon Docmd.RunSQL("insert...) pour en cree un

on ma dit d utiliser ces fonction mais je capte rien merci de votre aide

cs_Patrice99 Messages postés 1221 Date d'inscription jeudi 23 août 2001 Statut Membre Dernière intervention 9 septembre 2018
31 mai 2005 à 09:51

Je pense qu'un DLookUp devrait le faire, avec pour critère : "nom='" & N & "' And prenom='" & P & "' And [code postal]='" & CP & "'"
Autre solution : ouvre un Recordset, fait un .FindFirst avec ces memes critères, si .NoMatch alors .AddNew et sinon .Edit

mymym Messages postés 30 Date d'inscription mercredi 25 mai 2005 Statut Membre Dernière intervention 20 juin 2005
31 mai 2005 à 10:01

merci de ta reponse mais la tu parle a une inculte du vb j ai rien compris, je n arirve meme pas a declarer des variable...lol
explique moi de quoi tu parle???
merci