单击按钮时如何刷新值或显示文本框的下一个值（保存）

Question

I have a form that will display the next value of the voucher_id in a textbox. I am able to do that. The problem is when I click the save button, the value of the textbox is the same. I have to close the form and re-run it to refresh the value of the textbox. Can anyone help me to display the next value after clicking the save button? Here's my code snipet

Private Sub Form_Load()
Dim rcset As New ADODB.Recordset
Dim conConnection As New ADODB.Connection
conConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
  App.Path & "\" & "db_finance.mdb;Mode=Read|Write"
conConnection.CursorLocation = adUseClient
conConnection.Open

Set rcset = conConnection.Execute("SELECT Max(voucher_id) FROM voucher")
Text1.Text = rcset(0) + 1

End Sub

Any help would be much appreciated.

Answer 1

Try Like this

Private Sub NextID()
  Dim rcset As New ADODB.Recordset
  Dim conConnection As New ADODB.Connection
  conConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;
  Data Source=" & _
  App.Path & "\" & "db_finance.mdb;Mode=Read|Write"
  conConnection.CursorLocation = adUseClient
  conConnection.Open
  Set rcset = conConnection.Execute("SELECT Max(voucher_id) FROM voucher")
  Text1.Text = rcset(0) + 1
End Sub

 Private Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) 
 Handles Me.Load
     Call NextID()
 End Sub

 Private Sub Button_Click(Val sender As Object, ByVal e As System.EventArgs) 
 Handles Button1.Click
     '// CAll Save Function - your function to to save 
     Call NextID()
 End Sub