Please read this everyone. (Especially you, Martin Liss)

[ripple214]

Hi,

I think I am a very confused programmer because I can't find what's wrong here. Here's my code:

With RsDependents
        Dim i As Byte
        If .RecordCount > 0 Then
            .MoveLast
            While .BOF = False
                If .Fields("EmpCode") = RsPersonalData.Fields("EmpCode") Then
                    .Delete
                End If
                .MovePrevious
            Wend
            .Update
        End If
        .Close
        .Open
        For i = 1 To mfgDependents.Rows - 1
            .AddNew
            .Fields("EmpCode") = RsPersonalData.Fields("EmpCode")
            .Fields("Name") = StrConv(mfgDependents.TextMatrix(i, 1), vbProperCase)
            .Fields("Age") = Val(mfgDependents.TextMatrix(i, 2))
            .Fields("Relationship") = StrConv(mfgDependents.TextMatrix(i, 3), vbProperCase)
            .Fields("Address") = StrConv(mfgDependents.TextMatrix(i, 4), vbProperCase)
            .Update
        Next i
    End With

It's supposed to delete the contents of a table who's empcode is the same as the empcode on another table, and afterwards add the entire contents of a flexgrid to it. Heres the problem;
everytime this code runs, i get an error message "Error occured" and then vb highlights the line next to .Addnew. Can anyone help me here?

Also, does anyone know how i can add a new page to a word document using vb and afterwards, edit certain portions of it?

[MartinLiss]

When you say "new page" do you mean a new blank page (in other words you just want to add a page break) or do you want to append an existing word doc which consists of just one page?

[James Stanich]

1st question : Does your code delete the items in the database?

2nd question : You seem to update regardless of whether the record is deleted ot not. Did you mean for that to be there?

[ripple214]

I meant to delete the records in a table in my database, and this code does just that. What's bugging me is that i always get that error message i said earlier. And another thing, when i moved the mouse over the code after the .addnew, it showed a tooltip that .fields("Empcode") = null.

And about the word thing. I am trying to make word generate my reports in my application ( I don't like to use datareport). So i do not know how many pages my report will have. If i will only create one page and then replace certain text's with information from my database and afterwards save it to another filename, then i will surely need to add more pages with the same contents as the original document.

[radum]

Originally posted by ripple214
I meant to delete the records in a table in my database, and this code does just that. What's bugging me is that i always get that error message i said earlier. And another thing, when i moved the mouse over the code after the .addnew, it showed a tooltip that .fields("Empcode") = null.

"Error occured" is not exactly a runtime error message... is this everything that you get? when your code stops, write

?Err.Description

in your immediate window and tell us what you get. the fact that .fields("Empcode") is null, even after an .AddNew operation, is not an error - this is how it is supposed to be in that context.

[NewComer]

check if the value is null and assign empty string if it is null.