Hocam çok teşekkür ederim benim kodlarım tam olarak şunlar oldu ;
(Tablo isimlerini değiştirdiğim için yabancı gelebilir )

Private Sub Form_Current()

If Me.sifre1 <= 84 Then

Me.sifre2.Visible = True

Me.Etiket232.Visible = True



Else

Me.sifre2.Visible = False

Me.Etiket232.Visible = False

End If

If Me.sifre2 <= 84 Then

Me.sifre3.Visible = True

Me.Etiket233.Visible = True



Else

Me.sifre3.Visible = False

Me.Etiket233.Visible = False

End If

If Me.sifre3 <= 84 Then

Me.sifre4.Visible = True

Me.Etiket234.Visible = True



Else

Me.sifre4.Visible = False

Me.Etiket234.Visible = False

End If

If Me.sifre4 <= 84 Then

Me.Metin225.Visible = True

Me.Etiket228.Visible = True



Else

Me.Metin225.Visible = False

Me.Etiket228.Visible = False

End If

If Me.sifre5 <= 84 Then

Me.sifre6.Visible = True

Me.Etiket227.Visible = True



Else

Me.sifre6.Visible = False

Me.Etiket227.Visible = False

End If

If Me.sifre6 <= 84 Then

Me.sifre7.Visible = True

Me.Etiket229.Visible = True



Else

Me.sifre7.Visible = False

Me.Etiket229.Visible = False

End If

If Me.sifre7 <= 84 Then

Me.sifre8.Visible = True

Me.Etiket230.Visible = True



Else

Me.sifre8.Visible = False

Me.Etiket230.Visible = False

End If

End Sub



Private Sub sifre1_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre2_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre3_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre4_AfterUpdate()

Call Form_Current

End Sub

Private Sub Metin225_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre6_AfterUpdate()

Call Form_Current

End Sub

Private Sub sifre7_AfterUpdate()

Call Form_Current

End Sub

Sırasıyla bütün tabloları birbirine bağladım , ilk tabloda puan koşulumu sağlıyorsa ondan sonraki açılmıyor, karşılamıyorsa açılıyor.Toplam 8 tabloma da uyguladım.İlgi alaka ve yardımlarınız için teşekkürler.