Je voulais savoir ce qu'il fallait déclarer dans une fonction que je crée contenant :
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 public function enr() enr.addnew enr![monChamp]=laValeur enr.update End func
Je voulais savoir ce qu'il fallait déclarer dans une fonction que je crée contenant :
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 public function enr() enr.addnew enr![monChamp]=laValeur enr.update End func
Je pense que tu dois déclarer une database et un recordset.
Dans l'aide et dans la FAQ, tu devrais trouver.
Alors voila ce que j'ai mis:
et ensuite le code ke g deja mis... dans mon 1er message.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 dim bdTest as database dim EnrTest as Recordset Set bdTest = Table1 Set enrTest=bdTest.OpenRecordset
Ou me suis-je trompé?
Tu dois spécifier la source de ton recordset
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Set bds = maDataBase 'souvent c'est CurrenDB Set enrTest = bdTest.OpenRecordset ("matable")
Salut,
C'est un flou tout ça...
Ca ne fonctionnera jamais : il faut ouvrir un recordset pour ajouter/mettre à jour des données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 public function enr() enr.addnew enr![monChamp]=laValeur enr.update End func
De plus End func n'est pas reconnue...
Tu dis que ce code va avec le précédent... un coup c'est enrTest et un autre enr.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 dim bdTest as database dim EnrTest as Recordset Set bdTest = Table1 Set enrTest=bdTest.OpenRecordset![]()
Ta base s'appelle Table1 ???
Tout d'abord, ajoutes la référence Microsoft DAO x.x
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Public Function Enregistrer() Dim oDb As DAO.Database Dim oRst As DAO.Recordset Set oDb = Application.CurrentDb Set oRst= oDb.OpenRecordset("Nom table ou Code SQL") oRst.Addnew oRst!NomChamp = "Valeur" oRst.Update ' Libération des objets Set oRst = Nothing Set oDb = Nothing End Function
Voila ma fonction:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Public Sub Sauve_Param() 'Dim reqtest As String Dim enrtest As Recordset Dim bdtest As Database Set bdtest = Table1 Set enrtest = bdtest.OpenRecordset("table1") enrtest.AddNew enrtest![Param1]= EventFinFab ' variable déclarée au début du code type boolean enrtest.Update End Sub
Du coup kan je lance l'appli il met:
Erreur de compilation
Variable non définie en surlignant Table1
LogiqueEnvoyé par aliboubou
et ensuite
Code : Sélectionner tout - Visualiser dans une fenêtre à part Dim bdtest as database
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set bdtest = table1
n'est-ce pa ce que j'ai ecrit?
Parce que la je vois pas tres bien ce que tu veux me dire....
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set bdtest = currentDB
CurrentDB.... Mais si mon appli comporte plusieurs tables pour le meme formulaire?
Tu va devoir faire des manpulations sur les recordset de plusieurs tables ou d'une requête.
Comment veux tu que ça marche, tu définit une place pour un veau et tu y attribue un cheval.
Fais un tour ici
Merci heureux-Oli et les autres! j'arrive a remplir ma table ;-)
Par contre si j'ai un bouton sur mon formulaire qui doit enregistrer d'autres paramètres ET DANS UNE AUTRE TABLE que ceux que j'ai la est-ce que ce sera aussi currentdb?
Je suis allé vite fait jeté un coup d'oeil sur le lien que tu m'as envoyé mais ce soir j'ai pas trop le temps d'aller lire tout, faut que j'avance un maximum mais je vais surment me plonger dedans demain.
Ps: yen a un qui peut me dire quand moi aussi j'aurai le droit d'avoir un avatar?![]()
Si la table est dans la DB en cours oui, sinon, il faut spécifier le chemin.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager