Neden diğerlerinde o mesaj vermiyor?
Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var)
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
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
Son Düzenleme: 30/01/2020, 11:55, Düzenleyen: accessman.
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
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
Bu kısmımı ekleyeceğiz en if ile
Konuyu Okuyanlar: 2 Ziyaretçi