"frm_evci_sorgulama" liste kutusunda çift tıklama ile veri silinip listenin güncellenmesini istiyorum. Nerde hata yapıyorum acaba.
Kod:
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "Str(Nz[Evci_Cikan_ID]) " = " & Me![Liste491] & " '"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
filed sized hatası alıyorum sürekli
Kod:
sub sil()
If MsgBox("" & Me.Liste491.Column(0) & " " & " isimli şahsa ait veri silinecek. Devam edilsin mi?", vbCritical + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE TbLevci.Evci_ID, * FROM TbLevci WHERE TbLevci.Evci_ID = " & Liste491.Column(0)
Me.Liste491.Requery
Else
Exit Sub
End If
bu kodla nedenedim bunda da eksik ilgeç hatası veriyor.
Kod:
Private Sub kmtsil_Click()
Dim GItem As Variant
For Each GItem In Me.Liste491.ItemsSelected
If MsgBox(Me.Liste491.Column(0, GItem) & "adlı öğrencinin evci izin durumu listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "delete ogrenciID from TbLevci where (((ogrenciID)=" & Me.Liste491.ItemData(GItem) & "))"
DoCmd.SetWarnings True
End If
Next GItem
Me.Liste491.Requery
Recalc
'isimli şahsa ait veri silinecek. Devam edilsin mi?", vbCritical + vbYesNo) = vbYes Then
End Sub
bu kodlamada girdiğiniz değer bu alan için geçerli değil hatası alıyorum.
Private Sub kmtsil_Click()
Dim GItem As Variant
For Each GItem In Me.Liste491.ItemsSelected
If MsgBox(Me.Liste491.Column(0, GItem) & " adlı öğrencinin evci izin durumu listeden silinsin mi?", vbQuestion + vbYesNo) = vbYes Then
DoCmd.SetWarnings False
'
Sql düzeltildi
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = " & Me.Liste491.ItemData(GItem)
DoCmd.SetWarnings True
End If
Next GItem
Me.Liste491.Requery
Recalc
End Sub
eğer bu alan metin ise tırnak içine almalısınız:
DoCmd.RunSQL "DELETE FROM TbLevci WHERE ogrenciID = '" & Me.Liste491.ItemData(GItem) & "'"
Bunda da ölçüt ifadesinde veri türü uyuşmazlığı hatası alıyorum