Bu uyarının ChartSpace ile bir ilgisi varmı?

[aliakgul]

Merhaba,
Çalışma kitabımdaki userformun açılışında resimdeki mesajı veriyor.
-Bu mesaj ne anlama geliyor?
-Çalışmamda ChartSpace kullandım.Bununla bir ilgisi var mı?(daha önce mesaj vermiyordu)
Teşekkür ederim...

 

[Levent Menteşoğlu]

Evet bu mesaj charspace,spreadsheet gibi nesneler nedeniyle ortaya çıkar. Aşağıdaki kodu sadece bir kez çalıştırmanız sorununuzu çözecektir.

[LEFT]Sub regolustur()
Dim deg As Object
anahtar = "HKCU\Software\Microsoft\VBA\Security\LoadControlsInForms"
Set deg = CreateObject("WScript.Shell")
deg.RegWrite anahtar, 1, "REG_DWORD"
End Sub

[/LEFT]

 

[aliakgul]

Levent Bey,
Bu kodların çalışmamda sürekli kalması gerekiyor mu?

 

[Levent Menteşoğlu]

Levent Bey,
Bu kodların çalışmamda sürekli kalması gerekiyor mu?

Hayır sadece bir kez çalıştırmanız yeterlidir.

 

[aliakgul]

Eğer doğru anladıysam, bu tip nesneler içeren başka çalışmalarımda da artık bu sorunla karşılaşmayacağım...
Bu durumda bu çalışmamı başka bir bilgisayarda açtığımda sorun olacak mı???

 

[Levent Menteşoğlu]

...................Bu durumda bu çalışmamı başka bir bilgisayarda açtığımda sorun olacak mı???

Bu mesaj registerde bazı güvenlik ayarları nedeniyle ortaya çıkıyor, verdiğim kod bu ayarları registere ekliyor. Dolayısıyla farklı bilgisayarlarda da eğer mesaj çıkıyorsa kodu bir kez çalıştırmak gereklidir.

 

[aliakgul]

Çok teşekkür ederim Levent Bey,
Aynı çalışma içinde bir sıkıntı olduğu için izninizle yeni başlık açmadan burada sormak istiyorum:
Resimdeki tarih girilen textboxlar n1,n2,......n14 şeklinde sıralanmış durumda. İstiyorum ki, takvime tıkladığımda takvim değeri, imleç hangi texboxda ise ona atansın...Teşekkür ederim.

 

[Levent Menteşoğlu]

Dosyanızı eklerseniz yardımcı olmaya çalışırım.

 

[aliakgul]

Çalışmamın örneğini ekledim.Teşekkür ederim...

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[aliakgul]

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
MsgBox KeyCode
End Sub

Hocam, bu kodları ayrı bir form altında mı tutmak zorundayız? Aynı forma alamazmıyız?

 

[Levent Menteşoğlu]

Dosyadaki diğer form gereksizdir, onu silebilirsiniz. Ben keycode değerlerini bulmak için eklemiştim. 10 nolu mesajdaki dosyayı yeniledim onu inceleyin.