Discussion :

[MeRc|LeSs]

re salut ,

j'ai une procedure que je l'appelle pour modifier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub modifier()
Dim RSW As ADODB.Recordset
SQL = "SELECT * From Permis " _
    & " WHERE NumPerm='" & Trim(txtNumPerm) & "'"
Set RSW = New ADODB.Recordset
RSW.Open SQL, conec, adOpenStatic, adLockOptimistic
If Not RSW.EOF Then
Call Remplir_Recordset(RSW, Me)
RSW.Update
Unload Me
End If
End Sub

la fonction remplir_recordset :

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
18
19
 
Public Function Remplir_Recordset(ByRef RS As ADODB.Recordset, ByRef frm As Form)
Dim i As Integer
Dim ctl As Control
Dim NomTxtBox As String
 
For Each ctl In frm.Controls
    If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
        NomTxtBox = Right(ctl.Name, Len(ctl.Name) - 3)
        For i = 0 To RS.Fields.Count - 1
            If RS.Fields(i).Name = NomTxtBox Then
                RS.Fields(NomTxtBox).Value = ctl.Text
 
            End If
 
         Next i
     End If
Next ctl
End Function

le probléme c'est qu'il me modifit tout les champs de la table sans le champ NumPerm et je sais pas pourquoi :s

[Phifi]

Pour commencer, et sûrement pour la 12 845ème fois, cette fonction "Remplir_Recordset" est une procédure =) (elle ne renvoie rien, la preuve, tu es obligé d'y faire appel (call))

Ensuite, explique ce que tu veux faire exactement avant de fournir le code car :

re salut ,

j'ai une procedure que je l'appelle pour modifier :

la fonction remplir_recordset :

le probléme c'est qu'il me modifit tout les champs de la table sans le champ NumPerm et je sais pas pourquoi :s

n'est pas très clair...
Il n'est pas évident de comprendre la finalité de ton développement en décortiquant ton code, hors contexte qui plus est, alors qu'avec quelques phrases explicatives, on pourrait peut-être t'aiguiller beaucoup plus simplement

[MeRc|LeSs]

Bon Pour Le code que j'ai mis sa fonctionne bien mais lors du modification du premier champs de la table il reste le même le ( NumPerm) les autres champs fonctionne agréablement , je veux juste savoir pourquoi il modifit pas le premier champ.

et désolé...

[avigeilpro]

De plus pour appeler une fonction sans pour autant réccupérer dans une variable ce qu'elle renvoit il n'est pas nécéssaire de faire call, il suffit de ne pas mettre les parenthèses autour des paramètres

[colooo]

Ton champ NumPerm a-t-il ete cree comme un compteur dans ta base comme c'est parfois le cas pour les cles primaires ?
est il en auto increment ?

si oui ou non, malheureusement je n'aurai pas plus de reponse, mais au moins tu auras une piste ^^

[ThierryAIM]

j'ai une procedure que je l'appelle pour modifier :

et que ta mère en maillot de bain ...
Pardon, je m'égare

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub modifier()
Dim RSW As ADODB.Recordset
SQL = "SELECT * From Permis " _
    & " WHERE NumPerm='" & Trim(txtNumPerm) & "'"
Set RSW = New ADODB.Recordset
RSW.Open SQL, conec, adOpenStatic, adLockOptimistic
If Not RSW.EOF Then
Call Remplir_Recordset(RSW, Me)
RSW.Update
Unload Me
End If
End Sub

la fonction remplir_recordset :

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
18
19
Public Function Remplir_Recordset(ByRef RS As ADODB.Recordset, ByRef frm As Form)
Dim i As Integer
Dim ctl As Control
Dim NomTxtBox As String

For Each ctl In frm.Controls
    If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then
        NomTxtBox = Right(ctl.Name, Len(ctl.Name) - 3)
        For i = 0 To RS.Fields.Count - 1
            If RS.Fields(i).Name = NomTxtBox Then
                RS.Fields(NomTxtBox).Value = ctl.Text
                   
            End If
                    
         Next i
     End If
Next ctl
End Function

J'ai de la peine à suivre le cheminement de ce que j'ai mis en gras ou souligné