| Facebook ile Bağlan | Twitter İle Bağlan | Google+ İle Bağlan

aktarma öncesi altformda yeni kayda otomatik geçilmesi

mehmetb84

Access Cevaplanmış Soruları

3493

03/05/2016, 19:09 #5

Onursal Üye

atoz112

Bul

Onursal Üye

Adı Soyadı:

Yaşı: 54

Konum: İstanbul

Ofis Versiyonu: Ofis 2007

Son Oturumu: 09/12/2017,11:02

Yorumları: 5.716

Konuları: 9

Kayıt Tarihi: 04/08/2009

Teşekkür Puanı: 1.172

sayın mehmetb84,

Listekutusu adlı listenin TIKLANDIĞINDA olay yordamını aşağıdaki ile değiştirerek kullanmayı deneyiniz.

Kod:

Private Sub Listekutusu_DblClick(Cancel As Integer)





Me.f_gelen2!g2_kalite.SetFocus

DoCmd.GoToRecord , , acNewRec





[Forms]![f_ithalust]![f_gelen]![f_gelen2].[Form]![g2_konst] = Forms("f_ithalust").Controls("f_gelen").Form.Controls("Listekutusu").Column(6)

[Forms]![f_ithalust]![f_gelen]![f_gelen2].[Form]![g2_en] = Forms("f_ithalust").Controls("f_gelen").Form.Controls("Listekutusu").Column(5)

[Forms]![f_ithalust]![f_gelen]![f_gelen2].[Form]![g2_fiyat] = Forms("f_ithalust").Controls("f_gelen").Form.Controls("Listekutusu").Column(8)

[Forms]![f_ithalust]![f_gelen]![f_gelen2].[Form]![g2_pb] = Forms("f_ithalust").Controls("f_gelen").Form.Controls("Listekutusu").Column(9)

[Forms]![f_ithalust]![f_gelen]![f_gelen2].[Form]![g2_bag2] = Forms("f_ithalust").Controls("f_gelen").Form.Controls("Listekutusu").Column(12)

[Forms]![f_ithalust]![f_gelen]![f_gelen2].[Form]![g2_kalite] = Forms("f_ithalust").Controls("f_gelen").Form.Controls("Listekutusu").Column(4)



End Sub

bilginize...iyi çalışmalar,saygılar.

Herkes, kendisinin AR-GE'cisidir...

Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında

Cevapla