AccessTr.neT

benim bilgisayarda gayet güzel çalışan program arkadaşın laptopda şu hatayı veriyor
rferanslar hepsi mevcut

benim bilgisayarda gayet güzel çalışan program arkadaşın laptopda şu hatayı veriyor
rferanslar hepsi mevcut

Register edilmeyen dll veya ocx olabilir. Ayrıca aynı konuyu niye tekrar açıyorsunuz?

Yanlışlık olmuş kusura bakmayın
Ocx leri system32 ye attım  laptopu tekrar başlattım ama değişmedi 
nasıl register etmeliyim kendi laptopum 64bit onda çalışıyor arkadaşın da 64 bit ama hata verdi

Önce ocx içeren kodları iptal ederek dene. 

1- Dosyaları Syswow64 dizinine kopyala,
2- başlat çalıştır'a cmd yaz Komut istemcisini Yönetici olarak çalıştır
3- Komut istemcisi ekranında


yazıp enterabas


yazıp tekrar enter'a bas. accesstrnet.ocx yerine kendi ocx dosyanın ismini yazacaksın.

Çok teşekkürler yarın deneyeceğim

---

İlkönce ona baktım missing yoktu

---

Arkadaş bilgisayarını getirmeyince deneyemedim

---

Mesele şu ki program gözünün önündeki activexlistviev i görmüyor yok diyor 42 kez hata mesajı çıkıyordu tüm listviewleri sildim şimdi tek tek activex denetimden ekliyeceğim artık yarına kaldı 
Şunu sormak istiyorum bu arkadaşın 2 laptopu var biri kendisinin diğeri şirketin
Ama iki laptopuda şirketin bilgiişlem elemanı kurmuş acaba bu hataya sebep olabilecek güvenlik duvarı vs birşey olabilir mi

---

Accessin referansları kullanmasını engelleyen bir engel konulmuş olabilir mi yani teknik olarak böyle bir şey mümkün mü hiç böyle bir durumla karşılaştınız mı

---

sorunun kaynağını buldum ama çözümü bulamadım

Public Function MD5(ByVal sIn As String, Optional bB64 As Boolean = 0) As String
    'Set a reference to mscorlib 4.0 64-bit
   
    'Test with empty string input:
    'Hex:  d41d8cd98f00...etc
    'Base-64: 1B2M2Y8Asg...etc
       
    Dim oT As Object, oMD5 As Object
    Dim TextToHash() As Byte
    Dim bytes() As Byte
       
    Set oT = CreateObject("System.Text.UTF8Encoding")
    Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")

    TextToHash = oT.Getbytes_4(sIn)
    bytes = oMD5.ComputeHash_2((TextToHash))

    If bB64 = True Then
      MD5 = ConvToBase64String(bytes)
    Else
      MD5 = ConvToHexString(bytes)
    End If
       
    Set oT = Nothing
    Set oMD5 = Nothing

End Function

---

bu koddan kaynaklanıyormuş  mscorlib 4.0 64-bit yüklü ve bağlı gözüküyor ama neden olmuyor

---

mscorlib burada

---

2016 imiş

---

Md5 Şifre Oluşturmak Ve Şifre Sıfırlama Maili Göndermek