Skip to main content

AccessTr.neT

Kayıt Ol

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

metin kutusu varsayılanı

fox35
fox35
Access Cevaplanmış Soruları
4
2013

metin kutusu varsayılanı

Çözüldü #3
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Son Düzenleme: 02/03/2010, 23:21, Düzenleyen: ayhan2122.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
metin kutusu varsayılanı - Yazar: fox35 - 02/03/2010, 22:19
Cvp: metin kutusu varsayılanı - Yazar: Puletin - 02/03/2010, 23:06
Cvp: metin kutusu varsayılanı - Yazar: ayhan2122 - 02/03/2010, 23:17
Cvp: metin kutusu varsayılanı - Yazar: fox35 - 02/03/2010, 23:35
Cvp: metin kutusu varsayılanı - Yazar: ercansahin - 02/03/2010, 23:55
Task