Bonsoir,
Suite de mes galères avec le couple LO et Firebird. Dans la base de données ci-jointes, se trouve un formulaire nommé F_PrjPln. Dans ce formulaire, se trouve une première liste déroulante me permettant de sélectionner une famille de projet. En dessous, on trouve une deuxième liste déroulante permettant de sélectionner un projet.
Malgré tous mes essais et bien que la macro fonctionne sous HSQLDB, impossible de la faire fonctionner avec Firebird.
Quelqu' un pourrait-il m' aider?
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 Sub PrcLstPrj(oEv as Object) Dim DnEc as String, NmCln as string, Frml as Object Frml = thiscomponent.DrawPage.Forms.GetByIndex(0) DnEc = oEv.source.SelectedItem 'print DnEc NmCln = "Dsg" FchSlct(DnEc,NmCln) thiscomponent.currentcontroller.getControl(Frml.getByName("DsgPln")).setFocus End sub '======================================================================= Sub FchSlct(DnEC as String,NmCln as string) Dim VlrRch as string, VlrTrv as string Dim Cnx as Object, Rqt as Object Dim Frml as Object, Rgst as Object, RgstTrv as object Dim Trv as Boolean Cnx = ThisDatabasedocument.CurrentController.ActiveConnection Rqt = Cnx.createStatement() Frml = thiscomponent.DrawPage.Forms.GetByIndex(0) Rgst = Frml.createResultSet() Rgst.beforeFirst Trv = false 'Recherche du projet dans la table Do while Rgst.next() and Trv = false RgstTrv = Rgst.columns.getByName(NmCln) 'Recherche de la clé du projet sélectionné If DnEc = RgstTrv.String Then Trv = true Exit Do End if Loop If Trv = true then Frml.moveToBookmark(Rgst.Bookmark) else msgbox("Enregistrement non trouvé", 64) End if End Sub
Par avance merci
Cordialement
Partager