Discussion :

[laurent.w]

bonjour, je souhaiterais afficher un formulaire ouvert sur une table en fonction d'un elemnt trouvé. apperremnt çà marche pas je sais pas d'ou çà peut provenir, çà vient apperemment du docmd
tbxfileid et longfileid sont du meme type

est ce que quelqu'un saurait?

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
 
Public Function Frm_schSearchResults_cmdreouverture_Click()
Dim lngfileid       As Long
Dim dbs             As Database
Dim rdsfiles        As Recordset
 
 
''' Get the new incident number
Set dbs = CurrentDb
Set rdsfiles = dbs.OpenRecordset("dtafiles", dbOpenDynaset)
''' Set the different objects
 
With Forms("schSearchResults").subSearchResults.Form
    lngfileid = .tbxFileId
End With
 
 
 
With rdsfiles
    .MoveFirst
    .FindFirst ("[fileid] = " & lngfileid)
    DoCmd.OpenForm "pmtnumerodossier", acNormal, , "[FileId] = " & Forms("schsearchresults").tbxFileId
 
    .Close
End With
 
 
End Function

voilà le bout de code qui devrait m'afficher un formulaire ouvert sur une table en fonction d'un seul élément

[laurent.w]

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
Public Function Frm_schSearchResults_cmdreouverture_Click()
Dim lngfileid       As Long
Dim dbs             As Database
Dim rdsfiles        As Recordset
Dim lngfileid2       As Long
 
''' Get the new incident number
Set dbs = CurrentDb
Set rdsfiles = dbs.OpenRecordset("dtafiles", dbOpenDynaset)
''' Set the different objects
 
 
 
With Forms("schSearchResults").subSearchResults.Form
    lngfileid = .tbxFileId
End With
 
 
With rdsfiles
    .MoveFirst
    .FindFirst ("[fileid] = " & lngfileid)
    DoCmd.OpenForm "pmtnumerodossier", acNormal, , lngfileid
 
    .Close
End With
 
 
End Function

j'ai remodifié le code mais j'ai plus la conditino il ouvre le formulaire sans condition comment integrer dans un docmd... une condition de test sur une zone de texte

[laurent.w]

çà y 'est je l'ai trouvé, je suis trop fatigue

Code :

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

DoCmd.OpenForm "pmtnumerodossier", acNormal, , "[fileid] = " & lngfileid

comme quoi le forum meme si c'est soi meme qui repond on trouve quand meme. merci laurent