Without giving notice an administrator changed from Win 7 64 bit with Office 2010 32 bit to Win 10 64 bit with Office 2016 32 bit on a certain machine.
Now, our production database application based on Access 2010 Runtime 32 bit does not work anymore, ALTHOUGH I installed the neccessary runtime and let the application start with A2010 RT.
The app crashes with an error message when trying to open a certain form, but the code was compiled of course and has been running unchanged for many years on the old environment.
Another form crashed with error message after it is opened.
The code in the frmKunden is:
TempVars!licencedate is for example 31.12.2017 but when trying
I get NO error in the developer machine (On error Resume next turned off!) but the message box, so Date is comparable with 31.12.2017.
Next code is:
I checked all references, if they are available and not broken (IsBroken = false), but cannot find the cause for the Runtime error which determins the program.
Any other ideas to detect and solve the problem??
I tried to open the accdb (version Access 2010) in Access 2016 full version but could not even find HOW to get into Visual Basic editor. (owfull Access 2016!!). Can someone help - PLEASE!
Thx Michael
Now, our production database application based on Access 2010 Runtime 32 bit does not work anymore, ALTHOUGH I installed the neccessary runtime and let the application start with A2010 RT.
The app crashes with an error message when trying to open a certain form, but the code was compiled of course and has been running unchanged for many years on the old environment.
Another form crashed with error message after it is opened.
The code in the frmKunden is:
Code:
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
'bei ungültiger Lizenz keine Eingabe möglich
If Date > TempVars!licencedate Then
MsgBox "Lizenz für die Nutzung des Programms abgelaufen!" & vbCrLf & "Sie können Daten ansehen, aber keine verändern oder neue hinzufügen!", vbCritical, "Kontaktieren Sie Ihren Softwarebetreuer!"
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False
End If
End Sub
Code:
If Date < TempVars!licencedate
Next code is:
Code:
Private Sub Form_Current()
Dim ctl As Control
On Error Resume Next
If Not IsNull(Me.Firma) Then
Me.KopfName = Me.Firma & " / " & (Me.Vorname + " ") & " " & Format(Me.[Nachname], ">")
Else
Me.KopfName = (Me.Vorname + " ") & " " & Format(Me.[Nachname], ">")
End If
If Me.NewRecord Then
For Each ctl In Me.Controls
If ctl.Tag = "x" Then 'Or 'Pflichtfeld
ctl.Locked = False
End If
Next ctl
Else
For Each ctl In Me.Controls
If ctl.Tag = "x" Then 'Or 'Pflichtfeld
ctl.Locked = True
End If
Next ctl
End If
Me.Bestellungsübersicht.Form!SumPreis = Nz(DSum("SummePosition", "vwWSBestellungsDetails", "([BestellID]=" & Me.Bestellungsübersicht.Form!BestellID & ")"), Null)
Me.Bestellungsübersicht.Form!SumAnz = Nz(DSum("Anzahl", "vwWSBestellungsDetails", "([BestellID]=" & Me.Bestellungsübersicht.Form!BestellID & ")"), Null)
End Sub
Any other ideas to detect and solve the problem??
I tried to open the accdb (version Access 2010) in Access 2016 full version but could not even find HOW to get into Visual Basic editor. (owfull Access 2016!!). Can someone help - PLEASE!
Thx Michael