DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Form_Load()
If a = "Yetkili" Then
Me.durum.RowSource = "SELECT Tablo1.Kimlik, Tablo1.durum FROM Tablo1 WHERE (((Tablo1.durum)<>'can' And (Tablo1.durum)<>'close')); "
Else
Me.durum.RowSource = "SELECT Tablo1.Kimlik, Tablo1.durum FROM Tablo1; "
End If
End Sub
Yani şöyle bir kod kullanın.
a Global bir değişken. Uygulamaya şifreyle girilirken değeri giriş yapana göre alacak.Kod:Private Sub Form_Load() If a = "Yetkili" Then Me.durum.RowSource = "SELECT Tablo1.Kimlik, Tablo1.durum FROM Tablo1 WHERE (((Tablo1.durum)<>'can' And (Tablo1.durum)<>'close')); " Else Me.durum.RowSource = "SELECT Tablo1.Kimlik, Tablo1.durum FROM Tablo1; " End If End Sub