- Katılım
- 30 Aralık 2005
- Mesajlar
- 103
- Excel Vers. ve Dili
-
Excel Vers. ve Dili:
Excel 2003 - Türkçe
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.
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.