[RESOLVED] What event is fired when a modal form returns to the calling form

[sparbag]

Hello all,

I have a form being opened modal by a calling form

Private Sub cmdWorkForm_Click()
    If txtSCID.Text = "" Then
        frmSubContractor.Refresh
    End If
    lngWrkid = CLng(txtSCID.Text)
    frmSubWork.Show vbModal, frmSubContractor
End Sub

Once the frmSubWork form is closed I would like to know what event is fired by VB? The reason is I have an ADODC that feeds a read only datagrid showing all of the work a subcontractor has carried out.

The issue I am having is the datagrid, once the form is returned focus is not showing all of the records.

Private Sub UpdateDatagrid()
    Dim strSQL As String
    Dim lngSCID As Long
    Dim dgRS As ADODB.Recordset
    Set dgRS = New ADODB.Recordset
    strSQL = "SELECT * FROM tblSCPay WHERE SubContractor = " & txtSCID.Text
    With dgRS
        .ActiveConnection = cn
        .CursorType = adOpenForwardOnly
        .CursorLocation = adUseClient
        .LockType = adLockReadOnly
        .Source = strSQL
        .Open , , , , adCmdText
    End With
    Set dgdSCWork.DataSource = dgRS
    
    With dgdSCWork
        .Refresh
    End With
    
    dgRS.Close
    Set dgRS = Nothing
End Sub

followed by

Private Sub Form_GotFocus()
    Call UpdateDatagrid
End Sub

that achieves nothing, hence I need to know what event is firing.

Any assistance is very much appreciated.

Kind regards

Steve

[si_the_geek]

There is no event for it, and no need for one - because the very next line of code will run.

Just add your code immediately after showing the form:

...
    frmSubWork.Show vbModal, frmSubContractor
    Call UpdateDatagrid
End Sub

[sparbag]

Hello Si,

Perfect. Thanks very much.

Steve