S
Secret Squirrel
My database has been running using 2003 for almost 2 years now and the past
couple of days when you click to open a certain form the database closes
completely. Some users are using 2007 with the same database and I have no
problems with it. I have this code in the open event of this form and when I
remove it the form works fine. Why all of a sudden would this be causing a
problem? Could there be something corrupt with Access 2003? It works fine
with 2007. And it also works fine when I test it using 2003 on my laptop. But
the users that have 2003 are having this problem. Here's the code I'm using
that seems to be causing the problem:
If Len(Me.OpenArgs) > 0 Then
Me![RMA#].DefaultValue = Chr(34) & Me.OpenArgs & Chr(34)
Me![Customer].DefaultValue = Chr(34) &
[Forms]![frmARNCMR1]![Customer] & Chr(34)
Me![PO#].DefaultValue = Chr(34) & [Forms]![frmARNCMR1]![PONumber] &
Chr(34)
Me![PartNumber].DefaultValue = Chr(34) &
[Forms]![frmARNCMR1]![CustomerPN].Column(1) & Chr(34)
Me![DescriptionOfCondition].DefaultValue = Chr(34) &
Replace([Forms]![frmARNCMR1]![DiscrepancyDescription], Chr(34), Chr(34) &
Chr(34)) & Chr(34)
Me![Qty].DefaultValue = Chr(34) & [Forms]![frmARNCMR1]![QtyRejected]
& Chr(34)
Me![NCMR].DefaultValue = Chr(34) & [Forms]![frmARNCMR1]![NCMR] &
Chr(34)
Me![WorkOrder].DefaultValue = Chr(34) &
[Forms]![frmARNCMR1]![WorkOrder] & Chr(34)
End If
couple of days when you click to open a certain form the database closes
completely. Some users are using 2007 with the same database and I have no
problems with it. I have this code in the open event of this form and when I
remove it the form works fine. Why all of a sudden would this be causing a
problem? Could there be something corrupt with Access 2003? It works fine
with 2007. And it also works fine when I test it using 2003 on my laptop. But
the users that have 2003 are having this problem. Here's the code I'm using
that seems to be causing the problem:
If Len(Me.OpenArgs) > 0 Then
Me![RMA#].DefaultValue = Chr(34) & Me.OpenArgs & Chr(34)
Me![Customer].DefaultValue = Chr(34) &
[Forms]![frmARNCMR1]![Customer] & Chr(34)
Me![PO#].DefaultValue = Chr(34) & [Forms]![frmARNCMR1]![PONumber] &
Chr(34)
Me![PartNumber].DefaultValue = Chr(34) &
[Forms]![frmARNCMR1]![CustomerPN].Column(1) & Chr(34)
Me![DescriptionOfCondition].DefaultValue = Chr(34) &
Replace([Forms]![frmARNCMR1]![DiscrepancyDescription], Chr(34), Chr(34) &
Chr(34)) & Chr(34)
Me![Qty].DefaultValue = Chr(34) & [Forms]![frmARNCMR1]![QtyRejected]
& Chr(34)
Me![NCMR].DefaultValue = Chr(34) & [Forms]![frmARNCMR1]![NCMR] &
Chr(34)
Me![WorkOrder].DefaultValue = Chr(34) &
[Forms]![frmARNCMR1]![WorkOrder] & Chr(34)
End If