Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
16/05/2013 01:09
Konu Sahibi
mhmtogz
Yorumlar
3
Okunma
1292
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

mhmtogz

Aktif Üye
Kullanici Avatari
Aktif Üye
M....
162
10/01/2013
9
Çanakkale
Ofis 2003
15/05/2017,12:34
Çözüldü 
merhaba arkadaşlar, Access kullandıkça her türlü çalışamda kullanası geliyor insanın Img-grin

sonum şu şekilde ekte F_SIHIRBAZ_EGITMEN adlı formda
egitmeni açılan kutudan seçip ekel dediğimde LSTEGITMEN listesine ekleyecek,
çıkar dediğimde listeden çıkacak....
böyle 4-5 tane eğitmen seçtikten sonra kaydet tıkladığımızda T_EGITMENLER tablosuna alt alta hepsini kaydedicek... daha önce böyle çalışmalar gördüm ama iş stresi olsa gerek kafamı bir türlü veremedim yardımcı olursanız sevinirim... iyi çalışmalar...


Ek Dosyalar
.rar   LİSTE.rar (Dosya Boyutu: 15,66 KB / İndirme Sayısı: 15)
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.785
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Ekle butonuna

Visual Basic Code
Me.LSTEGITMEN.AddItem (AKEGITMEN.Column(1))

çıkar butonuna

Visual Basic Code
Me.LSTEGITMEN.RemoveItem (LSTEGITMEN)


kaydet butonuna

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim ListeSira As Integer

For ListeSira = 0 To Me.LSTEGITMEN.ListCount - 1
    strSQL = "SELECT * FROM T_EGITMENLER "
    Set rstkayit = New ADODB.Recordset
    rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
            .AddNew
            .Fields("DONEMID") = Me.Açılan_Kutu8
            .Fields("EGITMENID") = DLookup("[EGITMENID]", "T_EGITMEN", "[EGITMEN]=" & "'" & Me.LSTEGITMEN.ItemData(ListeSira) & "'")
            .Update
        End With
Next


Cevapla

mhmtogz

Aktif Üye
Kullanici Avatari
Aktif Üye
M....
162
10/01/2013
9
Çanakkale
Ofis 2003
15/05/2017,12:34
Çözüldü 
teşekkürler hocam oldu... ek olarak ekle derken aynı isim olduğunda ekleme yapmaması mümkün mü?

birde ekle olayı tek açılan kutuya göre yaptık bunu mesela
MTNADSOYAD,AKUNVAN,AKISTASYON gibi çoklu yaptığımızda ekleye ne yazmamız gerek?


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.785
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Çözüldü 
Örnek uygulamanızı ekleyerek yeni konu açınız.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Açılan Kutu Menüsünden Yapılan Seçimlerin Tabloya Kaydı ertans 2 274 07/08/2017, 17:37 ozguryasin
Çözüldü Combobox Açılan Kutu Yazdığım Metne Göre Otomatik Bulma keskin78 3 289 30/06/2017, 01:16 keskin78
Çözüldü Formda Açılan Kutu Bilgilerini Tabloya Kayıt Hatası U.ALTUN 6 391 31/05/2017, 17:41 U.ALTUN
Çözüldü Formda Açılan Websayfasının Sesini Kapatmak ALTANs 7 476 27/05/2017, 00:49 ozanakkaya
Çözüldü Açılan Formda Currentrecord Datasını Getirmek temre 5 364 07/05/2017, 20:45 temre

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.