+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var) (/konu-access-hata-girdiginiz-ifadedeparent-ozelligine-gecersiz-bir-basvuru-var.html)
Cvp: Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var) - feraz - 30/01/2020
Neden diğerlerinde o mesaj vermiyor?
Cvp: Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var) - accessman - 30/01/2020
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
Cvp: Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var) - feraz - 30/01/2020
Çözüm nasıl üretilir?
Cvp: Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var) - accessman - 30/01/2020
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
Cvp: Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var) - accessman - 30/01/2020
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
Cvp: Access Hata(Girdiğiniz İfadedeparent Özelliğine Geçersiz Bir Başvuru Var) - feraz - 30/01/2020
If hasParent(Me) Then
Bu kısmımı ekleyeceğiz en if ile