Discussion :

[Chris 81]

Bonjour a tous,

je cherche a ouvrir un formulaire en fonction d'une donnee d'un de ces sous-formulaire ...
A ce jour j'ouvre le formulaire puis je recherche le sous-formulaire...

N'y a-t-il pas moyen d'ouvrir directement le bon formulaire avec le sous-formulaire souhaite?

par avance merci.

[GillesDeVuif]

Bonjour.
Quel est le code sur lequel on pourrait t'aider ?
Cordialement.

[Chris 81]

Bonjour,

Dans un 1er temps j'ouvre le formulaire principal "StyleOrder"
Une fois que celui-ci est ouvert je recherche dans "Order" la commande recherchee...

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
Dim WhichOrderNrSystem As Long
Dim WhichStyleSystem As Long
 
WhichOrderNrSystem = Me![WhichAllOrder]
WhichStyleSystem = DLookup("StyleSystem", "Order", "OrderNrSystem = " & WhichOrderNrSystem)
 
    '------------------------------------------------------------------ Style
    DoCmd.OpenForm "StyleOrder", , , "StyleSystem = " & WhichStyleSystem
    Forms![StyleOrder].SetFocus
    Forms![StyleOrder]![StyleSystem].SetFocus
    '------------------------------------------------------------------ Order
    Forms![StyleOrder]![Order].SetFocus
    Forms![StyleOrder]![Order].Form![OrderNrSystem].SetFocus
    DoCmd.FindRecord WhichOrderNrSystem, , , , , acCurrent
    Forms![StyleOrder]![Order].Form![RemarkCustomer].SetFocus
    Forms![StyleOrder]![WhichAllOrder] = ""
        '------------------------------------------------------------ Relicat
    Forms![StyleOrder]![Order].Form![Bt_Relicat].Caption = "To be ordered: " & DLookup("QuantityInitial", "GetRelicat", "OrderRank = 0 ") - DSum("QuantityDelivered", "GetRelicat") & " pcs (" & DCount("OrderNrCustomer", "GetRelicat") - 1 & " relicats)"

[Geache]

J'ai à peu près le même soucis. Sauf qu'en ce qui me concerne, je cherche à mettre à jour une propriété d'un formulaire sur base d'un select.

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
Public Sub selectLangue(intLangue As Integer, FormName As String)
    Dim strQuery As String
    MsgBox intLangue & " " & FormName
    Select Case (intLangue)
        Case Is = 1
            strQuery = "SELECT SysLangues.IdLangue, SysLangues.slOmschrijvingNDL " _
                     & "FROM SysLangues " _
                     & "ORDER BY SysLangues.slOmschrijvingNDL;"
        Case Is = 2
            strQuery = "SELECT SysLangues.IdLangue, SysLangues.slOmschrijvingFR " _
                     & "FROM SysLangues " _
                     & "ORDER BY SysLangues.slOmschrijvingFR;"
        Case Is = 3
            strQuery = "SELECT SysLangues.IdLangue, SysLangues.slOmschrijvingUK " _
                     & "FROM SysLangues " _
                     & "ORDER BY SysLangues.slOmschrijvingUK;"
    End Select
 
    [Forms]![FormName]!cboLangues.RowSource = strQuery
End Sub

Je pensais naïvement que ma variable FormName pourrait être utilisée dans la dernière instruction de mon SUB... mais ce n'est pas le cas. Je reçois systématiquement une erreur selon laquelle le formulaire n'est pas trouvé.

Si je trouve une solution, je te tiens au courant, ça pourra peut-être t'aider à résoudre ton problème.

[GillesDeVuif]

Bonjour.

@Chris81 : Je suis absolument confus, mais je ne comprends pas ton code; la succession de .SetFocus me suggère que l'essentiel des actions est renseigné directement au niveau des contrôles, mais ayant clairement atteint ma limite de compétences, je ne m'avancerai pas plus.

@Geache : Cela ne semble pas naïf , je pense qu'il te faut simplement activer le formulaire en question avant d'affecter les valeurs à la liste déroulante :

Code :

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

1
2
3
4
5
6
7
    End Select
 
DoCmd.OpenForm FormName
Forms.FormName.cboLangues.RowSource = strQuery
Forms.FormName.cboLangues.Requery
 
End sub

Cordialement.

[Geache]

Bonjour,

@ GillesDeVuif :

Ce qui m'étonne alors, c'est que le formulaire est déjà ouvert. Le code que je renseigne fait partie d'un module. Et le formulaire fait appel à ma procédure SelectLangue qui se trouve dans ce module.

Ou alors, je dois ré-activer le formulaire dans ma procédure ?

Bonne journée.

[GillesDeVuif]

Bonjour Geache.
si ton formulaire est déjà actif, tu ne devrais pas avoir de soucis.
je n'avais pas fait attention à la nature de Formname : je crains que la syntaxe Form.FormName ne s'accomode pas d'une variable : il te faut pointer le nom réel de ton formulaire.
Peut-être comme ça :

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
Public Sub selectLangue(intLangue As Integer)
 
Dim strQuery1, StrQuery2 As String
MsgBox intLangue '& " " & FormName
StrQuery1 = "SELECT IdLangue, slOmschrijving"
StrQuery2 = "FROM SysLangues ORDER BY slOmschrijving" 
 
Select Case (intLangue)
        Case Is = 1
            strQuery1 = StrQuery1 & "NDL " & StrQuery2 & "NDL;" 
        Case Is = 2
            strQuery1 = StrQuery1 & "FR " & StrQuery2 & "FR;" 
        Case Is = 3
           strQuery1 = StrQuery1 & "UK " & StrQuery2 & "UK;" 
    End Select
 
Forms.ReelNomDeTonFormulaire.cboLangues.RowSource = strQuery1
Forms.ReelNomDeTonFormulaire.cboLangues.Requery
 
End Sub

[Geache]

Bonjour Gilles,

Mon soucis, c'est que je dois pouvoir changer la langue de travail à partir de n'importe quel formulaire. Raison pour laquelle j'avais placé cette procédure dans un module pour ne pas devoir la copier coller dans chacun des formulaires.

Je n'ai rien trouvé, effectivement, qui me permette d'utiliser un nom variable pour mon formulaire dans la forme Forms![NomFormulaire]!...

Par contre, j'ai trouvé une autre solution, c'est de transformer ma procédure en fonction, comme ceci :

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
Public Function selectLangue(intlangue As Integer) As String
 
    Dim strQuery As String
 
    Select Case (intlangue)
        Case Is = 1
            strQuery = "SELECT SysLangues.IdLangue, SysLangues.slOmschrijvingNDL " _
                     & "FROM SysLangues " _
                     & "ORDER BY SysLangues.slOmschrijvingNDL;"
        Case Is = 2
            strQuery = "SELECT SysLangues.IdLangue, SysLangues.slOmschrijvingFR " _
                     & "FROM SysLangues " _
                     & "ORDER BY SysLangues.slOmschrijvingFR;"
        Case Is = 3
            strQuery = "SELECT SysLangues.IdLangue, SysLangues.slOmschrijvingUK " _
                     & "FROM SysLangues " _
                     & "ORDER BY SysLangues.slOmschrijvingUK;"
    End Select
 
    selectLangue = strQuery
End Function

et de changer la propriété de mon combobox par appel de la fonction de cette manière :

Code :

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

1
2
3
4
Private Sub cboLangues_AfterUpdate()
    cboLangues.RowSource = selectLangue(cboLangues)
    ' Call changeLangueTravail(cboLangues)
End Sub

Mais cela ne résout pas le problème de Chris81.