Discussion :

[aliboubou]

Je voulais savoir ce qu'il fallait déclarer dans une fonction que je crée contenant :

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

Merci

[Heureux-oli]

Je pense que tu dois déclarer une database et un recordset.

Dans l'aide et dans la FAQ, tu devrais trouver.

[aliboubou]

Alors voila ce que j'ai mis:

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

et ensuite le code ke g deja mis... dans mon 1er message.

Ou me suis-je trompé?

[Heureux-oli]

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")

[Lou Pitchoun]

Salut,

C'est un flou tout ça...

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

Ca ne fonctionnera jamais : il faut ouvrir un recordset pour ajouter/mettre à jour des données.

De plus End func n'est pas reconnue...

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

Tu dis que ce code va avec le précédent... un coup c'est enrTest et un autre enr.
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

[aliboubou]

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

[Heureux-oli]

Voila ma fonction:

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

Logique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim bdtest as database

et ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set bdtest = table1

[aliboubou]

n'est-ce pa ce que j'ai ecrit?
Parce que la je vois pas tres bien ce que tu veux me dire....

[Heureux-oli]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set bdtest = currentDB

[aliboubou]

CurrentDB.... Mais si mon appli comporte plusieurs tables pour le meme formulaire?

[Heureux-oli]

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.

[Heureux-oli]

Fais un tour ici

[aliboubou]

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?

[Heureux-oli]

Si la table est dans la DB en cours oui, sinon, il faut spécifier le chemin.