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