goto komutu

[a_self_lion]

Private Sub ComEkle_Click()

If TFisNo.Value = Empty Then

MsgBox "Lütfen FişNo Giriniz"
TFisNo.SetFocus

end sub

Else

Goto kayit

End If






kayit:
end if

Range("A13").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A13").Value = "" Then
Range("A13").Value = 1
Range("A13").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
ActiveCell.Offset(0, 1).Value = TFisNo.Text
ActiveCell.Offset(0, 2).Value = TKirlTar.Text
ActiveCell.Offset(0, 3).Value = TOdaNo.Text
ActiveCell.Offset(0, 4).Value = TTutar.Text
ActiveCell.Offset(0, 5).Value = TFree.Text
ActiveCell.Offset(-1, 6).Copy ActiveCell.Offset(0, 6)
ActiveCell.Offset(-1, 7).Copy ActiveCell.Offset(0, 7)
ActiveCell.Offset(-1, 8).Copy ActiveCell.Offset(0, 8)
ActiveCell.Offset(-1, 9).Copy ActiveCell.Offset(0, 9)
ActiveCell.Offset(0, 10).Value = 1
ActiveCell.Offset(0, 11).Value = TAciklama.Text
ActiveCell.Offset(-1, 12).Copy ActiveCell.Offset(0, 12)

'Formu Temizler Ve yeni giriş başlamak için Fiş Giriş i seçer

TFisNo.Text = ""
TKirlTar.Text = ""
TOdaNo.Text = ""
TTutar.Text = ""
TFree.Text = ""
TFisNo.SetFocus

End Sub

burda yapmak istediğim TFisNo Texbox nesnesini kontrol edip eğer boş ise
bir mesaj gösterip sonrada tekrar TFisNo TexBox nesnesini seçip sup dan çıkmak istiyorum

eğer dolu ise yani koşulun tersi ise Else komutundan sonra Goto Kayit yazıp
Alttaki kayit: satırından itibaren çalışmaya başlamasını sağlamaktı ama bir türlü yapamıyorum

 

[isakarakus]

TFisNo nesnesnin exit olayına

If TFisNo.Value = Empty Then
MsgBox "Lütfen FişNo Giriniz"
cancel=true
end if

yazmanız yeterli,

 

[isakarakus]

yada
end sub
yerine
exit sub ifadesini kullanın

 

[a_self_lion]

Çok Teşekkür ederim daha yeni öğrendim biraz daha öğreneceğim çok şey var bazı uygulamalar yaparak daha güzel öğreniliyor..
exit sub yazarak halledebildim teşekkür ederim
bşrde caldar1 de tarihi tıkladığım zaman tarihi texboxxa aktartıyorum fakat bir altındaki texbox a geçmesi lazım kursörün nasıl yapabilirim sayın isakarakus arakadaşım

 

[osmantelci]

Private Sub Calendar1_Click()
TextBox1 = Format(Calendar1, "dd.mm.yyyy")
TextBox2.SetFocus
End Sub

Private Sub UserForm_Initialize()
Calendar1 = Date
End Sub

Bilgiler paylaşıldıkça çoğalır.....!!! aynı sevgi gibi

 

[a_self_lion]

Çok Teşekkür ederim Evet haklısın Sevgi gibi......

Bir sor daha sorabilirmiyim Rica etsem

Calendarı aktik yaptıktan sonra üzerinde klavyeden ok tuşlarını da kullanarak seçeceğimiz tarihi seçip enter e basınca aktarsa texbox a çok güzel olacak gibi geliyor .... sizce?