New answers tagged


I finally Figure it out. Do On Error Resume Next 'reset Err.obj. 'Get the Max ID +1 Set rst = Nothing Set rst = New ADODB.Recordset 'assign memory to the recordset SQL = "SELECT Max(ApNumber)+1 FROM PayVoucherID " rst.Open SQL, cnn 'Check if the recordset is empty. 'Copy Recordset to the Temporary Cell Sheets("MAX").Range("A2"...

Top 50 recent answers are included