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