My data is being cleared with zeros...

[Kipster1203]

I'm having a big issue... I have a table with document names in one column, document ID, and a couple other stuff as shown here



The problem is that the Description column will randomly get filled with zeros!! And I then have to go back in the table and replace all the zeros with the document names again... I have no idea why/when this happens. I can't figure out what makes this happen, can anyone please help me? thanks

[Datagopherdan]

I know in previous version there were issues with the "Memo" type fields that would cause the data to be displayed with all different types of characters. Another cause could be that you have some underlying code that is triggering it to do that. I would take a look at both areas.

I'm having a big issue... I have a table with document names in one column, document ID, and a couple other stuff as shown here



The problem is that the Description column will randomly get filled with zeros!! And I then have to go back in the table and replace all the zeros with the document names again... I have no idea why/when this happens. I can't figure out what makes this happen, can anyone please help me? thanks

[Kipster1203]

I know in previous version there were issues with the "Memo" type fields that would cause the data to be displayed with all different types of characters. Another cause could be that you have some underlying code that is triggering it to do that. I would take a look at both areas.

Ok, I found the underlying code that makes this happen but I don't know how to fix it (I didn't write it...), and don't wanna screw it up even more can anyone take a look? thank you.. This code is triggered when the user clicks the close button in one of the subforms.

Private Sub Form_Close()
    
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim i As Integer

    Set db = CurrentDb()
    Set rs1 = db.OpenRecordset("Document Table", dbOpenDynaset)
    
    rs1.MoveFirst
    rs1.Edit
    rs1.Fields(1) = 0
    rs1.Update

    For i = 1 To rs1.RecordCount - 1
        rs1.MoveNext
        rs1.Edit
        rs1.Fields(1) = 0
        rs1.Update
    Next i
    
    rs1.Close
    
End Sub

[Datagopherdan]

That's the problem. It's setting it that value when the form closes. If you don't want that to happen then just remove the code. If you're not 100% sure then what you can do if that's the only thing in the close event is just go to the form's properties, click on the "Events" tab and look for the "On Close". You'll see "[Event Procedure]" next to it. Just delete that. The code will still be there, so you can restore it by simply selecting "Event Procedure" from the drop-down but it will not be triggered anymore.

Ok, I found the underlying code that makes this happen but I don't know how to fix it (I didn't write it...), and don't wanna screw it up even more can anyone take a look? thank you.. This code is triggered when the user clicks the close button in one of the subforms.

Private Sub Form_Close()
    
    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim i As Integer

    Set db = CurrentDb()
    Set rs1 = db.OpenRecordset("Document Table", dbOpenDynaset)
    
    rs1.MoveFirst
    rs1.Edit
    rs1.Fields(1) = 0
    rs1.Update

    For i = 1 To rs1.RecordCount - 1
        rs1.MoveNext
        rs1.Edit
        rs1.Fields(1) = 0
        rs1.Update
    Next i
    
    rs1.Close
    
End Sub

[Kipster1203]

That's the problem. It's setting it that value when the form closes. If you don't want that to happen then just remove the code. If you're not 100% sure then what you can do if that's the only thing in the close event is just go to the form's properties, click on the "Events" tab and look for the "On Close". You'll see "[Event Procedure]" next to it. Just delete that. The code will still be there, so you can restore it by simply selecting "Event Procedure" from the drop-down but it will not be triggered anymore.

Yea I just commented it all out and it seems to work fine now, sweet! Thanks guys.

[Datagopherdan]

Glad you got it worked out.

Yea I just commented it all out and it seems to work fine now, sweet! Thanks guys.