İf Hakkında

[drummers]

Basit bir "İf" e ihtiyacım var beceremedim...

Sorum şudur:

"Firma Bilaçomu ?" diye soracak eğer cevap "Evet" İse
WebBrowser1.Navigate("javascript:mukellefGetirVkn()") Bu işlemi gerçekleştirecek

Cevap "Hayır" ise

WebBrowser1.Navigate("javascript:mukellefGetirTckn()") Bu işlemi gerçekleştirecek

Teşekkürler

 

[paranormal]

Basit bir "İf" e ihtiyacım var beceremedim...

Sorum şudur:

"Firma Bilaçomu ?" diye soracak eğer cevap "Evet" İse
WebBrowser1.Navigate("javascript:mukellefGetirVkn()") Bu işlemi gerçekleştirecek

Cevap "Hayır" ise

WebBrowser1.Navigate("javascript:mukellefGetirTckn()") Bu işlemi gerçekleştirecek

Teşekkürler

Selamlar.......
Asagidaki kodu bi deneyin. kolay gelsin.

IF Firma Bilanço = True Then
WebBrowser1.Navigate("javascript:mukellefGetirVkn()")
ELSE
WebBrowser1.Navigate("javascript:mukellefGetirTckn()")
END IF

 

[drummers]

Selamlar.......
Asagidaki kodu bi deneyin. kolay gelsin.

IF Firma Bilanço = True Then
WebBrowser1.Navigate("javascript:mukellefGetirVkn()")
ELSE
WebBrowser1.Navigate("javascript:mukellefGetirTckn()")
END IF

Yok yok , sanırım yanlış anlattım

Bir butona basıyorum o basma işleminden sonra bana soracak önce "Firma Bilançomu" diye

 

[Zeki Gürsoy]

sor = msgbox ("Firma Bilaçomu ?",vbyesno)
if sor = vbyes then

else

end if

 

[drummers]

sor = msgbox ("Firma Bilaçomu ?",vbyesno)
if sor = vbyes then

else

end if

sor için

dim sor as integer mi? yazmam gerekiyor

 

[Zeki Gürsoy]

"TypeName" long olarak getiriyor.

 

[drummers]

"TypeName" long olarak getiriyor.

Dim sor As Integer
        sor = MsgBox("Sözleşmesi Oluşturulacak Firma Şirketmi ?", vbYesNo)
        If sor = vbYes Then
            WebBrowser1.Navigate("javascript:mukellefGetirVkn()")
        Else
            WebBrowser1.Navigate("javascript:mukellefGetirTckn()")

        End If

Buda oldu . Teşekkürler

 

[f_desat]

seçenekli

Dim soru, tip, aciklama, response
soru = "Bilanço Vkn için (Yes) Bilanco Tckn (No)'yu seçiniz... İptal için (Cancel)'ı seçiniz."
tip = vbYesNoCancel + vbCritical + vbDefaultButton2
aciklama = "Bilanço seçimi"

response = MsgBox(soru, tip, aciklama)
If response = vbYes Then
WebBrowser1.Navigate ("javascript:mukellefGetirVkn( )")
ElseIf response = vbNo Then
WebBrowser1.Navigate ("javascript:mukellefGetirVkn( )")
ElseIf response = vbCancel Then
MsgBox ("Bilanço seçimi iptal edildi !!'"), vbInformation
End If