Discussion :

[El Bosc]

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.

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

Quelqu' un pourrait-il m' aider?
Par avance merci
Cordialement

[El Bosc]

Bonsoir,
J' ai remarqué quand fait, la ligne qui ne fonctionne pas est la ligne N°30.

Code :

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

If DnEc = RgstTrv.String Then

Bien que les valeurs contenues dans DnEc et RgstTrv correspondent, la boucle Do While... Loop n' est pas interrompue.
DnEC est une variable String.
RgstTrv est une variable object d' ou le ".String".
Cette formulation fonctionne très bien sous HSQLDB!!!
Cordialement.

[El Bosc]

Bonjour,
Depuis le début, je pensai que le Basic était en cause. En fait et grâce à DLE sur le Forum openoffice, il s' agissait d' une erreur de frappe. Il manquait un espace dans la requête SQL ci-dessous. L' espace vient à la place du point d' interrogation.

Code SQL :

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

SELECT "RfPln" || ' - ?' || "DsgPln" "Dsg", "T_PrjPln"."Cf_PrjPln", "TP_Fml"."Cf_Fml", "T_PrjPln"."Cf_PrjFml" FROM "T_PrjPln", "TP_Fml" WHERE "T_PrjPln"."Cf_PrjFml" = "TP_Fml"."Cf_Fml" ORDER BY "Dsg" ASC

Cordialement