AccessTr.neT

Neden diğerlerinde o mesaj vermiyor?

form current olduğunda kendisi bir formun ana formu olmalı yani bağlı bir formu olmalı ama yok çünkü tek başına açılıyor

Çözüm nasıl üretilir?

bunu ekleyin

Public Function hasParent(F As Object) As Boolean
  Dim bHasParent As Boolean
  On Error GoTo noParents

  bHasParent = Not (F.Parent Is Nothing)
  hasParent = True
  Exit Function

noParents:
  hasParent = False
End Function

currentide bu şekilde değiştirin


Sub Form_Current()

    On Error Resume Next

    If Err <> 0 Then
        GoTo Form_Current_Exit
    Else
        On Error GoTo Form_Current_Err
       
        If hasParent(Me) Then
            Me.Parent![AltKtgr3].Requery
        End If
       
    End If

Form_Current_Exit:
    Exit Sub

Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit

End Sub

If hasParent(Me) Then

Bu kısmımı ekleyeceğiz en if ile