Singlestep funktioniert - Durchlauf funktioniert nicht

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Singlestep funktioniert - Durchlauf funktioniert nicht

Re: Singlestep funktioniert - Durchlauf funktioniert nicht

von F3K Total » Di, 08.04.2014 20:28

... Erfahrung, hatte das Problem auch schon. Wenn Du eine Msgbox oder ein Xray dazwischen baust, geht's auch, das war der Hinweis für mich.
Gruß R

Re: Singlestep funktioniert - Durchlauf funktioniert nicht

von Argh » Di, 08.04.2014 10:19

Super lieben Dank für dein Hilfe!

Thema damit erledigt und beantwortet :)

Ein Frage dazu hätte ich noch: Wie hast du erkannt, dass die Form nicht geladen war zu dem Zeitpunkt?

Danke und Gruß
Christian

Re: Singlestep funktioniert - Durchlauf funktioniert nicht

von F3K Total » Di, 08.04.2014 06:52

du bist zu schnell, das Formular ist noch nicht geladen:

Code: Alles auswählen

Sub open_Kontakdaten(iId as Integer)
	Dim oDoc as Variant
	Dim oForm as Variant
	Dim id as Object

	oDoc = ThisDatabaseDocument.FormDocuments.getByName("Kontakt").open
	oForm = oDoc.DrawPage.Forms(0)

 	do 
	    wait 10
	loop until oform.isloaded

	oForm.filter = "ID = " + iId

	oForm.ApplyFilter = true
	oForm.reload

	id = oForm.getByname("ID")

	id.BoundField.updateInt( 2 )
End Sub
HTH R

Re: Singlestep funktioniert - Durchlauf funktioniert nicht

von Argh » Mo, 07.04.2014 22:09

Aber gerne doch!

Danke und Gruß,
Christian
Dateianhänge
Mitarbeiter_Verwaltung.odb
(34.29 KiB) 43-mal heruntergeladen

Re: Singlestep funktioniert - Durchlauf funktioniert nicht

von F3K Total » Mo, 07.04.2014 20:23

hi,
meine Glaskugel ist im Osterurlaub, wie wäre es mit einer Beispieldatei?
Gruß R

Singlestep funktioniert - Durchlauf funktioniert nicht

von Argh » Mo, 07.04.2014 10:13

Hallo zusammen,

ich habe foglenden Code:

Code: Alles auswählen

Sub open_Kontakdaten(iId as Integer)
	Dim oDoc as Variant
	Dim oForm as Variant
	Dim id as Object

	ThisDatabaseDocument.FormDocuments.getByName("Kontakt").open

	oDoc = StarDesktop.CurrentComponent
	oForm = oDoc.DrawPage.Forms(0)
	oForm.filter = "ID = " + iId

	oForm.ApplyFilter = true
	oForm.reload

	id = oForm.getByname("ID")

	id.BoundField.getInt
	id.BoundField.updateInt(iId)
End Sub
Wenn ich die Sub im Debug sinlge steppe, dann funktioniert der Code wie gewünscht. Lasse ich den Code jedoch komplett durchlaufen, dann erhalte ich die Fehlermeldung "Objektvariable nicht belegt" in der Zeile

Code: Alles auswählen

id.BoundField.getInt
Warum ist das so?

Vielen Dnk für jede Hilfe!

Gruß
Christian

Nach oben