Arkadaşlar merhaba ekteki sharp eye formundaki HİZMET FORMU na konteyner no yazan kısma 1 değilde birden fazla veri kopyala yapıştır yaptığımda başlı değerleri nasıl getirebilirim? Hem tek hem toplu olarak ekliyorum bu şekilde mümkünmü?
Formun A4 ciktisi ile islem yapiyorsunuz ve 16 kalemden fazlasi icin nasil yontem izlenmekte. Surekli form ile bir tabloya kayit yapilmasi ile birden fazla sayfa yazdirilmasini rapor bolumunde saglanabilir. Uygulamada hic rapor olmayisi bu bolumun avantajini atlanmis gibi duruyor.
Gecici bir tabloya aktarilacak verinin yapistirmasi ile kayitlari cagirip, birinci acilan kutuya verinin yazdirilmasi ile yapilabilir.
Gecici tablo
1. KimNu...Sayi
2. UnitNbr...Metin
olusturun ve form uzerinde KayitEkle butonu olay yordamina asagida ki proseduru kopyalayin. Acilan Kutularin tumunu secip, Im(Tag) bolumune KayitEkle yazin. Tabloya kopyala yapistir ile UnitNbr alanina verileri yapistirma ile form da veri gosterebilirsiniz.
Private Sub KayitEkle_Click()
Dim Kayit As Recordset, knt As Control
For Each knt In Me.Controls
If knt.ControlType -111 Then
Set Kayit = CurrentDb.OpenRecordset("Select Top 1 * from Gecici Where KimNu=0")
If Kayit.RecordCount = 0 Then Exit For
Kayit.Edit
If knt.Tag = "KayitEkle" And IsNull(Me.Controls(knt.Name)) Then Me.Controls(knt.Name).Value = DLookup("Kimlik", "HİZMET TABLOSU", "[Unit Nbr]='" & Kayit.Fields(1) & "'")
Kayit!KimNu = 1: Kayit.Update
Kayit.Close: Set Kayit = Nothing
End If
Next knt
End Sub
sezgin hocam istedğim ilişksiz yazan kutulara tek tek veri girip karşısına değerleri getirmesinde toplu olarak veri eklediğimde her verinin bağlı olduğu değerleri karşısına alt alt tablodaki gibi döksün istediğim.Rapor olarak yapamadım yatay a5 formatında çıktı alıyorum. Bazen tek veri bazen 15 veri girişi yaptığım için dediğiniz gibi raporda yapamadım. Örnekte raporu siz gösterebilirseniz ok sevinirim. Teşekkürler şimdiden.
Tabloya odakli iken sihirbazi kullanarak rapor olusturablir ve kendinize uygun sekilde bicimlendirme yapabilirsiniz. Formun uzerine kayitlarin gelmesi icin tarife gore Gecici tablo olusturmali ve ilgili formdabuton olusturup, kodlari bu tusun olay yordamina tasimalisiniz.
Formun uzerindeki 16 iliskisiz metin kutularin tumunu secerek, ozellikler bolumu diger kismi Im(Tag) olan yere KayitEkle yazmaniz halinde Gecici tablonun UnitNbr sutununa kopyala yapistir ile verilerin yerlestirilme sonu butona bastiginizda form uzerine verilerin gosterildigini goreceksiniz.
Sezgin hocam ete resimde görüldüğü gibi konteyner no yazan yere alt alta veri girdiğimde karşısındaki metin kutusuna girdiğim değerlerin tabloaki karşılığı gelmesi gerekiyor. Rapor olarak istediğim gibi veri alamıyorum. Enter tuşuna basıldığında bir alt bölüme değer girildiğinde tablodaki karşılığını nasıl getirebilirim?
