Mid kodu neden çalışmaz?

[ftekin]

Arkadaşlar evdeki OfficeXP 2002 VBA 6.3 yüklü bilgisayarımda çalışan aşağıdaki kod işyerimdeki OfficeXP 2002 VBA 6.3 yüklü bilgisayarda çalışmıyor.Mid'lerde kod hata veriyor.

Evdeki bilgisayarım: VBA 6.3, Vesion 9969 , VBA 6.4.8869 , Form3: 11.0.5709
İşyerindeki Bilgisayar: VBA 6.3, Vesion 9972 , VBA 6.4.9972 , Form3:11.0.5709

Acil yardım edeceklere müteşekkirim.

Bu TextBox1'i Telefon Numarasının girişi için kullanıyorum.

Private Sub TextBox1_Enter()
If Len(TextBox1.Text) = 15 Then
Dim str1, str2, str3, str4 As String
str1 = Mid(TextBox1.Text, 3, 3)
str2 = Mid(TextBox1.Text, 7, 3)
str3 = Mid(TextBox1.Text, 11, 2)
str4 = Mid(TextBox1.Text, 14, 2)
TextBox1.Text = str1 & str2 & str3 & str4
End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1.Text) = 10 Then
Dim str1, str2, str3, str4 As String
str1 = Mid(TextBox1.Text, 1, 3)
str2 = Mid(TextBox1.Text, 4, 3)
str3 = Mid(TextBox1.Text, 7, 2)
str4 = Mid(TextBox1.Text, 9, 2)
TextBox1.Text = "0." & str1 & "." & str2 & " " & str3 & " " & str4
End If
End Sub

 

[Recep İpek]

Peki Ofis versiyonunuz nedir?

 

[ftekin]

Evdeki : Excel 2002 (10.6501.6626) SP3
İşyerimdeki de Excel 2002 ama devamına bakmadım

 

[Recep İpek]

Referansları kontrol edebilirmisiniz?

Missing yazan var mı?

 

[ftekin]

 

[Recep İpek]

Daha önce bu problemi görmüştüm ama şu an aklıma gelmedi.

Şimdilik aşağıdaki gibi bir link buldum.

http://bilgiteknoloji.net/access/access01_access_hikayeleri.asp

 

[ftekin]

Hocam verdiğiniz linkteki DLL 'i evdeki bilgisayarımda arattım.
C:\Program Files\Common files\Microsoft Shared\Vba\Vba332.dll
dizininde böyle bir dosya yok.Hoş, Verdiğiniz linkte access için sorunları işliyorlar ama olsun bir mantık vermesi açısından iyi oldu.

Ben asıl form üzerinde MaskEdBox kullanmak istedim.
Ama kullanımı textbox kadar kolay değil.

1) Mesela maskedbox'ın içini temizle yapmak için ne kullanılır?
Örn: TextBox1.Text="" veya TextBox1 = Empty gibi yapmak için


2) İçindeki veriyi olduğu gibi almak için ne kod kullanılır?
Örn: MaskedBox 'da mask "0.###.### ## ##" iken ve 0.312.222 33 44 şeklinde görüntülenirken bunun içindeki veriyi (3122223344) nasıl alırım?

gibi sorulara cevap bulamadığım için bunu kullanmak zorunda kaldım.

Yinede teşekkürler...