TextBox1 başlangıç sorunu

[igultekin2000]

Private Sub UserForm_Initialize()
    Dim firstDayOfYear As Date
    TextBox1.SetFocus
    TextBox1.SelStart = Len(TextBox1.Text)
    ' Bu yılın ilk günü tarihini alalım
    firstDayOfYear = DateSerial(Year(Date), 1, 1)
    
    ' TextBox11'de yılın ilk günü tarihini gösterelim
    TextBox11.value = Format(firstDayOfYear, "dd.mm.yyyy")
    TextBox10.value = "STOK"
    Me.TextBox1.SetFocus
End Sub

Private Sub UserForm_Activate()
    Me.TextBox1.SetFocus
End Sub

Private Sub TextBox1_Change()

    Dim inputText As String
    Dim formattedDate As String

    ' Kullanıcı tarafından girilen değeri al
    inputText = TextBox1.value
    
    ' Eğer girilen karakter sayısı 2 ise, gün girilmiş demektir, araya "/" ekle
    If Len(inputText) = 2 Then
        inputText = inputText & "/"
    End If
    
    ' Eğer girilen karakter sayısı 5 ise, ay girilmiş demektir, araya "/" ve yılı ekle
    If Len(inputText) = 5 Then
        inputText = inputText & "/2024"
    End If
    
    ' TextBox1'e otomatik olarak formatlı tarihi geri yaz
    TextBox1.value = inputText
    
    ' İmleci sona al
    TextBox1.SelStart = Len(TextBox1.value)
 Me.TextBox1.SetFocus
End Sub

bunlar ve benzer birçok olayın için SetFocus işlemini yazıp denedim.
Form üzerindeki CommandButton ile açık formu kapatıp yeni formu açıtığımda cursorun TextBox1 aktif olması, yani mause ile tıklamadan kayda başlamak. Birçok alternatif denedim ama bir türlü form açıldığında aktif edemedim. işlem yapıp commandButton ile kaydettiğim zaman Textbox1 seçili olarak işlem yapıyor ancak ilk açılışta inatlaşıyor. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim. Altın üyelik bitmiş aktif etmek için fırsat bulamadım. O yüzden dosya yüklemedim.

 

[Muzaffer Ali]

Merhaba.
Sadece initialize kodlarının sonuna setfocus eklemeniz yeterrli diğerlerine gerek yok. Eğer TextBox seçilmiyorsa başka bir sorun olmalı. Dosyayı paylaşırsanız kontrol edelim.

Private Sub UserForm_Initialize()
    Dim firstDayOfYear As Date
    firstDayOfYear = DateSerial(Year(Date), 1, 1)
    TextBox11.Value = Format(firstDayOfYear, "dd.mm.yyyy")
    TextBox10.Value = "STOK"
    TextBox1.SetFocus
End Sub

 

[igultekin2000]

örnek dosya
bu şekilde de olmadı, orijinal hali ile yükledim. Bakabilirseniz iyi olur. zira üç forma geçiş yapıyorum. ürün giriş ve ürün çıkış da aktif olmuyor, aynı form üzerinde stok kart açış formunda aktif oluyor.

 

[Muzaffer Ali]

Giriş ve çıkış formlarındaki initialize ve activate kodları aşağıdaki gibi olmalı.

Private Sub UserForm_Initialize()
    Dim firstDayOfYear As Date
    firstDayOfYear = DateSerial(Year(Date), 1, 1)
    TextBox11.Value = Format(firstDayOfYear, "dd.mm.yyyy")
    TextBox10.Value = "STOK"
End Sub

Private Sub UserForm_Activate()
    Me.TextBox1.SetFocus
End Sub

 

[cems]

Formlarda sag tıklayıp " tab order " sıralamasını yukarıdan aşağı isteğinize göre textbox ve label sıralarını düzenlemeyi deneyiniz. Cursor form açıldığında kendilğinden istediğiniz textboxa düşecektir

 

[igultekin2000]

Teşekkür ederim, güncellenmiş haliyle sorunsuz çalışıyor. Çözümü ne yapay zeka ne de diğer forum sitelerinde bulabildim. Epey zaman kaybettirmişti nihayet bu şekilde çözüldü. İyi çalışmalar.

 

[igultekin2000]

O sıralama zaten mevcut yoksa veri giriş yapılamaz. Mesele form ilk açıldığında cursor yani imlecin Textbox1 aktif olmasıydı. Ancak olmuyordu. Sonunda sorun çözülebildi.