Soru kayıt için onaylama

[sirkülasyon]

Ustam
Form üzerinde ki nesnelere tüm bilgiler girildi, sayfaya kayıt edileceği esnada kullanıcıya "kayıt etmek için belirlenen şifrenizi giriş yapın ve onaylayın" diye bir INPUTBOX çıkmasını girilen şifre doğru ise sayfaya kayıt işlemini gerçekleştirsin. Girilen şifre doğru doğru değil ise tüm userformdaki tüm nesneler temizlensin kayıt etmesin. Böyle bir örnek verebilmeniz mümkünse yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Private Sub CommandButton1_Click()
If InputBox("Şifre Giriniz") <> "abc123" Then ' siz kendi şifrenizi yazın
    MsgBox "Şifre hatalı"
    Call Temizle
Else
    Call Kayıt
End If
End Sub

Userformda Temizle ve Kayıt isimli 2 makro oluşturup bu şekilde kullanabilirsin.

Sub Temizle()
For i = 1 To 10
    Controls("TextBox" & i) = ""
Next i
End Sub

Aslında 2200 mesajda siz artık bu tür işlemlerini rahatlıkla yapabilir veya forumda arama yaparak bir çok örnek bulabilir seviyedesiniz.

 

[sirkülasyon]

Ellerin dert görmesin. Teşekkür ederim