ник: Galaktika
Есть таблица Excel, кот. нужно перенести в Access. Ячейки(cells) я программно переношу , а вот как перенести check-box из Excel в таблицу Access. Кусок кода:
Private Sub Command0_Click()
Set ws = obExcel.ActiveSheet
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("consultation", dbOpenDynaset)
Rem *****
For i = 10 To 20
rst.AddNew
rst!pr_entity = ws.Cells(3, 3)
rst!report_period = ws.Cells(4, 3)
rst!report_date = ws.Cells(i, 1)
rst!district = ws.Cells(i, 2)
rst!community = ws.Cells(i, 3)
rst!format = ws.Cells(i, 4)
Rem rst!rap = ws.Cells(i, 6)--------вот здесь нужно не Cells,а что??????
rst!part_number = ws.Cells(i, 8)
rst!grievance_number = ws.Cells(i, 9)
rst!per_satisfaction = ws.Cells(i, 10)
rst!person = ws.Cells(24, 4)
If Not IsNull(rst!report_date) Then
rst.Update
End If
Next i
Rem ****
rst.Close
dbs.Close