metin kutusu varsayılanı - Baskı Önizleme

metin kutusu varsayılanı - 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ığı: metin kutusu varsayılanı (/konu-metin-kutusu-varsayilani.html)

metin kutusu varsayılanı - fox35 - 02/03/2010

sayın hocaları;
iyi akşamlar ekteki örnekte forma yazdım problemi ancak bi kez daha yazayım; seri bir kayıt yaparken bazı bilgiler birden fazla, bazen 60 70 kayıt için aynı oluyor. metin kutularından her kayıt için aynı bilgileri yazdığımızbu kutulara bir kez değer girip değiştirene kadar her kayıtta aynı değerleri varsayılan olarak girebilecek bir düzenleme yapabilirmiyiz?mesela değeri ilk kayıtta girdikten sonra her kayda o değeri yazacak bir değiştir butonu yardımıyla o değeri değiştirince tekrar değiştirene kadar devam?

Cvp: metin kutusu varsayılanı - Puletin - 02/03/2010

Eğer Metn kutularının Varsayılan değerlerine

Kod:

=DLast("[AlanAdı]";"TabloAdı")

yarzarsanız enson kaydedilen bilgiler varsayılan olarak metinkutularınıza gelecektir.

Cvp: metin kutusu varsayılanı - ayhan2122 - 02/03/2010

Daha hızlı olabilir mi bilmiyorum ama formun GeçerliOlduğunda OlayYordamına;

Kod:

Private Sub Form_Current()

On Error GoTo HATA

    

    adi.DefaultValue = "'" & DLast("adi", "Tablo1") & "'"

    soyadi.DefaultValue = "'" & DLast("soyadi", "Tablo1") & "'"

    dogum_tarihi.DefaultValue = DLast("dogum_tarihi", "Tablo1")

    Etiket8.Caption = IIf(IsNull(sira), "Yeni kayıttasınız....", " ")

    

CIKIS: Exit Sub

HATA: Resume CIKIS

End Sub

ama butonla derseniz;

Kod:

Private Sub Komut1_Click()

On Error GoTo HATA

    

    adi.DefaultValue = "'" & adi & "'"

    soyadi.DefaultValue = "'" & soyadi & "'"

    dogum_tarihi.DefaultValue = "'" & dogum_tarihi & "'"

    Etiket8.Caption = IIf(IsNull(sira), "Yeni kayıttasınız....", " ")

    

CIKIS: Exit Sub

HATA: Resume CIKIS

End Sub

Sn Puletin benden önce cevaplamış bile Img-grin

Cvp: metin kutusu varsayılanı - fox35 - 02/03/2010

teşekkürler sayın puletin bu işimi görür ancak bir sorunum daha var.kullanıcı formu açtığında her zaman kayıt yapmayabilir bakmak için açabilir.bu durumda o alanlar boş olacağından son yapılan kayıt değerleriyle dolduracak.bunu engellemek için bu dizeyi yanda ekleyeceğim bir butona click kodu olarak yazmak istedim ancak olmadı.bu konuda yardımcı olursanız çok sevinirim. tekrar teşekkürler.

sayın ayhan2122 butonla dediğiniz kod iyi olurdu ancak çalışmadı.benden de kaynaklanmış olabilir ama bilemiyorum yeni kayda yazmadı

ancak form current çalıştı.teşekkürler sayın ayhan2122 ve teşekkürler sayın puletin.buton kodlarına da DLast ekleyince çalıştı.

Cvp: metin kutusu varsayılanı - ercansahin - 02/03/2010

O zaman bize de konuyu taşımak kalıyor. Emeği geçen üstadların ellerine sağlık..