von Reino_ » Fr, 24.09.2010 16:31
Hallo,
seit einiger Zeit beschäftige ich mich mehr oder weniger intensiv mit Makroprogrammierung unter Base.
Ich habe ein wenig Erfahrung mit Programmierung unter ACCESS. Sonst relativ dürftige Kenntnisse in Bezug aufs programmieren (Hausgebrauch).
Mein Problem:
Ich öffne ein Formular um Daten einzutragen und habe mir untenstehende Code zusammengebaut.
Xray habe ich viel genutzt, zum Lernen und zur Kontrolle.
Nachdem unterstehender Code funktionierte, habe ich mich heute entschlossen Xray raus zu nehmen. Nun geht nichts mehr.
Das Macro stoppt bei „movetoinsertRow“.
Kann mir jemand einen Tipp geben, wo der Fehler liegt und welche Rolle spielt eigentlich Xray??
Vielen Dank.
Und hier mein Code
Sub FRM_oeffnen_Eingabe_Positionen
1. newDoc = ThisDatabaseDocument.FormDocuments.getByName("Positionen").open
2. newForm = newDoc.Drawpage.Forms.getByName("Positionen")
3. 'Xray newForm
4. newForm.Filter = ""
5. REM =>setzen des Filters für das neue Formulardokument
6. newForm.ApplyFilter=true
7. newForm.reload
8. Xray newForm
9. newForm.moveToInsertRow()
Basic-Laufzeitfehler. Es ist eine Exception aufgetreten Type: com.sun.star.sdbc.SQLExceptior Message: Fehler in der Funktionsfolge
10. 'newForm.insertRow
11. 'newForm.reload
End Sub
Hallo,
seit einiger Zeit beschäftige ich mich mehr oder weniger intensiv mit Makroprogrammierung unter Base.
Ich habe ein wenig Erfahrung mit Programmierung unter ACCESS. Sonst relativ dürftige Kenntnisse in Bezug aufs programmieren (Hausgebrauch).
Mein Problem:
Ich öffne ein Formular um Daten einzutragen und habe mir untenstehende Code zusammengebaut.
Xray habe ich viel genutzt, zum Lernen und zur Kontrolle.
Nachdem unterstehender Code funktionierte, habe ich mich heute entschlossen Xray raus zu nehmen. Nun geht nichts mehr.
Das Macro stoppt bei „movetoinsertRow“.
Kann mir jemand einen Tipp geben, wo der Fehler liegt und welche Rolle spielt eigentlich Xray??
Vielen Dank.
Und hier mein Code
Sub FRM_oeffnen_Eingabe_Positionen
1. newDoc = ThisDatabaseDocument.FormDocuments.getByName("Positionen").open
2. newForm = newDoc.Drawpage.Forms.getByName("Positionen")
3. 'Xray newForm
4. newForm.Filter = ""
5. REM =>setzen des Filters für das neue Formulardokument
6. newForm.ApplyFilter=true
7. newForm.reload
8. Xray newForm
9. newForm.moveToInsertRow()
Basic-Laufzeitfehler. Es ist eine Exception aufgetreten Type: com.sun.star.sdbc.SQLExceptior Message: Fehler in der Funktionsfolge
10. 'newForm.insertRow
11. 'newForm.reload
End Sub