[anestaki]

Καλημέρα σε όλους
Χρησιμοποιώντας των παρακάτω κώδικα:

Function IsLoaded(ByVal strFormName As String) As Boolean
' Returns True if the specified form is open in Form view or Datasheet view.
' Use form name according to Access, not VBA.
' Only works for Access
    Dim oAccessObject As AccessObject
    Set oAccessObject = CurrentProject.AllForms(strFormName)
    If oAccessObject.IsLoaded Then
        If oAccessObject.CurrentView <> acCurViewDesign Then
            IsLoaded = True
        End If
        
    End If
End Function
Sub frm_wait()
DoCmd.OpenForm "frm_wait"
Form_frm_wait.Repaint
    Do While Not IsLoaded("frm_wait")
       DoEvents
Loop

Στο παρακάτω μου εμφανίζει σφάλμα (Ambiguous name detected)

Private Sub Form_Close()
   On Error GoTo Form_Close_Error
If IsLoaded("Frmkin2") = True Then
    Form_FrmKin2.ΚΩΔΠΕΛΑΤΗ.Requery
End If
   On Error GoTo 0
   Exit Sub
Form_Close_Error:
    MsgBox "ΣΦΑΛΜΑ " & Err.Number & " (" & Err.Description & ")"
End Sub

Γιατί δεν ξέρω αγγλικά μήπως γνωρίζει κάνης τι είναι και πως διορθώνετε.