Sayın Hocalarım,
Aynı çalışma dosyasında bulunan A- formdaki İlişkisiz metin kutusunda bulunan verinin B-formunda bulunan ve yine İlişkisiz metin kutusuna veriyi nasıl getirebilirim.

Saygılarımla.
İyi çalışmalar

sayın fascioglu,

bahsettiğiniz talebinize yönelik olarak,aşağıdaki açıklamanın yapılması uygun görülmüştür.

bir form üzerindeki ilişkisiz bir denetimde yer alan bir veriyi başka bir form üzerinde yine ilişkisiz bir denetime veri olarak göstermek isterken, öncelikle ilk formun (verinin alınacağı) açık durumda olması gerekmektedir.

fakat burada şu husus unutulmamalı.ilişkisiz denetimlerden veri gösterimi yaparken bu denetimlerin olduğu formlar kapatıldığında ya da çıkıldığında edinilen veriler de kaybolacak.bu nedenle yapılması gereken;bu denetimlerin ya ilişkisiz haldeyken INSERT...INTO Sql kod ifadesi ile ilgili tablolarına kaydedilip verinin güvence altına alınması gerekmektedir ya da denetimler kendi alanları ile ilişkilendirilerek önceki formdan yeni forma aktarılacak değerin yeni formun geçerli olduğunda olay yordamına yazılmak sureti ile ilgili denetime kaynak teşkil eden alan üzerine tabloya yazılması sağlanmalı.

özetlemek gerekirse;
aktarılacak verilerin yeni formda mevcut kalması için kayıt işlemini de akabinde sağlamalısınız ki,bu veriler yeni formda kullanılabilsin.

son olarak,örnek kullanım kalıbı içermesi adına,aşağıdaki gibi bir kod satırı kullanılabilir.

bilginize...iyi çalışmalar,saygılar.

Sayın Atoz 112 hocam,
Cevabınız için teşekkürler,verdiğiniz kodu VB damı,yoksa Metin kuutusunun Olay yordamınamı yazacağım.
Açıklar iseniz svinirim.
Saygılarımla.

sayın fascioglu,

Alıntı:...verdiğiniz kodu VB damı,yoksa Metin kuutusunun Olay yordamınamı yazacağım...

ifadenize yönelik olarak;
uygulamanızın içeriğini bilmemek ile beraber ancak tahmini olarak yazmak sureti ile,

örnek kalıp olarak yazılı kod satırını,

Form_B adlı formun Geçerli Olduğunda olay yordamına da yazabilirsiniz.

bilginize...iyi çalışmalar,saygılar.

Sayın Atoz112 Hocam,
Çözüm önerinizi denedim fakat olmadı,bu nedenle daha iyi anlaşılır olması adına uygulamamı ekledim,burada  bahsettiğim konu  Odabilgileri formunda varolan ve hali hazırda Ufuk (Power) hocanımızın yazmış olduğu kod sayesinde kusursuz çalışmakta,Ancak Odabilgileri formunda bulunan ilişkisiz metin kutularını (Dolu Oda,Boş Oda,Yetişkin Sayısı,Çocuk Sayısı Vs. şeklinde yer alan) Giriş sayfasına taşımak istiyorum.

Saygılarımla.

eksik olan metin kutusu olarak Metin113'ü ekle

forma aşağıdaki kodu ekle

Private Sub ODADURUM()



On Error Resume Next

Dim rs As DAO.Recordset

Dim db As Database

Dim D As Date

D = Date

Dim strSQL As String

Dim DODA, BODA, YSAY, CSAY, GIDE, GELE, KIRLIODA, ARIZALIODA As Double

DODA = 0: BODA = 0: YSAY = 0: CSAY = 0: GIDE = 0: GELE = 0: KIRLIODA = 0: ARIZALIODA = 0

Set db = CurrentDb()

strSQL = "SELECT  * FROM tbl_odabilgileri"

Set rs = db.OpenRecordset(strSQL)

rs.MoveFirst



Do Until rs.EOF

YSAY = YSAY + rs!Kisisayisi

CSAY = CSAY + rs!Cocuksayisi

If rs!Cıkıstarihi = D Then GIDE = GIDE + 1

If rs!Kisisayisi = 0 And rs!Cocuksayisi = 0 Then BODA = BODA + 1

rs.MoveNext

Loop



DODA = 40 - BODA

Me.Metin105 = YSAY

Me.Metin106 = CSAY

Me.Metin104 = BODA

Me.dolu_oda_sayisi = DODA

Me.Metin108 = GIDE



strSQL = "SELECT  * FROM tbl_rezervasyon"

Set rs = db.OpenRecordset(strSQL)

If rs.EOF = True Then GoTo 200

rs.MoveFirst

Do Until rs.EOF

If rs!Giristarihi <> D Then GoTo 130

GELE = GELE + 1

130

rs.MoveNext

Loop





200

Me.Metin107 = GELE





strSQL = "SELECT  * FROM tbl_Odafaaliyet"

Set rs = db.OpenRecordset(strSQL)

If rs.EOF = True Then GoTo 300

rs.MoveFirst

Do Until rs.EOF



If rs!Kırlıtemız = True Then KIRLIODA = KIRLIODA + 1

If rs!Faalarızalı = True Then ARIZALIODA = ARIZALIODA + 1

rs.MoveNext

Loop

300

Me.Metin110 = KIRLIODA

Me.Metin109 = 40 - KIRLIODA

Me.Metin113 = ARIZALIODA

End Sub

Formun açıldığında olayına da

ODADURUM

kodu ekle