![]() ![]() Where (ChiuvNum = ?)' '-Binding- Dim col As new BindingCollection Set col.DataSource = rs col.Add txtCaseNum, 'Text', 'CaseNum' '-Set the value to the current record- rs!CaseNum = CaseNum.text '-New Record- rs.AddNew '-Update- rs.rs.UpdateBatch '- P.S. Hello I am using Data Environment Designers, I try to add new record just after A am setting some values to existing record (most of the time to the record that the recordsset point to just after the Open ) This is runing Ok on XP, but now I am moving the application to Windows 7 and what happens is that one record is updated OK but the new record has all the values from the previous record that the Recordset was pointed to (the one that I set values just befor the Recordset.AddNew) The way the code runs is like this '-Open the recordset- CommandText = deLaw.Commands('Chiuv').CommandText Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open CommandText, deTest.Commands('cmmdOrders').ActiveConnection, adOpenStatic, adLockBatchOptimistic rs.Properties('Unique Table').Value = 'Chiuv' rs.Properties('Update Resync').Value = ADODB.ADCPROP_UPDATERESYNC_ENUM.adResyncAll rs.Properties('Resync Command').Value = 'Select.
0 Comments
Leave a Reply. |