'??? C??C? ??E??C?? E?I ????E ?E?? ?C?E? ?? 200 ??E
'Dim period_new As Single
'Dim period_old As Single
'
'strSQL = " select inf1,inf3 from  MSysinf23"
'
'rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'
'rst.MoveFirst
'period_old = rst.Fields(2)
'
'period_new = period_old + 1
'rst!inf1 = period_new
'rst!inf3 = Me.txtSerialNo.Value
'rst.Update
'rst.Close
'
' DoCmd.SetWarnings False
' If period_new > 0 Then
'        ' C?EC?I ?? ?II ??CE ?E? C?E??C??
'uu:
'        ' C?E??I ?? ??CE?E ??? C???? C???E ?? ??? C?E????
'                  If IsNull([txtSerialNo]) Or ([txtSerialNo]) = "" Then
'                           Msg = "??? C?E?I?? U?? ???? CE?? E???? C?E??C?? ?????? ??? ??? C?E?I?? C???C?? ??CE? EE?? ??C?EC? "
'                           Style = vbOKOnly
'                           Title = "         C??UC? C??C?? ? C?E?C??"    ' Define title.
'                           Response = MsgBox(Msg, Style, Title, Help, Ctxt)
'                           Me.txtSerialNo.Enabled = True
'                           Me.txtSerialNo.Locked = False
'                           Me.txtSerialNo.SetFocus
'
'                          Resume uu
'
'
'                    End If
'
'       '===============================
'       '     ????E ??? C??C?I
'               Dim Srl As String
'               Set fs = CreateObject("Scripting.FileSystemObject")
'               Set h = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:")))
'
'               Me.HardiskSerial.Value = h.SerialNumber
'
'               Dim HDD_NO As Double
'
'               HDD_NO = ((h.SerialNumber - 1457) + 7541)
'
'                     If HDD_NO = Val(Me.txtSerialNo) Then
'
'                                   Set fs = CreateObject("Scripting.FileSystemObject")
'
'                                    If fs.FolderExists("C:\WINDOWS\Toktok23") = False Then
'                                    MkDir "C:\WINDOWS\Toktok23"
'                                    End If
'                                           Me.txtSerialNo.Enabled = False
'                                           Me.txtSerialNo.Locked = True
'
'               Else
'                                 Set fs = CreateObject("Scripting.FileSystemObject")
'
'                                    If fs.FolderExists("C:\WINDOWS\Toktok23") = True Then
'                                           Me.txtSerialNo.Enabled = False
'                                           Me.txtSerialNo.Locked = True
'                                    Else
'                                             Msg = "??? C?E?I?? U?? ???? CE?? E???? C?E??C?? ?????? ??? ??? C?E?I?? C???C?? ??CE? EE?? ??C?EC? "
'                                           Style = vbOKOnly
'                                           Title = " C??UC? C??C?? ? C?E?C??"    ' Define title.
'                                           Response = MsgBox(Msg, Style, Title, Help, Ctxt)
'                                           Me.txtSerialNo.Enabled = True
'                                           Me.txtSerialNo.Locked = False
'                                           Me.txtSerialNo.SetFocus
'
'                                           Resume uu
'
'                                    End If
'
'
'
'      End If
'
' End If
     DoCmd.Close
''------------------------------
     Dim stDocName As String
     Dim stLinkCriteria As String

     stDocName = "frm_program_form"
     DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmd_inter_Click:
    Exit Sub

Err_cmd_inter_Click:
    
        '-------------------------------------------------
       
       If Err.Number = 3021 Then
       
       Msg = "             ??I C???EII? ?? ???E C??? I?C .. ?C?? ??E ?I?? "
       Style = vbOKOnly
       Title = "            C??UC? C??C?? ? C?E?C??"
       Dim s As Integer
       s = 5 ' ?II C?E?C??
       mResult = MsgBoxPause(hWnd, Msg, Title, Style, s)
       '-------------------------------------------------
       Me.id1.SetFocus
      Resume Exit_cmd_inter_Click
      End If
     Handle_Errors_ADO "", Err.Number, Err.Description
      ' Resume Exit_cmd_inter_Click
    
End Sub

Private Sub Form_Current()
 '     ????E ??? C??C?I
'Set fs = CreateObject("Scripting.FileSystemObject")
'Set h = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("c:")))
'
'Me.HardiskSerial.Value = h.SerialNumber
'
'Dim period_new As Single
'Dim period_old As Single
'Dim rst As New ADODB.Recordset

'--------------------------------------------------------------------------
'strSQL = " select inf3 from  MSysinf23"
'rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'rst.MoveFirst
'Me.txtSerialNo.Value = rst.Fields(0)
'rst.Close
'--------------------------------------------------------------------------

'strSQL = " select inf1 from  MSysinf23"

'rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'rst.MoveFirst
'period_old = rst.Fields(0)

'period_new = period_old + 1
'rst.Close
    
' DoCmd.SetWarnings False

End Sub