Discussion :

[delg]

bonjour,
voilà mon problème : j'ai 2 tables de devis (saisies sur 2 sites) et centralisées sur 1 seule base de données et j'aimerais éviter de créer 2 formulaires.
donc j'aimerais faire un formulaire commun en fonction d'une option site 1 ou site2
ex : si on coche site1 sur un formulaire, ca ouvre le formulaire "form_saisie des devis" en prenant comme source générale du formulaire "tab_saisie devis_site1" ; et inversement.
est ce possible?
merci d'avance

[@rkane]

pas bien compris ton plan... mais bon, avec les "openargs" tu dois pouvoir faire quelques chose en recuperant le nom du site ou du poste (tu trouveras des posts pour ça sur le forum).
Les openargs sont faits pour ouvrir le form avec certaines fonctionnalités selon des criteres prédeterminés.
Regardes cet exemple perso :

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
49
50
51
52
 
Private Sub Form_Open(Cancel As Integer)
Dim Ctl As Control
Select Case OpenArgs
'=======================================
    Case "Consultation"
        For Each Ctl In Me.Form
       If Ctl.ControlType = acTextBox Then
       Ctl.Locked = True
       Ctl.Enabled = False
      ElseIf Ctl.ControlType = acComboBox Then
      Ctl.Locked = True
      Ctl.Enabled = False
      End If
   Next Ctl
 Me.Enregistrement.Enabled = False
 Me.Modification.Enabled = False
 Me.Impression.Enabled = False
'=======================================
   Case "Modification"
      For Each Ctl In Me.Controls
        If Ctl.ControlType = acTextBox Then
        Ctl.Locked = True
        Ctl.Enabled = False
        ElseIf Ctl.ControlType = acComboBox Then
        Ctl.Locked = True
        Ctl.Enabled = False
        End If
   Next Ctl
Me.DateIntervention.Locked = True
Me.DateIntervention.Enabled = False
Me.Fermeture.Enabled = True
Me.Impression.Enabled = True
Me.Enregistrement.Enabled = False
Me.Modification.Visible = True
'=======================================
   Case "Ajout"
        For Each Ctl In Me.Controls
        If Ctl.ControlType = acTextBox Then
        Ctl.Locked = False
        Ctl.Enabled = True
        ElseIf Ctl.ControlType = acComboBox Then
        Ctl.Locked = False
        Ctl.Enabled = True
        End If
   Next Ctl
Me.Modification.Enabled = False
Me.Fermeture.Enabled = False
Me.Impression.Enabled = False
Me.Enregistrement.Visible = True
End Select
End Sub

bon courage

[Alexandre Sahli]

As tu des données à saisir vraiment différentes sur le site 1 et le site 2 pour faire une table "tab_saisie devis_site1" et une table "tab_saisie devis_site2"?

si les données sont les mêmes c'est plus simple de rajouter un champs site puis de filtrer sur le site pour la saisie dans ton formulaire.