Discussion :

[nemog]

Bonsoir,

Je cherche à mettre à jour une étiquette dans le formulaire d'une autre base
Mettre à jour des champs textbox de cette autre base : ok mais pourquoi pas cette f*"*'#" d'étiquette ? :fool:

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
                    ' pour mise à jour de EtiqDistD de la base distante
 
                    Dim EtiqDist As String
                    Dim SQLDist As String
                    SQLDist = "SELECT TabListeCables.Extremite FROM TabListeCables IN '" & StrComplet & "' WHERE TabListeCables.NomCable = '" & Me.ChoixCableD & "'"
                    Dim rstd As Recordset
                    Set rstd = CurrentDb.OpenRecordset(SQLDist, 2)
                    EtiqDist = "Vers " & rstd.Fields("Extremite")
                    'MsgBox EtiqDist
 
                 'traitement du formCREA de la base distante
 
                 Resultat = Resultat + 1
 
                 With AutreBdd
 
                    .Visible = False
                    .OpenCurrentDatabase StrComplet
                    .RunCommand acCmdAppMaximize
 
                 End With
 
 
                With AutreBdd
 
 
                    .Visible = True
                    .DoCmd.OpenForm (FormVar), , , , , acWindowNormal
                    .DoCmd.Maximize
                    .Forms!FormCREA!ChoixTypeCrea = RG
 
 
 
                    .Forms!FormCREA!ChoixCableD.Visible = True
                    .Forms!FormCREA!ChoixCableD = StrRechGlob
                    .Forms!FormCREA!EtiqDistD.Caption = EtiqDist
 
                    .Forms!FormCREA!CreaAffect.Visible = True
                    .Forms!FormCREA!CreaAffect = RGG
                    .Forms!FormCREA!numero.Visible = False
                    .Forms!FormCREA!ChoixPMCE.Visible = False
 
                    .Forms!FormCREA!Libelle = RG9
                    .Forms!FormCREA!Adresse = RG10
                    .Forms!FormCREA!Notes = RG11
 
 
                 End With

EtiqDist a bien la bonne valeur quand je laisse le "msgbox EtiqDist", mais pourquoi ça ne se met pas à jour dans la base distante ?

EDIT : la ligne 36 n'a aucun effet, désolé pour le coté brouillon de la demande

[nemog]

Bon, je n'ai rien compris
J'ai tout effacé et réécrit le code en simplifiant un chouia, et ça marche

Code :

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

1
2
3
4
5
6
7
8
  Dim EtiqDist As String
            Dim SQLEtiq As String
            Dim rstd As Recordset
 
            SQLEtiq = "SELECT TabListeCables.Extremite FROM TabListeCables IN '" & StrComplet & "' WHERE TabListeCables.NomCable = '" & Me.ChoixCableD & "'"
            Set rstd = CurrentDb.OpenRecordset(SQLEtiq, 2)
      With AutreBdd
            .Forms!FormCREA!EtiqDestD.Caption = "Vers " & rstd.Fields("Extremite")

End with

pas compris mais résolu !