Hayırlı günler arkadaşlar...
Ekte gönderdiğim derleme toplama ile başarabildiğim  Access te Üyeler kısmında YÖNETİCİ olarak giriş yaptığım üyenin Üye borçlandırma kısmında Toplu Borçlandırma yaptığımda borçlanmaması için ne yapacağımı bilemedim. Borçlandırma butonuna bastığımda Yönetici olanın borçlanmamasını istiyorum ama bir türlü olmadı. şimdiden teşekkürler....

T010_Uyeler tablosunda bulunan kat alanında yönetici olan daire belirlenmiş. Sql kodumuza kat alanında yönetici olamayanları seçtirerek aşağıdaki şekilde yapabilirsiniz.

(02/03/2025, 02:25)Kur@l yazdı: T010_Uyeler tablosunda  bulunan kat alanında yönetici olan daire belirlenmiş. Sql kodumuza kat alanında yönetici olamayanları seçtirerek aşağıdaki şekilde yapabilirsiniz.

Private Sub cmdBorclandir_Click()
'On Error Resume Next
    For Each ctl In Form
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
            xGecerli = ctl.ValidationText
            If ctl.ValidationText = 1 And IsNull(ctl.Value) Then
                MsgBox (ctl.Name & " Alanı boş geçilemez!")
                Exit Sub
            End If
        End If
    Next
    
    If MsgBox("Toplu Borçlandırma işlemi devam etsin mi?", vbInformation + vbYesNo) = vbNo Then
        Exit Sub
    End If
    
    Dim xSelect As String
    xSelect = " Select KapiNo," & "#" & TarFor(Me.Donem) & "#" & ",'" & Me.Tur & "'," & Me.Tutar & ",'" & Me.Aciklama & "' FROM T010_Uyeler where kat <>'YÖNETİCİ'"
  Debug.Print xSelect
  CurrentDb.Execute ("INSERT INTO T020_UyeBorc (UyeNo,Donem,Tur,Tutar,Aciklama)" & xSelect)
    'Me.lbxData.Requery
    MsgBox ("Toplu Borçlandirma İşlemi Tamamlandı.")
End Sub

Kodu Seç

Kodu Kopyala

İlgin ve alakan için çok teşekkürler.