Skip to main content

AccessTr.neT


Kayıtların Form Üzerine Dağıtılması

Kayıtların Form Üzerine Dağıtılması

#14
yada daha basitleştirilmiş hali,
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Kayıtların Form Üzerine Dağıtılması - Yazar: berduş - 31/01/2025, 23:21
Task