• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

USERFORM

Katılım
2 Mart 2005
Mesajlar
79
Arkadaşlar ekte bir çalışmam var.

Userfor1 kullanılarak veri kaydı yapılıyor. Fakat bazı ayrıntılar var.
1) fiş no: kısmı enson fiş numarasını çalışma sayfasından bulup (+1) ekleyecek ve textbox1 e yazacak.
2)Tarih: bölümünde bugün() görünecek.
3) Tab tuşuna basıldığında kursör fiş no ve Tarih kısmına geçmiyecek
 
Userforma aşağıdaki kodları yazarak deneyin.

[vb:1:3815314157]Private Sub UserForm_Initialize()
TextBox1 = Cells(65536, 1).End(xlUp).Value + 1
TextBox2 = CDate(Format(Now, "dd.mmmm.yy"))
TextBox1.Enabled = False
TextBox2.Enabled = False
End Sub
[/vb:1:3815314157]
 
Textbox içindemi ay önce görünüyor yoksa veriyi sayfaya aktardığınızdamı?
 
Birde denetim masası-bölgesel ayarlar-tarih ayarlarınıza bakarmısınız eğer tersse onu düzelterek tekrar deneyin. Bende herhangi bir sorun görünmüyor.
 
TextBox2 = CDate(Format(Now, "dd.mmmm.yy"))

Satırını aşağıdaki gibi değiştirerek deneyin.

TextBox2 = CDate(Format(date, "mmmm.dd.yy"))
 
UserForm_Initialize olayına aşağıdaki şekilde dener misiniz?

TextBox2 = Format(Now, "dd/mm/yyyy")
 
denedim fakat TextBox2 de 5/20/2005 şeklinde görünüyor. Sayfa üzerinde 20/05/2005 nedenini bir türlü anlayamadım.
 
EMRE ÞAHAN,
denedim fakat TextBox2 de 5/20/2005 şeklinde görünüyor.
Bende denedim fakat 20/05/2005 olarak görünüyor.Sizdeki sorun mutlaka Bölgesel ayarlardadır.
Bölgesel ayarlarınızdakikısa tarih biçimini gg/aa/yyyy olarak kontrol ediniz.
 
enteresan bir durum! gönderdiğiniz çalışma kitabını kopyaladım.
tarihte herhangi bir problem yok, benim çalışma kitabımda da kodlar aynı ama tarih kısmında önce ay görünüyor.
Neyse arkadaşlar ilginize teşekkür ederim. Bu konuyla sizi daha fazla sıkmak istemiyorum .
 
Geri
Üst