Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/03/2010 22:19
Konu Sahibi
fox35
Yorumlar
4
Okunma
1355
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

fox35


 120
 25
 30/04/2009
 İzmir
 
 Ofis 2003
 26/07/2015,23:08
Çözüldü 
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)

Kullanici Avatari

Puletin


 Belirtilmemiş
 1.717
 40
 01/11/2008
416
 -
 
 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...

Kullanici Avatari

ayhan2122


 41
 681
 26
 30/10/2008
451
 -
 
 Ofis 2003
 26/07/2018,20:20
Çözüldü 
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.

Kullanici Avatari

fox35


 120
 25
 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ı.



Kullanici Avatari

ercansahin


ER.... ŞA....
 44
 3.739
 69
 14/11/2008
 Ankara
 
 Ofis 2010 32 Bit
 03/03/2018,16:39
Çözüldü 
O zaman bize de konuyu taşımak kalıyor. Emeği geçen üstadların ellerine sağlık..




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Metin Biçimlendirme Hakkında notrino 17 206 12/10/2018, 10:18
Son Yorum: notrino
Çözüldü Formda Bir Metin Kutusunda Hesaplanmış Değeri Raporda Gösterme Oğuz Türkyılmaz 14 246 05/10/2018, 22:12
Son Yorum: Oğuz Türkyılmaz
Çözüldü Zengin Metin Problemi notrino 3 84 28/09/2018, 14:57
Son Yorum: ozanakkaya
Çözüldü Metin Kutusunda Köşeli Parantez Sorunu Oğuz Türkyılmaz 9 139 27/09/2018, 12:53
Son Yorum: Oğuz Türkyılmaz
Çözüldü Alt Form Satırındaki Metin Kutusuna Formdan Veri Alma ielmacilar 11 450 27/09/2018, 12:23
Son Yorum: ielmacilar

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444