çalışmamasının sebebi açılır kutu ilk sütunla (0. sütun) ilişkili ama karşılaştırma 2. sütunla (1. sütun) yapılıyor dolayısıyla sonuç hatalı çıkıyor. kodu aşağıdaki gibi düzenlemeniz daha doğru olur

If Me.birim.Column(1) = "Satın Alma" Then Me.satinalma.Visible = True Else Me.satinalma.Visible = False

If Me.birim.Column(1) = "Muhasebe" Then Me.fatura_islemleri.Visible = True Else Me.fatura_islemleri.Visible = False