7.24 MB'lık örnek eklemişsiniz, veritabanınızı sıkıştırıp onararak (Bkz.Dosya Düzenle Onar ve WinRar ile Sıkıştırma İşlemi) eklerseniz 200 KB'a düşüyor.

Kisisayisi metin kutusunun güncelleştirme sonrasında olayındaki kodları aşağıdaki ile değiştiriniz.

Me.KISI.Visible = False

Me.KISI1.Visible = False

Me.KISI2.Visible = False

Me.adisyon.Visible = False

Me.adisyon1.Visible = False

Me.KONTOP.Visible = False

Me.KONAKTUT.Visible = False

Me.ADTOP.Visible = False

Me.ADİSYONTUT.Visible = False

Me.ADİSYONTUT.Visible = False

Me.HESTOP.Visible = False

Me.TOPLAMTUT.Visible = False

Me.ÖNÖDEMETUT.Visible = False

Me.mtn_onodeme.Visible = False

Me.mtn_odemetutarı.Visible = False

Me.ÖDENECEKTUT.Visible = False

Me.ıskonto.Visible = False

Me.ISKONTOTUT.Visible = False

Me.NAKTOP.Visible = False

Me.NAKODM.Visible = False

Me.KREDITOP.Visible = False

Me.KKARTIÖDEME.Visible = False

Me.KAL.Visible = False

Me.Kalan.Visible = False

Me.ADSHESAY.Visible = False

Me.ODAHESAY.Visible = False





    Dim rs As New ADODB.Recordset

        rs.Open "tbl_musteri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

        rs.AddNew

        rs("odano") = Me.odano

        rs.Update

        Set rs = Nothing









If Me.Kisisayisi > 0 Then

Me.KISI.Visible = True

End If

If Me.Kisisayisi > 1 Then

Me.KISI1.Visible = True

End If

If Me.Kisisayisi > 2 Then

Me.KISI2.Visible = True

End If

 DoCmd.RunCommand acCmdRefresh

If Me.Kisisayisi = 0 Then MsgBox ("Kişisayısı 0 sıfır olamaz"): Me.Kisisayisi.SetFocus

If Me.Kisisayisi > 3 Then MsgBox ("Oda kaydı en fazla 3 kişi olabilir...!"): Exit Sub