Capraz_Tbl tablosundaki ID alanı silinebilir
Private Sub AK_Kategori_AfterUpdate()
If Me.AK_Kategori.Value <> "" Then xKriter = " where kategori='" & Me.AK_Kategori.Value & "'"
Set db = CurrentDb()
Set ADO_RS = db.OpenRecordset(Name:="select [id] from tbl_urun" & xKriter, Type:=RecordsetTypeEnum.dbOpenDynaset)
db.Execute "delete * from Capraz_Tbl"
With ADO_RS 'loop
db.Execute "delete * from Capraz_Tbl"
If Not .BOF And Not .EOF Then
.MoveFirst
While (Not .EOF)
dz = .GetRows(3)
xAlan = ""
xDeger = ""
For x = 0 To UBound(dz, 2)
xAlan = xAlan & ", [Resim" & x & "]"
xDeger = xDeger & ", " & dz(0, x)
Next x
strSQL = "INSERT INTO Capraz_Tbl (" & Mid(xAlan, 3) & ") VALUES ( " & Mid(xDeger, 3) & ");"
db.Execute strSQL
Wend
End If
End With
Me.Requery
End Sub