AccessTr.neT
3 Kritere Göre Kayıt Krşılaştırmak - Baskı Önizleme

+- 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ığı: 3 Kritere Göre Kayıt Krşılaştırmak (/konu-3-kritere-gore-kayit-krsilastirmak.html)



3 Kritere Göre Kayıt Krşılaştırmak - SeferŞANLI - 14/06/2021

Private Sub Komut184_Click()
Dim GItem As Variant
Dim Gders_id, xList As Integer
Dim Gis_id As Integer
Dim Galan_id As Integer
Dim Gdersadi As String
Dim Galani As String
Dim Gsinifi As Variant
Dim Gderssaati As Integer
Dim Gprogramturu As String


For xList = 1 To Me.listedersler.ListCount - 1
Gders_id = Me.listedersler.Column(0, xList)
Gis_id = Me.listedersler.Column(1, xList)
Galan_id = Me.listedersler.Column(2, xList)
Gdersadi = Me.listedersler.Column(3, xList)
Galani = Me.listedersler.Column(4, xList)
Gsinifi = Me.listedersler.Column(5, xList)
Gderssaati = Me.listedersler.Column(6, xList)
Gprogramturu = Me.listedersler.Column(7, xList)

'"and [ogrenciadi]='" & Gogradsoyad & "'"
'"and [derssnf]='" & Gsinifi & "'" &

If DCount("ders_ter_id", "tbl_dersyuku", "[is_id]=" & is_id & "and [derssnf]='" & Gsinifi & "'" & "and [dersadi]='" & Gdersadi & "'") = 0 Then

'If DCount("ders_ter_id", "tbl_dersyuku", "[is_id]=" & is_id & "and [derssinifi]=" & Gsinifi & "and [dersadi]=" & Gdersadi) = 0 Then

DoCmd.SetWarnings False
DoCmd.RunSQL "insert into tbl_dersyuku(dersadi,derssaati,derssınıfı,dersalani,programturu,alan_id,is_id)values ('" & Gdersadi & "'," & Gderssaati & ",'" & Gsinifi & "','" & Galani & "','" & Gprogramturu & "'," & Galan_id & "," & is_id & ")"
DoCmd.SetWarnings True
End If
Next xList
Forms!frm_tercih_islemleri!.Form.frm_alt_tercih.Requery
End Sub

Aynı iş_id türüne ait olan tablomdaki [derssnf] alanı (metinsel ifade) ve [dersadi] alanına ait (metisnsel ifade) olan alanlar eşitse ekleme yapmak istemiyorum.
If DCount("ders_ter_id", "tbl_dersyuku", "[is_id]=" & is_id & "and [derssnf]='" & Gsinifi & "'" & "and [dersadi]='" & Gdersadi & "'") = 0 Then
bu satırda hata mesajı alıyorum?


RE: 3 Kritere Göre Kayıt Krşılaştırmak - berduş - 14/06/2021

and ifadesinden önce bir boşluk ekleyerek dener misiniz?
" and gibi


RE: 3 Kritere Göre Kayıt Krşılaştırmak - SeferŞANLI - 14/06/2021

[Resim: couklrj.JPG]

Yaptım ama olmadı. Maalesef

Tamamdır. Alan adında eksiklik varmış. Konu Çözülmüştür.