Sifre

[etobus]

Merhaba,

Sifre = InputBox("Sifre gerekiyor", _
"Kisi", "Sifreyi yaziniz.")

If Sifre = "8907" Then
MsgBox "Sifre dogrulandi", vbInformation, "Sifre Dogru"

Else
MsgBox "Yanlis sifre girdiniz." & Chr(13) & _
"Kod çalismasi iptal edildi", vbCritical, "Yanlis sifre"

Bu kodda sifreyi sormak icin ekran geliyor fakat sifre kismina hicbirsey yazilmadan OK tusuna basilirsa veya bisey yazilsa dahi Cancel tusuna basilirsa hata veriyor. Bu iki durum nasil onlenebilir?

Tesekkurler

 

[Levent Menteşoğlu]

Aşağıdaki mavi renkli satırı kodlarınıza ilave edin.

[vb:1:85423441dc]Sifre = InputBox("Sifre gerekiyor", _
"Kisi", "Sifreyi yaziniz.")
if sifre="" then exit sub
If Sifre = "8907" Then
MsgBox "Sifre dogrulandi", vbInformation, "Sifre Dogru"

Else
MsgBox "Yanlis sifre girdiniz." & Chr(13) & _
"Kod çalismasi iptal edildi", vbCritical, "Yanlis sifre"
[/vb:1:85423441dc]

 

[etobus]

Aşağıdaki mavi renkli satırı kodlarınıza ilave edin.

[vb:1:ee531157b7]Sifre = InputBox("Sifre gerekiyor", _
"Kisi", "Sifreyi yaziniz.")
if sifre="" then exit sub
If Sifre = "8907" Then
MsgBox "Sifre dogrulandi", vbInformation, "Sifre Dogru"

Else
MsgBox "Yanlis sifre girdiniz." & Chr(13) & _
"Kod çalismasi iptal edildi", vbCritical, "Yanlis sifre"
[/vb:1:ee531157b7]

ama cacel butonu gene sorun yaratıyor.

 

[AS3434]

Sn etobus
Sn leventm'in gönderdiği kodlarda
if sifre="" Then Exit sub
Kırmızı yeri cancel olarak değiştirin.