textbox da tarih formatı

[can_26]

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox13) Then
TextBox13 = ""
Else
TextBox13 = Format(TextBox13, "0(000)000 00 00")
End If
End Sub


merhaba arkadaşlar böyle bir kod yazdım numaraları giriyorum ama textbox tan çıktığımda format taki gibi yapmıyor ama bir önceki textbox12 de çalışıyor.13 te ise rakamları yazıyorum fareyi tıklarsam format kodu çalışıyor halbuki text ten ayrıldığımda çalışması lazım ama çalışmıyor yardım ederseniz sevinirim.


ayrıca textbox2 de kullanıcı kodları var ve el ile veriyorum ve istiyorumki yanlışlıkla aynıkodu verdiğimde hemen böyle bir kod kullanımda desin bunu nasıl yaparım birde bu konuda yardımcı olursanızsanız sevinirim.şimdiden yardımlarınız için tşk.ler iyi çalışmalar...

 

[Orion1]

Kodda bir şey yok.
Çalışması lazım.

 

[parametre]

Siz daha iyisini bilirsiniz ama guvenliği değiştirin oradan kaynaklanan bir problem olabilir yuksek guvenlik birçok kodun calısmasını engeller unutmayınız Kolay gelsin

 

[can_26]

arkadaşlar yardım lütfen

merhaba en iyisi dosyamı gönderim bi bakın

textbox13 te tarih formatım çalışmıyor ama textten çıkmadan fareyle tıklarsam çalışıyo ama ben istiyorum ki hücereden çıkışta çalışsın

ayrıca textbox2 de kod numaraları var ve onda da aynı kodu vermeyi nasıl engellerim

son olarakta en altta arama kriterleri var onları nasıl kodlarım lütfen sizler de yardım etmezseniz ben nasıl öğrenebilicemki.yardımlarınız bekliyorum arkadaşlar.....

 

[Orion1]

Dosyanızı 2003 versiyonunda yüklerseniz.Daha çabuk cevap alabileciğinizi umuyorum.2007 herkeste yok.

 

[can_26]

dosyamı 2003 göre kaydettim gönderiyorum

lütfen takıldığım konuları çözmem lazım.

 

[Orion1]

exit olayı aşağıdaki gibi

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox13.Text) Then TextBox13.Text = ""
End Sub

AfterUpdate olayı aşağıdaki gibi

Private Sub TextBox13_AfterUpdate()
On Error Resume Next
TextBox13.Text = Format(TextBox13.Text, "0(000)000 00 00")
End Sub

 

[can_26]

çok tşk.ederim evren ama diğer bikaç takıldığım yer daha vardı
1:kod kısmında aynı kod kullanıldığında uyarı versin bu kod kullanılmaktadır şeklinde ve
2:aşağıda soyadına ,tc ye göre arama yerleri var.onlardan birini de tamamlarsanız ben gerisini getirebilirim sanırım.
ilgilenirsen gerçekten çok sevinirim minnettar kalıcam sana

 

[Orion1]

Geç oldu.
Ben çıkıyorum.
Yarına kadar bakan olmazsa ben yarın yaparım.İyi geceler.

 

[can_26]

selam evren arkadaşım,hiç kimse bana yardımcı olmamış lütfen senden ricam benim sıkıntılarıma bi çare olurmusun.buradaki kişiler nedense yazmış olduklarıma bir cevap vermemişler ya bilmiyolar yada önemsemiyolar ama benim çok çok önemli.lütfen yardımını bekliyorum...

yada diğer arkadaşlardan da ilgilenenler olursa sevinirim....

 

[Orion1]

Dosyanız ekte.
Bu başlıkla ilgili konular çözümlenmiştir.
Başka sorunuz varsa konuya uygun başlık açarak yeni sorunuz sorunuz.

Private Sub CommandButton1_Click()
    'Kayıt öncesi boş alanlar kontrol ediliyor
Dim k As Range, adr As String
If TextBox2.Text = "" Then MsgBox "Lütfen Kod Alanını Boş Bırakmayınız": TextBox2.SetFocus: Exit Sub
Set k = Sheets("Sayfa1").Range("C7:C65536").Find(TextBox2.Text, , xlValues, xlWhole)
If Not k Is Nothing Then
    MsgBox "[ " & TextBox2.Text & " ] Numaralı kod no girilmiş." & _
    vbLf & "Kayıt girilmedi..!!", vbCritical, "UYARI"
    TextBox2.SetFocus
    Exit Sub
End If

 

[ferhat73]

evren bey
şifreleri girdikten sonra bir hata veriyor.


iyi çalışmalar

 

[Orion1]

evren bey
şifreleri girdikten sonra bir hata veriyor.


iyi çalışmalar

Ben denedim bir hata vermedi.
Hem zaten benim yazdığım kodlarla sizin dediğiniz hatayı vermesi mümkün değil.
Siz sonradan başka kodlar yazdıysanız onu bilemem.

 

[Orion1]

Bu başlıkla ilgili sorunuz cevaplandıysa lütfen sorunun çözümlendiğini bildirip konuyu kapatınız.Yeni sorular için konu ile ilgili konuya uyan yeni başlıklar açınız.