ник: RainmanAndr
Dim rst As ADODB.Recordset
Dim sId As String
Dim iCounter As Integer
Set rst = New ADODB.Recordset
rst.Open "tblStart", CurrentProject.Connection, adOpenStatic, adLockOptimistic
sId = rst.Fields("Keyz")
iCounter = rst.Fields("Raz")
Me.txttimecounter = iCounter + 1
If iCounter > 19 Then
If sId <> Otzyv(Parol) Then
MsgBox sRegisterProgRazEnd, vbCritical, UCase(sRegister)
DoCmd.Close acForm, "CopyRight"
DoCmd.OpenForm "Register"
End If
Else
DoCmd.Close acForm, "CopyRight"
End If
rst.Close
Set rst = Nothing
или
On Error GoTo FUNCTION_Err
Dim rst As ADODB.Recordset
Dim sId As String
Dim iCounter As String
Set rst = New ADODB.Recordset
rst.Open "tblStart", CurrentProject.Connection, adOpenStatic, adLockOptimistic
sId = rst.Fields("Keyz")
iCounter = rst.Fields("Raz")
iCounter = 20 - iCounter
If iCounter < 0 Then iCounter = 0
If sId <> Otzyv(Parol) Then
Me.Caption = sUnRegisterProg + " " + LCase(sRemains) + " " + iCounter + " " + sRegisterProgRaz
Else
Me.Caption = sRegisterProg
End If
rst.Close
Set rst = Nothing
Me.lblProgramm.Caption = sName & " " & sVersion
FUNCTION_Exit:
Exit Sub
FUNCTION_Err:
MsgBox Err.Number & sErrorNumber, vbInformation, UCase(sInfoTitle)
Resume FUNCTION_Exit
Числа в принципе используются только тут. Подробностей кроме кода ошибки не знаю, так как эту ошибку у многих пользователей не выдает. А у кого она выскакивает то пользователи получают сообщение с кодом ошибки и просьбой соообщить об этом автору.