Private Sub Êíîïêà15_Click()
Dim I As Long, rs As New ADODB.Recordset, rs1  As New ADODB.Recordset
Set rs1 = Me.f_p_Lot.Form.Recordset
rs.Open "Select * from tbl_ID_Length", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs1.MoveFirst
Do Until rs1.EOF
With rs1
For I =  1  To .Fields("N_Length")
    rs.AddNew
    rs.Fields("Lot") = .Fields("Lot")
    rs.Fields("ID_Number") = Right(.Fields("Year"),  2 ) & " " & .Fields("Contract") & " " & .Fields("Lot") & " " & Format(I, "000") & " 0"
    rs.Fields("Cable") = .Fields("Tipe") & " " & .Fields("Tension") & "-" & .Fields("Tipe_Fiber") & "-" & .Fields("N_Modul") & "/" & .Fields("N_Fiber")
    rs.Fields("Year") = .Fields("Year")
    rs.Fields("Contract") = .Fields("Contract")
    rs.Fields("Length") = .Fields("Length")
    rs.Fields("Tolerance") = .Fields("Tolerance")
    rs.Fields("Drum") = .Fields("Drum")
    rs.Fields("N_Spec") = .Fields("N_Spec")
    
   rs.Update
  Next I
rs1.MoveNext
End With
Loop
Me.f_p_ID_Length.Requery

End Sub

Private Sub Êíîïêà22_Click()
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim MyCel As Variant
Dim MyRst As ADODB.Recordset
Dim ct As Long
Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("c:\abuser.xls")
Set mysheet = MyWo.Worksheets("Ëèñò1")
Set MyRst = New ADODB.Recordset
MyRst.Open "select * from tbl_ID_Length", CurrentProject.Connection, adOpenStatic, adLockReadOnly
If Not (MyRst.BOF And MyRst.EOF) Then
     Debug.Print MyRst![P1]
     Cells( 4 ,  3 ).Formula = (MyRst![P1])
     Cells( 4 ,  2 ).Formula = (MyRst![P2])
     Cells( 4 ,  1 ).Formula = CDate(MyRst![P3])
End If
MyRst.Close
Set MyRst = Nothing
'++++++++++++++++++++++++
MyWo.Save
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
'Application.Quit
End Sub

Private Sub Êíîïêà22_Click()
Dim myOlApp As Object
Dim MyWo As Excel.Workbook
Dim mysheet As Excel.Worksheet
Dim MyCel As Variant
Dim MyRst As ADODB.Recordset
Dim I As Long
Dim Y As Long

Set myOlApp = CreateObject("excel.Application")
Set MyWo = myOlApp.Workbooks.Open("c:\abuser1.xls")
If MyWo.ReadOnly Then MsgBox "Занято!!!.": MyWo.Close: Exit Sub

Set mysheet = MyWo.Worksheets("Ëèñò1")


Set rs = Me.f_p_ID_Length.Form.Recordset
     
I =  1 
Do While Len(mysheet.Cells(I,  1 )) <>  0 
I = I +  1 
Loop

          
rs.MoveFirst
Do Until rs.EOF
With rs

     
     mysheet.Cells(I,  3 ).Formula = .Fields("Lot")
     'Cells(3, 3).Select
     'Selection.Interior.ColorIndex = 4
     mysheet.Cells(I,  2 ).Formula = .Fields("ID_Number")
     mysheet.Cells(I,  1 ).Formula = .Fields("Date")

I = I +  1 
rs.MoveNext
End With
Loop


MyWo.Save
Set mysheet = Nothing
MyWo.Close
Set MyWo = Nothing
End Sub