liste kutusunda seç düzelt coğalt

08/11/2014, 23:11

maras321

merhabalar.Arkadaşlar ekteki örnekte liste kutusunda girmiş olduğum verileri gösteriyor.
Benim istediğim liste içinden birkaç tanesini secip örnegin tarih kısımlarını değiştirerek ana tabloya ekleme yapmak.Acaba bu mümkünmü?
söyleki;
05.11.2014 tarihinde K1 olanı 08.11.2014 tarihki k12
04.11.2014 tarihinde K3 olanı  08.11.2014 tarihli k7   yapmak gibi,
şimdiden teşekkürler.
09/11/2014, 01:54

ozanakkaya

Örneğinizin düzenlenmiş hali ektedir. Liste kutusuna çift tıklayınız.
09/11/2014, 02:09

maras321

Teşekkürler ozan bey istediğimden fazlası olmuş.
tekrardan özür dilerim uygulamama ekleyemedim. yardımlarınız bekliyorum tekrardan 

http://www.dosya.tc/server35/vhqBAm/YeniMicrosoftAccessVeritaban_.rar.html
11/11/2014, 02:50

ozanakkaya

(09/11/2014, 02:09)maras321 yazdı: Teşekkürler ozan bey istediğimden fazlası olmuş.
tekrardan özür dilerim uygulamama ekleyemedim. yardımlarınız bekliyorum tekrardan 

http://www.dosya.tc/server35/vhqBAm/YeniMicrosoftAccessVeritaban_.rar.html


Sql koduna tarih eklememişsiniz. Ayrıca Liste2 yenileme kodunu değiştirdim. liste kutusu kopyala formunda değil, cogalt formunda.

If MsgBox("Bu kaydın eklenmesini istediğinizden emin misiniz?", vbYesNo, "Uyarısı") = vbYes Then

    DoCmd.SetWarnings False
    DoCmd.RunSQL "insert into ek5alt( [kullanılabilir], [kontroltürü], [cins], [plaka],[sürücüadı],[sürücübelgesi],[sınıfı],[verildigiil],[verildigiilçe],[belgeno],[saat],[tarih],[not] ) SELECT TOP 1 [Formlar]![kopyala]![kullanılabilir] AS İfade1, [Formlar]![kopyala]![kontroltürü] AS İfade2, [Formlar]![kopyala]![cins] AS İfade3, [Formlar]![kopyala]![plaka] AS İfade4, [Formlar]![kopyala]![sürücüadı] AS İfade5, [Formlar]![kopyala]![sürücübelgesi] AS İfade6, [Formlar]![kopyala]![sınıfı] AS İfade7, [Formlar]![kopyala]![verildigiil]AS İfade8, [Formlar]![kopyala]![verildigiilçe] AS İfade9, [Formlar]![kopyala]![belgeno] AS İfade10, [Formlar]![kopyala]![saat] AS İfade11, [Formlar]![kopyala]![tarih] AS İfade12, [Formlar]![kopyala]![not] AS İfade13 FROM ek5alt ;"
    DoCmd.SetWarnings True
    Forms!cogalt!Liste2.Requery
    DoCmd.Close
Else
    DoCmd.Close
End If
11/11/2014, 13:37

maras321

(11/11/2014, 02:50)ozanakkaya yazdı:
(09/11/2014, 02:09)maras321 yazdı: Teşekkürler ozan bey istediğimden fazlası olmuş.
tekrardan özür dilerim uygulamama ekleyemedim. yardımlarınız bekliyorum tekrardan 

http://www.dosya.tc/server35/vhqBAm/YeniMicrosoftAccessVeritaban_.rar.html


Sql koduna tarih eklememişsiniz. Ayrıca Liste2 yenileme kodunu değiştirdim. liste kutusu kopyala formunda değil, cogalt formunda.

If MsgBox("Bu kaydın eklenmesini istediğinizden emin misiniz?", vbYesNo, "Uyarısı") = vbYes Then

    DoCmd.SetWarnings False
    DoCmd.RunSQL "insert into ek5alt( [kullanılabilir], [kontroltürü], [cins], [plaka],[sürücüadı],[sürücübelgesi],[sınıfı],[verildigiil],[verildigiilçe],[belgeno],[saat],[tarih],[not] ) SELECT TOP 1 [Formlar]![kopyala]![kullanılabilir] AS İfade1, [Formlar]![kopyala]![kontroltürü] AS İfade2, [Formlar]![kopyala]![cins] AS İfade3, [Formlar]![kopyala]![plaka] AS İfade4, [Formlar]![kopyala]![sürücüadı] AS İfade5, [Formlar]![kopyala]![sürücübelgesi] AS İfade6, [Formlar]![kopyala]![sınıfı] AS İfade7, [Formlar]![kopyala]![verildigiil]AS İfade8, [Formlar]![kopyala]![verildigiilçe] AS İfade9, [Formlar]![kopyala]![belgeno] AS İfade10, [Formlar]![kopyala]![saat] AS İfade11, [Formlar]![kopyala]![tarih] AS İfade12, [Formlar]![kopyala]![not] AS İfade13 FROM ek5alt ;"
    DoCmd.SetWarnings True
    Forms!cogalt!Liste2.Requery
    DoCmd.Close
Else
    DoCmd.Close
End If

sizi bu kadar uğraştırdıgım için özür dilerim.Tamamen sorun giderildi.cok teşekkür ederim.