İlişkisiz Metin kutusundan Veri Almak

1 2
23/10/2015, 23:34

fascioğlu

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
23/10/2015, 23:50

atoz112

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.

Kod:
[Forms]![Form_B]![a_formundaki_metin_kutusu_adi]=[Forms]![Form_A]![a_formundaki_metin_kutusu_adi]

bilginize...iyi çalışmalar,saygılar.
24/10/2015, 00:00

fascioğlu

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.
24/10/2015, 00:06

atoz112

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.
24/10/2015, 00:44

fascioğlu

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.
24/10/2015, 03:39

ozanakkaya

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
1 2