AccessTr.neT

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?

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

Yaptım ama olmadı. Maalesef

---

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