ник: Егор
>у таких как ты все вокруг бесполезны, кроме тебя самого, видать.
интересно, а зачем я тогда задавал вопрос, если все бесполезны?
вот сложно Вам было сказать хоть это:
Dim wrkDefault As Workspace
Dim rst As Recordset
Dim XL As Object
Dim XLBook As Object
Dim XLSheet As Object
Dim strEXL, str As String
Dim i, j As Integer
With Application.CurrentProject
strEXL = .Path & "\import_bonus.xls"
End With
Set XL = CreateObject("Excel.Application")
Set XLBook = XL.Workbooks.Open(strEXL)
Set XLSheet = XLBook.Worksheets("bonus")
Set rst = CurrentDb.OpenRecordset("tbl_bonus", dbOpenDynaset)
Set wrkDefault = DBEngine.Workspaces(0)
On Error GoTo AddOneNewRecordErr
wrkDefault.BeginTrans
For j = 1 To i - 1
If XLSheet.Cells(j, 12).Value = "false" Then
If Len(str) = 0 Then
With rst
.AddNew
!nomdogstr = XLSheet.Cells(j, 1).Value
!godnachisl = XLSheet.Cells(j, 5).Value
!dodindoxodpere = XLSheet.Cells(j, 6).Value
!bonuspere = XLSheet.Cells(j, 7).Value
!dodindoxodstr = XLSheet.Cells(j, 8).Value
!bonusstr = XLSheet.Cells(j, 9).Value
!uchastie = XLSheet.Cells(j, 10).Value
!obrezbon = XLSheet.Cells(j, 11).Value
.Update
End With
End If
End If
Next j
If MsgBox("Save?", vbYesNo) = vbYes Then
wrkDefault.CommitTrans
Else
wrkDefault.Rollback
End If
да, это минимум, который можно было сделать, но..
>да к тому, что когда вдруг рядом с тобой не окажется тех, кто своим пОтом и кровью >приобрел опыт, которым ты хочешь так лихо и, не побоюсь этого слова, нагло, >воспользоваться, то кто же тебе поможет, как не сам себе сама?
Я уверен в том, что те, кто приобретал опыт потом и кровью, сами распрашивали народ и просили помощи. Опять же говорю, что, если ты что-то знаешь - поделись, еще в мультике поется: "поделись улыбкою своей, и она еще не раз к тебе вернется..."
А Вы смотрите на всех и вся с высока, жаль мне Вас.
Да и кто сказал, что я буду тупо копировать Ваш код, прежде чем вставлять нужно разобраться, а на примерах легче