Ucase ve Textbox İlişkisi

[Hasan_32]

Ustalara Selam ;

UCase Komutunu aşağıdaki makroda kullanmaya çalıştığımda comple error, Can't find project or library hatası veriyor. Ne yapmam gerekiyor. Aynı kod başka bir makinada çalışıyordu.


Private Sub CommandButton1_Click()
Worksheets("Menu").Unprotect
If UCase(TextBox1.Value) = UCase(Sheets("veri").Range("e2").Value) And UCase(TextBox2.Value) = UCase(Sheets("veri").Range("f2").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)

Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e3").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f3").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)

Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e4").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f4").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)

Unload Me
Else
If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e5").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f5").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)

Unload Me
Else

If UCase(TextBox1.Value) = UCase(Sheets("Veri").Range("e6").Value) And UCase(TextBox2.Value) = UCase(Sheets("Veri").Range("f6").Value) Then
Sheets("Menu").Range("L5").Value = UCase(TextBox1.Value)

Unload Me
Else

MsgBox "Şifreyi Hatalı Girdiniz Lütfen Tekrar Deneyiniz"
TextBox1.Value = ""
TextBox2.Value = ""
End If
End If
End If
End If
End If
ActiveSheet.Protect , DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

[Orion1]

Sisteminizde bir nesnenenin ocx dosyası yok.Ok ullanılan nesnenin ocx dosyasını bulum windows\system32 klasörüne atıp.
sonra başlattan çalıştıra dosyaadı.ocx regsvr32.exe yazarak regstara kaydedin.
Sonra dosyanızı açın işlem tamamdır.
Veya vbe de tools ==>referenceden MISSING yazan satırdaki tiki kaldırın.Ama bu iyi değildir ilgili nesne devre dışı kalır.

 

[Hasan_32]

Sisteminizde bir nesnenenin ocx dosyası yok.Ok ullanılan nesnenin ocx dosyasını bulum windows\system32 klasörüne atıp.
sonra başlattan çalıştıra dosyaadı.ocx regsvr32.exe yazarak regstara kaydedin.
Sonra dosyanızı açın işlem tamamdır.
Veya vbe de tools ==>referenceden MISSING yazan satırdaki tiki kaldırın.Ama bu iyi değildir ilgili nesne devre dışı kalır.

bu dosyaları bulmam konusunda da yardımcı olursanız memnun olurum. ilginize teşekkür ederim...

 

[Hasan_32]

Office VB' de bulunması gereken dosyaları ve hata kodlarını bulabilmem için yardımcı olurmusunuz?

 

[Orion1]

Office VB' de bulunması gereken dosyaları ve hata kodlarını bulabilmem için yardımcı olurmusunuz?

Zaten standart nesneleri kullanırsanız sorun oluşmayacaktır.Onlarda zaten otomatik olarak geliyor toolbax'a.Mesela dtpicker standart ofis için bir nesne değilidr.Bunu kullanırsanız balşka makinelede kullanacağınız zaman önce söylediğim gibi kayıt defterine kayırt etmelisiniz.
ocx diye forum da arama yaparsanız sanırım bu ocx ile ilgili dosyaları bulabilirsiniz.