GELÖST Zugriff auf leeres Grid
Verfasst: Fr, 09.05.2014 18:22
Ich verzweige per Satzmarkierung und Pushbutton per Mako auf ein Folgeformular.
Das Makro stüzt ab, wenn das aufrufende Formular leer ist, klar der Zugriff auf das Grid greift ins Leehre, weil keine Zeile markiert ist.
Wie kann ixh das verhindern?
On Error fällt mir ein, ist aber nicht wirklich elegant ...
Das Makro stüzt ab, wenn das aufrufende Formular leer ist, klar der Zugriff auf das Grid greift ins Leehre, weil keine Zeile markiert ist.
Code: Alles auswählen
sub AussenstaendeOpenFilter (oEvent AS OBJECT)
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
Dim oForm As Object
Dim oBearbForm As Object
Dim oFormDocs As Object
Dim oFeld As Object
DIM nID as integer
' Formlarfeld holen
oDoc=thisComponent
oDrawpage=oDoc.Drawpage
oForm = ThisComponent.Drawpage.Forms.getByName("fAussenstaende")
oFeld = oForm.getByName("MainForm_Grid").getByName("kud_id") <---- Absturz
nID = oFeld.getCurrentValue()
' Bearbeitungsmaske öffnen
oFormDocs = ThisDatabaseDocument.FormDocuments.getByName("fAussenstaendeDetail").open
oBearbForm = oFormDocs.Drawpage.Forms.getByName("fAussenstaendeDetail")
' Filter setzen
oBearbForm.Filter = " ""RecKudID"" LIKE '" & nID & "'"
oBearbForm.ApplyFilter = True
oBearbForm.reload()
end SUB On Error fällt mir ein, ist aber nicht wirklich elegant ...