+- 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ığı: Microsoft Forms 2.0 Kayıt Silme Ve Yeni Kayıt Ekleme (/konu-microsoft-forms-2-0-kayit-silme-ve-yeni-kayit-ekleme.html)
Microsoft Forms 2.0 Kayıt Silme Ve Yeni Kayıt Ekleme - idrisy - 25/03/2020
Sayın Hocalarım; Microsoft Forms 2.0 da Kayıt yüklerken eski kayıtları boşaltmak istiyorum. Yani açılan kutudan seçtiğim verilere ait kayıtların listelenmesini istiyorum. Ancak ilk yüklediğim kayıtlar silinmeden yeni kayıtlar ekleniyor ayrıca önce kayıtlar kadar da boş satır ekleniyor.
Cvp: Microsoft Forms 2.0 Kayıt Silme Ve Yeni Kayıt Ekleme - berduş - 25/03/2020
formdaki tüm kodları silip aşağıdaki gibi dener misiniz?
dikkat: Option Compare Database
Option Explicit
kodlar dahil
hepsi silinecek
Option Compare Database
Option Explicit
Private Sub Comando21_Click()
Dim i As Integer
Dim strKriter, txtSql As String
On Error Resume Next
Me.List1.SetFocus
strKriter = CStr(SinifSec.Column(0))
'liste kutusunu boşaltmak için
For i = Me.List1.ListCount - 1 To 0 Step -1
List1.RemoveItem (i)
Next i
txtSql = " SELECT TabloOgrenciler.OkulNo, TabloOgrenciler.SinifAdi, TabloOgrenciler.Adı, TabloOgrenciler.Soyadı " & _
" FROM TabloOgrenciler WHERE (((TabloOgrenciler.SinifAdi)='" & strKriter & "'))"
Call CreaTabellaTmp(txtSql)
End Sub
Public Sub CreaTabellaTmp(SrqTxt As String)
On Error GoTo errore
Dim OgRS As dao.Recordset
Dim i As Integer
Set OgRS = CurrentDb.OpenRecordset(SrqTxt, dbOpenDynaset)
Do While Not OgRS.EOF
With List1
.ColumnCount = 3
.ColumnWidths = "30;30"
.AddItem
.List(i, 0) = OgRS.Fields(0)
.List(i, 1) = OgRS.Fields(1)
i = i + 1
End With
OgRS.MoveNext
Loop
''''''''Form_FormOgrenciler.
errore:
if Err.Number <>0 then MsgBox Err.Number & vbCrLf & Err.Description
End Sub
Cvp: Microsoft Forms 2.0 Kayıt Silme Ve Yeni Kayıt Ekleme - feraz - 25/03/2020
(25/03/2020, 01:43)berduş yazdı: For i = Me.List1.ListCount - 1 To 0 Step -1
List1.RemoveItem (i)
Next i
Yerine alttaki kodda kullanılabilinir.
Me.List1.ClearCvp: Microsoft Forms 2.0 Kayıt Silme Ve Yeni Kayıt Ekleme - berduş - 25/03/2020
(25/03/2020, 02:03)feraz yazdı: Me.List1.Clearilk onu denedim ama hata verdi yanlış bir yere mi yazdım acaba?
Cvp: Microsoft Forms 2.0 Kayıt Silme Ve Yeni Kayıt Ekleme - feraz - 25/03/2020
(25/03/2020, 01:43)berduş yazdı: ''''''''Form_FormOgrenciler.Ayrıca üstteki kodun bir üst satırına Exit Sub eklenmelialttaki gibi.
Kod:
Loop
Exit Sub
''''''''Form_FormOgrenciler.Cvp: Microsoft Forms 2.0 Kayıt Silme Ve Yeni Kayıt Ekleme - feraz - 25/03/2020
(25/03/2020, 02:05)berduş yazdı:(25/03/2020, 02:03)feraz yazdı: Me.List1.Clearilk onu denedim ama hata verdi yanlış bir yere mi yazdım acaba?
Normalde hata veriri lakin bu dosyyada vermedi heralde nesnelerle alakalı.