![[Resim: do.php?imgf=152599112825331.jpg]](https://accesstr.net/resim/do.php?imgf=152599112825331.jpg)
Hocam yapmak istediğimi resim üzerinde anlatmaya çalıştım.
![[Resim: do.php?imgf=152599112825331.jpg]](https://accesstr.net/resim/do.php?imgf=152599112825331.jpg)
Private Sub Form_AfterUpdate()
On Error Resume Next
DoCmd.OpenForm Me.SyDurum
End Sub
Private Sub Form_AfterUpdate()
On Error Resume Next
If Me.SyDurum = "FsRapor" Then
If Nz(DLookup("SRaporID", "SRapor", "[SYetkiliFk]= " & SYetkiliID), 0) = 0 Then
DoCmd.RunSQL "INSERT INTO SRapor (SYetkiliFk) values (" & SYetkiliID & ")"
End If
End If
DoCmd.OpenForm Me.SyDurum
End Sub