Sub | Pane_Find(ByVal strFormName As String, ByVal strWhere As String) |
---|---|
strFormName: Fenstername z.B. F_AD, F_AKT, F_VOR (siehe Pane_Show) strWhere: WHERE-Teil einer SELECT-Abfrage (ohne WHERE!) Public Sub Pane_Find(ByVal strFormName As String, ByVal strWhere As String) Dim oPane As Object Select Case m_oApplication.FlowFact_InitType Case INITTYPE_APPLICATION Set oPane = m_oApplication.FlowFact_Application.Panes(strFormName) If (oPane Is Nothing) = False Then oPane.Find strWhere End If Case INITTYPE_CONNECTOR 'do nothing Case Else RaiseError_NotInit End Select End Sub |