Tamam butunu kodunda hata

[oners]

Private Sub Tamam_Click()
Dim BulNo As Variant
Dim frm As Form
On Error GoTo Gozardi
For Each frm In Forms
If frm.Name = "ekıcı" Then
If frm.Name = "Form1" Then


GoTo cikis
End If
Next frm

cikis:
BulNo = Val(Me.lstüye)
frm.RecordsetClone.FindFirst "[sıra]=" & Str(BulNo)
frm.Bookmark = frm.RecordsetClone.Bookmark
DoCmd.Close acForm, "bul"
Exit Sub

Gozardi:
DoCmd.Close acForm, "frmEkıcıYardim"
End Sub

bu kodda hata nerde?

2 adet form yaptım 1 tanede bul formu yaptım ekici formunda bul formunu çağırdığım zaman ordan ekici buluyorum tamam tuşuna veya isim üstünde tıkladığım zaman ekici formuna gidiyor orda o ekici bilgilerini çıkarıyor ama form1 de bul formunu çağırdığım zaman ekici buluyorum ama tamam veya isim üstünde tığladığımzaman form1 deki bilgilere gitmiyor bunu nasıl yapabilirim yardım ederseniz sevinieim.

 

[modalı]

Sayin oners,

Yurdışında olduğumdan uygulamaları deneyemıyorum.

Ancak kod da iki tane If deyimi var ve bir adet End If var bu hata tabi.

If frm.Name = "ekıcı" Then
If frm.Name = "Form1" Then

satırlarını

If frm.Name = "ekıcı" OR If frm.Name = "Form1" Then

olarak değiştirerek deneyin.

İyi çalışmalar

 

[oners]

çok çok teşekkür ederim

verdiğiniz kodu uyguladım
If frm.Name = "ekıcı" OR If frm.Name = "Form1" Then yanlız OR dan sonraki If kaldırdıktan sonra tamam oldu teşekkür ederim.