Microsoft Access Problem!!!!

Hi Leute,

ich hab ein Problem mit einem Programm in M$ Access, und zwar folgendes:

Ich brauch für ein Datenbank Programm einen Lizenschlüssel, der kostet aber 1.500,-- DM und ich hab keinen Bock das auszugeben....

Man kann in Access den Lizenschlüssel eingeben, doch kenn ich mich nicht gut genug mit dem Proggi aus um das system der Registrierung selbst rauszukriegen...

Hier ist der Code der auf dem "OK" Button liegt....

Wenn jemand helfen könnte, währe das wirklich super...

Private Sub Befehl1_Click()
Dim mLizOk As Boolean
Dim mdemTag As Integer
Dim mdemMon As Integer
Dim mdemJahr As Integer
Dim mdemQuer As Integer
Dim sZVersGültig1 As String
Dim sZVersGültig2 As String

mLizOk = True

On Error GoTo Err_Befehl1_Click

demoversion = False

If Len(Trim(Me!KeyNummer)) <> 10 Then
MsgBox "Ungültiger Lizenzschlüssel!", vbCritical
mLizOk = False
Else
If Val(mID$(Me!KeyNummer, 3, 1) & mID$(Me!KeyNummer, 1, 1)) <= 12 Then
demoversion = True
mdemMon = Val(mID$(Me!KeyNummer, 3, 1) & mID$(Me!KeyNummer, 1, 1))
mdemTag = Val(mID$(Me!KeyNummer, 2, 1) & mID$(Me!KeyNummer, 6, 1))
mdemJahr = Val(mID$(Me!KeyNummer, 4, 1) & mID$(Me!KeyNummer, 9, 1) & mID$(Me!KeyNummer, 5, 1) & mID$(Me!KeyNummer, 7, 1))
mdemQuer = Val(mID$(Me!KeyNummer, 10, 1) & mID$(Me!KeyNummer, 8, 1))

If mdemQuer <> Val(mID$(Me!KeyNummer, 1, 1)) + Val(mID$(Me!KeyNummer, 2, 1)) + _
Val(mID$(Me!KeyNummer, 3, 1)) + Val(mID$(Me!KeyNummer, 4, 1)) + _
Val(mID$(Me!KeyNummer, 5, 1)) + Val(mID$(Me!KeyNummer, 6, 1)) + _
Val(mID$(Me!KeyNummer, 7, 1)) + Val(mID$(Me!KeyNummer, 9, 1)) Then
MsgBox "Ungültiger Lizenzschlüssel!", vbCritical
mLizOk = True
Else
MsgBox "Demoversion, gültig bis zum " & Trim(Str$(mdemTag)) & "." & Trim(Str$(mdemMon)) & "." & Trim(Str$(mdemJahr)) & "!", vbInformation
End If
Else ' Wenn Stelle 1 und 3 größer als 12
' **** Keine Demoversion
demoversion = False
If mID$(Me!KeyNummer, 3, 1) <> "2" Then ' Wenn keine zeitlich beschränkte Vollversion
If Val(mID$(Me!KeyNummer, 2, 1)) >= 1 Then
If (Val(mID$(Me!KeyNummer, 2, 1) & mID$(Me!KeyNummer, 7, 1)) Mod 9) = 0 Then
' Grundmodul ist gültig
mdemQuer = Val(mID$(Me!KeyNummer, 8, 1) & mID$(Me!KeyNummer, 5, 1))
If mdemQuer <> Val(mID$(Me!KeyNummer, 1, 1)) + Val(mID$(Me!KeyNummer, 2, 1)) + _
Val(mID$(Me!KeyNummer, 3, 1)) + Val(mID$(Me!KeyNummer, 4, 1)) + _
Val(mID$(Me!KeyNummer, 6, 1)) + Val(mID$(Me!KeyNummer, 7, 1)) + _
Val(mID$(Me!KeyNummer, 9, 1)) + Val(mID$(Me!KeyNummer, 10, 1)) Then
MsgBox "Ungültiger Lizenzschlüssel!", vbCritical
mLizOk = False
End If
Else
MsgBox "Ungültiger Lizenzschlüssel!", vbCritical
mLizOk = False
End If
Else
MsgBox "Ungültiger Lizenzschlüssel!", vbCritical
mLizOk = False
End If
Else ' Wenn zeitlich beschränkte Vollversion
sZVersGültig1 = mID$(Me!KeyNummer, 5, 1)
sZVersGültig2 = mID$(Me!KeyNummer, 8, 1)
If (sZVersGültig1 = "0" Or sZVersGültig1 = "3" Or sZVersGültig1 = "7") And (sZVersGültig2 = "3" Or sZVersGültig2 = "6" Or sZVersGültig2 = "7") Then
mdemQuer = Val(mID$(Me!KeyNummer, 4, 1) & mID$(Me!KeyNummer, 9, 1))
If mdemQuer <> Val(mID$(Me!KeyNummer, 1, 1)) + Val(mID$(Me!KeyNummer, 2, 1)) + _
Val(mID$(Me!KeyNummer, 3, 1)) + Val(mID$(Me!KeyNummer, 5, 1)) + _
Val(mID$(Me!KeyNummer, 6, 1)) + Val(mID$(Me!KeyNummer, 7, 1)) + _
Val(mID$(Me!KeyNummer, 8, 1)) + Val(mID$(Me!KeyNummer, 10, 1)) Then
MsgBox "Ungültiger Lizenzschlüssel!", vbCritical
mLizOk = False
End If
Else
MsgBox "Ungültiger Lizenzschlüssel!", vbCritical
mLizOk = False
End If
End If
End If
End If

If mLizOk Then
MsgBox "Lizenzschlüssel OK! Bitte starten Sie das Programm neu!", vbInformation
DoCmd.Close
End If

Exit_Befehl1_Click:
Exit Sub

Err_Befehl1_Click:
MsgBox Err.Description
Resume Exit_Befehl1_Click

End Sub

))

Danke im Vorraus

Doomhammer

SQL Buch in pdf Format gibt es hier
*.xyz in rar umbenennen

Gruß Alex

------------------
da werden sie geholfen...." schade daß Sie das jetzt nicht sagt, un soo goldisch lacht "

[Dieser Beitrag wurde von TasseKaffee am 01. Mai 2000 editiert.]

Access ist keine richtige Datenbank. Nutze doch DBase oder Paradox. Die sind einfach zu bedienen und sämtliche Anwendungen (außer Microsoft-Produkte) haben Importfunktionen für diese beiden Datenbanken. Access ist scheiße!

Warum ist ACCESS "keine richtige" Datenbank? Was ist denn ne richtige DB und warum ist Access sch***?