formda tercih ederek alanda uyan yazılar çıktığında

[kalbinidinle]

Merhaba arkadaşlar, bir çok suallerime aslında cevap alamasamda yine bir ümitle sormaya karar verdim.
Sorum şu ki; Açılan bir kutum var ve o kutu içinde 4 tane sabit kelimem var, bunlar sırasıyla -İdari-Arsiv-Pz-Satınalma- ben bu alanlardan birisi seçildiğinde -Metin0-Metin2- alanlarında kod alanında istenilen kelimeler eşleştiğinde diğer alanlara otomatik istetiğim kelimeler yazılsın, yani..

Örnek :

Private Sub Komut5_Click()
On Error GoTo Err_Komut5_Click
Select Case AçılanKutu10

Dim stDocName As String
Dim stLinkCriteria As String

Case "idari"

If Metin0 = "türkiye" Then
If Metin2 = "ailemiseviyorum" Then


Me.kısımsifresi.Text = "a dolabı"
Me.kısımsifresi.SetFocus
Me.büro.Text = "idari"
Me.büro.SetFocus
Me.büroklasör.Text = "45"
Me.büroklasör.SetFocus

End If

Case "arsiv"

If Metin0 = "kabzımal" Then
If Metin2 = "2315" Then


Me.kısımsifresi.Text = "a dolabı"
Me.kısımsifresi.SetFocus
Me.büro.Text = "idari"
End If

Exit_Komut5_Click:
Exit Sub

Err_Komut5_Click:
MsgBox Err.Description
Resume Exit_Komut5_Click
End Select
End Sub

Ben böyle bir kod yazdığımda hata veriyor. Ancak problemi çözmek için ancak sadece "metin0" alanında yazdığımda diğer"Metin2" alanına kaldırdığımda problem çözülüyor.
Kısaca benim istediğim şu;
İdari seçilmişken açılan kutuda; Metin0 ve Metin2 alanında yazılanlar uyuştuğunda ilgili alanlara yazılmasını istediğim şeyler yazsın. Uyuşmadığında birşey yapmasın.

Ancak bu kod hata veriyor hele ki mesela "idari" nin altında çok sayıda şart kullandığımda.. hatada End Select te..

Yardım edecek arkadaşlara şimdiden teşekkürler.

 

[modalı]

Sayın kalbinidinle,

Eğer If ile başlayan iki satırınız varsa sonda iki tane de End If olmalı.

If Metin0 = "türkiye" Then
If Metin2 = "ailemiseviyorum" Then


Me.kısımsifresi.Text = "a dolabı"
Me.kısımsifresi.SetFocus
Me.büro.Text = "idari"
Me.büro.SetFocus
Me.büroklasör.Text = "45"
Me.büroklasör.SetFocus

End If

Olan kodu

If Metin0 = "türkiye" And Metin2 = "ailemiseviyorum" Then

Me.kısımsifresi.Text = "a dolabı"
Me.büro.Text = "idari"
Me.büroklasör.Text = "45"

End If

Olarak deneyin. SetFocus un herhangi bir fonksiyonu yok. Metin kutusunun içini doldurduktan sonra odaklanmanın bir anlamı yok.

İyi çalışmalar

 

[kalbinidinle]

Sayın modalı teşekkür ediyorum, bildiğim ama uygulamayı bilmediğim bir konuyu öğrenmiş oldum.