+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İlişkisiz Metin kutusundan Veri Almak (/konu-iliskisiz-metin-kutusundan-veri-almak.html)
Sayfalar:
1
2
İlişkisiz Metin kutusundan Veri Almak - fascioğlu - 23/10/2015
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
Cvp: İlişkisiz Metin kutusundan Veri Almak - atoz112 - 23/10/2015
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]Cvp: İlişkisiz Metin kutusundan Veri Almak - fascioğlu - 24/10/2015
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.
Cvp: İlişkisiz Metin kutusundan Veri Almak - atoz112 - 24/10/2015
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.
Cvp: İlişkisiz Metin kutusundan Veri Almak - fascioğlu - 24/10/2015
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.
Cvp: İlişkisiz Metin kutusundan Veri Almak - ozanakkaya - 24/10/2015
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 SubFormun açıldığında olayına da
ODADURUMkodu ekle