MAKINAPROGRAMI Formuzun Visual Basic tasarım moduna alttaki kodu ekleyerek dener misiniz?
Private Sub P_PUS_Enter()
P_PUS = Dlookup ("PUS", "MAKINALISTESI", "MAKINANO=forms![Vardiya]![MAKINAPROGRAMI]!MAKINANO")
End Sub
Bir de Programınızda Veritabanı sıkıştır ve onarı çalıştırmanız tavsiye olur.