AccessTr.neT

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.

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

(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

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