Discussion :

[Subkill]

Bonjour,

j'ai une méthode pour allèger mon code, mais elle ne fonctionne pas....
Cette méthode doit ajouter un enregistrement à une table passée en paramètre (maTable)...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub AjouterEnr(maTable As String, champNo As String, champNom As String, txtAjout As String, monJeu As DAO.Recordset, maBase As DAO.Database)
 
Set monJeu = maBase.OpenRecordset(maTable, dbOpenDynaset)
    strCritere = "" & champNom & " = """ & txtAjout & """"
    monJeu.FindFirst strCritere
 
If (monJeu.NoMatch) Then
   If vbYes = MsgBox("Voulez-vous réellement ajouter '" & txtAjout & "' dans la liste? ", vbYesNo, "Ajout") Then
        monJeu.AddNew
        monJeu! "& champNo &" = monJeu.RecordCount + 1
        monJeu! "& champNom &" = txtAjout
        monJeu!cache = False
        monJeu!Ordre = monJeu.RecordCount + 1
        ...

C'est deux lignes sont en erreurs....

Code :

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

1
2
        monJeu! "& champNo &" = monJeu.RecordCount + 1
        monJeu! "& champNom &" = txtAjout

Est-ce que c'est possible de concaténer "monJeu!" avec la valeur de la variable "champNo" ainsi que pour l'autre?

[cafeine]

Hello,

essaie plutôt

Code :

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

MonJeu.Fields(ChampNo)

[marot_r]

La syntaxe est :

Code :

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

1
2
 
monJeu.fields(nomDuChamp)=valeur

où nomDuChamp est une chaine de caratère ou une variable de type String.

A+

[Subkill]

Yahoo ca marche!

Merci!!!