Environ Kullanımı hk

[tigiy]

Herkese merhaba

Environ kullanımı ile ilgili şöyle bir sorun yaşıyorum acaba hata nerede?

Bir adet userform mevcut bu userforma yetkili atayacağım kullanmaya çalıştığım kod şu:

If Environ("Computername") = "Ali" Or "Veli" Or "Mehmet" Then
msgbox "Yetkili"
elseIf Environ("Computername") = "Murat" then
msgbox "admin"
else
msgbox "misafir"

Ancak bu kodda typemissmatch hatası alıyorum aşağıdaki gibi text olarak denediğimde object required hatası alıyorum.

If Environ("Computername").text = "Ali" Or "Veli"  Or"Mehmet" Then
msgbox "Yetkili"
elseIf Environ("Computername").text = "Murat" then
msgbox "admin"
else
msgbox "misafir"

Yardımlarınızı bekliyorum.
Saygılarımla

 

[Erdem Akdemir]

Herkese merhaba

Environ kullanımı ile ilgili şöyle bir sorun yaşıyorum acaba hata nerede?

Bir adet userform mevcut bu userforma yetkili atayacağım kullanmaya çalıştığım kod şu:

If Environ("Computername") = "Ali" Or "Veli" Or "Mehmet" Then
msgbox "Yetkili"
elseIf Environ("Computername") = "Murat" then
msgbox "admin"
else
msgbox "misafir"

Ancak bu kodda typemissmatch hatası alıyorum aşağıdaki gibi text olarak denediğimde object required hatası alıyorum.

If Environ("Computername").text = "Ali" Or "Veli"  Or"Mehmet" Then
msgbox "Yetkili"
elseIf Environ("Computername").text = "Murat" then
msgbox "admin"
else
msgbox "misafir"

Yardımlarınızı bekliyorum.
Saygılarımla

Her isim için Environ("Computername") ifadesini kullanmanız gerekir.

 

[Erdem Akdemir]

Merhaba,

Tag'daki gibi kodlayabilirsiniz. Daha kolay isim ekleyip çıkartabilirsiniz.

Sub denememe()
Select Case Environ("Computername")

Case "ali", "veli", "mehmet"
MsgBox "Yetkili"

Case "Murat"
MsgBox "Admin"

Case Else
MsgBox "misafir"

End Select
End Sub

 

[tigiy]

Merhaba,

Tag'daki gibi kodlayabilirsiniz. Daha kolay isim ekleyip çıkartabilirsiniz.

Sub denememe()
Select Case Environ("Computername")

Case "ali", "veli", "mehmet"
MsgBox "Yetkili"

Case "Murat"
MsgBox "Admin"

Case Else
MsgBox "misafir"

End Select
End Sub

Çok teşekkürler hocam ilk söylediğiniz şekilde de çözdüm sorunu tabi case olayıda çalışıyor

If Environ("Computername") = "Ali" Or Environ("Computername") = "Veli" Or Environ("Computername") = ""Mehmet" Then
msgbox "Yetkili"
elseIf Environ("Computername") = "Murat" then
msgbox "admin"
else
msgbox "misafir"