AccessTr.neT
liste kutusunda seç düzelt coğalt - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: liste kutusunda seç düzelt coğalt (/konu-liste-kutusunda-sec-duzelt-cogalt.html)



liste kutusunda seç düzelt coğalt - maras321 - 08/11/2014

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.


Cvp: liste kutusunda seç düzelt coğalt - ozanakkaya - 09/11/2014

Örneğinizin düzenlenmiş hali ektedir. Liste kutusuna çift tıklayınız.


Cvp: liste kutusunda seç düzelt coğalt - maras321 - 09/11/2014

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


Cvp: liste kutusunda seç düzelt coğalt - ozanakkaya - 11/11/2014

(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



Cvp: liste kutusunda seç düzelt coğalt - maras321 - 11/11/2014

(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.