Birden Fazla kaydı aynı anda yapmak

[akd]

Merhaba arkadaşlar,
Göndermiş olduğum formda, öğrenciye yapacağım kayıtları seçip,
daha sonra hangi öğrencilere yapacaksam listeden işaretleyip,
toplu şekilde kayıt yaptırmak istiyorum.
İlgenecek arkadaşlara şimdiden teşekkürlerimi sunarım...

 

[modalı]

Sayın akd,

Uygulamanın biraz daha basitini ekledim. Amacım konunun iyi anlaşılması.



İyi çalışmalar

 

[Taruz]

Merhaba..

Sayın modalı'nın, yöntemin işleyişini görmemiz yönünde hazırladığı örneğe ilaveten çalışmanız üzerinde sonuca ulaşabileceğiniz kod kümesini de alternatif olarak size ben sunayım..:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim trz As Variant
Set db = CurrentDb
Set rs = db.OpenRecordset("Bep", dbOpenDynaset)
For Each trz In Me.Liste8.ItemsSelected
    trz = Me.Liste8.ItemData(trz)
    If rs.RecordCount > 0 Then
    rs.MoveLast
    End If
    With rs
            .AddNew
            !Tarih = Me.d1
            !Saat = Me.d2
            !Egt_sek = Me.d3
            !Ogretmen = Me.d4
            !Ogr_Brn = Me.d5
            !GrupNo = Me.d6
            !ogrID = Me.ogrID
            !DersNo = Me.d7
            !Ogrenci = trz
            .Update
End With
Next trz
Set db = Nothing
Set rs = Nothing
Me.d1.SetFocus
Me.Bep_alt_formu.Requery
Exit Sub

Selamlar..

 

[akd]

Merhaba sayın modalı ve sayın taruz üstadlarım,
Ellerinize sağlık,
her ikiside çok güzel çalışıyor,
elleriniz dert görmesin,
İyi günler dilerim...

 

[akd]

Merhaba sayın üstadlarım,
malesef göden kaçırdığım bir şey oldu,
liste kutusunda her öğrencinin bir ogrID numarası var,
onlarında isimlerle beraber kaydedilmesi gerekmekte,
rica etsem onlarıda isimle beraber kaydetmeyi söylermisiniz.
İyi geceler dilerim...

 

[modalı]

Sayın akd,

İsimleri kaydetmek gereksiz. Bu konuya defalarca değindim. İki tablonun öğrenci ID numaralarını ilişkilendirirseniz, sorgularla istediğiniz şekilde kullanabilirsiniz.

İyi çalışmalar

 

[akd]

Sayın modalı haklısınız'da,
bu kaydedilen bep tablosuna hem ismin hemde OgrnID gelmesi gerekiyor,
bu şekilde ya ismi yada Id alırsam, düşey ara ile diğerini almak için uğraşmak zorunda kalacağım.
İlginiz için tekrar teşekkür ediyorum...

 

[modalı]

Sayın akd,

Siz yine excel e takıldınız. Bir sorgudan DLookUp ile istediğiniz bilgileri alabilirsiniz.

Basit bir örnek ekleyin üstünde yapayım.

İyi çalışmalar

 

[akd]

Sayın modalı,
sorguda DLookUp yapma olayını biliyorum,
bu safhada onu yapmaya kalkışırsam,
çalışmamda bir çok yeri degiştirmek zorunda kalcağım,
onun için buradan kaydederken, ogrID beraber ekleyebilirsem,
işim çok kolaylaşacak.
Teşekkür ederim

 

[beab05]

Merhaba;

Kodu alttaki gibi değiştirirseniz olur..

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim trz As Variant
Dim trz2 As Variant
Set db = CurrentDb
Set rs = db.OpenRecordset("Bep", dbOpenDynaset)

For Each trz In Me.Liste8.ItemsSelected
   
    If rs.RecordCount > 0 Then
    rs.MoveLast
    End If
    With rs
    
            .AddNew
            !Tarih = Me.d1
            !Saat = Me.d2
            !Egt_sek = Me.d3
            !Ogretmen = Me.d4
            !Ogr_Brn = Me.d5
            !GrupNo = Me.d6
            !ogrID = Me!Liste8.Column(2, trz)
            !DersNo = Me.d7
            !Ogrenci = Me.Liste8.Column(0, trz)
            .Update
End With
Next trz

Set db = Nothing
Set rs = Nothing

Me.d1.SetFocus
Me.Bep_alt_formu.Requery

 

[akd]

Çok teşekkür ederim,
sayın beab05 elinize sağlık...