Elimdeki çeşitli uygulamaları Office 2010 da accde (eski sürümlerdeki mde yani) yapıp çalıştırdığımda hiçbir sorun yok..
Çeşitli setup programları ile uygulamamı exe yapınca-masaüstü kısayolu oluşturup oradan çalıştırdığımda resimdeki hatayı alıyorum..
Bu hatanın sebebini ve çözümünü bir türlü bulamadım..İlk açılış formumda AÇILDIĞINDA OLAY YORDAMINDAKİ KOD AŞAĞIDADIR.
Private Sub Form_Open(Cancel As Integer)
Metin3.Value = GetCPUID
mtn_urunkimligi.Value = CalculateMD5(Metin3.Value)
Dim kontrol As Integer
kontrol = Nz(DLookup("[Kimlik]", "tbl_lisans", "[lisanskodu]=" & "'" & CalculateMD5(mtn_urunkimligi.Value) & "'"), 0)
Me.Metin0 = CalculateMD5(mtn_urunkimligi.Value)
If kontrol > 0 Then
DoCmd.Close acForm, "frm_lisans"
Else
DoCmd.GoToRecord acForm, "frm_lisans", acNewRec
End If
End Sub
Nasıl bir düzenleme yapmam lazım??
Öneri ve yardımlarınıı bekliyor saygılar sunuyorum..
