metin kutusu varsayılanı
Tarih
02/03/2010 22:19
Konu Sahibi
fox35
Yorumlar
4
Okunma
1013
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



fox35
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
120
30/04/2009
İzmir
Ofis 2003
26/07/2015,23:08
Çözüldü 
Sponsor Reklam
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?


Ek Dosyalar
.rar   metin kutusu.rar (Dosya Boyutu: 11,18 KB / İndirme Sayısı: 7)
Cevapla

Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Çözüldü 
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.

Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
29/12/2016,10:44
Çözüldü 
Sponsor Reklam
Daha hızlı olabilir mi bilmiyorum ama formun GeçerliOlduğunda OlayYordamına;

Kod:
1
2
3
4
5
6
7
8
9
10
11
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:
1
2
3
4
5
6
7
8
9
10
11
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.
Cevapla

fox35
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
120
30/04/2009
İzmir
Ofis 2003
26/07/2015,23:08
Çözüldü 
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ı.
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
22/12/2016,18:59
Çözüldü 
Sponsor Reklam
O zaman bize de konuyu taşımak kalıyor. Emeği geçen üstadların ellerine sağlık..
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  metin kutusuna girilen ilk karakterin silinmesi slayerrrrr 4 95 17/01/2017, 14:27 slayerrrrr
  Gelen sonuca göre otamatik metin yazdırma hknct 13 291 16/01/2017, 16:35 hknct
  Metin Kutusu Hk. Serkan Çevik 2 71 12/01/2017, 20:28 Serkan Çevik
  Raporda filtreleme onay kutusu ile nightashes 3 148 12/01/2017, 18:53 nightashes
  Liste kutusu filtreleme nightashes 2 85 11/01/2017, 18:14 nightashes


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya