+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access'te Toplu İşlemlerde Bir Veriyi Hariç Tutma (/konu-access-te-toplu-islemlerde-bir-veriyi-haric-tutma.html)
Access'te Toplu İşlemlerde Bir Veriyi Hariç Tutma - HORZUM - 26/02/2025
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....
RE: Access'te Toplu İşlemlerde Bir Veriyi Hariç Tutma - Kur@l - 02/03/2025
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
RE: Access'te Toplu İşlemlerde Bir Veriyi Hariç Tutma - HORZUM - 04/03/2025
(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.