tamam demek istediğinizi şimdi anladım. sizin istediğiniz. F_personel formunda Per_firma alanına tabloada olmayan bir değer girildiğinde Per_Firma ya girien olmayan değer silinecek ve FFirma formu açılacak o zaman kod bu
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Me.Per_Firma = Delete
On Error Resume Next
If DataErr = 2237 Then
MsgBox ("Veri Listede Yok. Açacağım Formdan Ekleyiniz.")
Me.Per_Firma = ""
DoCmd.OpenForm ("FFirma")
Form_FFirma.SetFocus
Form_FFirma.FFirmaAlt4.SetFocus
'Response = acDataErrContinue
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
End Sub
sizin yazmış olduğunuz koda sadece
Private Sub Form_Error(DataErr As Integer, Response As Integer)
başlangıcından sonra
Me.Per_Firma = Delete
kodu eklenmiştir. bende problemsiz bir şekilde çalıtı. Lütfen geri bildirimde bulununuz.
POWER 'un Çekirgesi :=)
ozguryasin,
23-09-2009 tarihinden beri
AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.