تغییر رکورد فعال روی فرم با برنامه نویسی در access

[mahsa rashedi]

سلام
من یک رکورد را با کد زیر از table استخراج می کنم :

Dim con As ADODB.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset
Set con = New ADODB.Connection
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\hazineh-bime.mdb" & ";Persist Security Info=False"
    cmd.CommandText = "select * from table1 where salp=" & Val(Trim(Form_mainhazineh.sal.Value)) & " and mahp=" & (Trim(Form_mainhazineh.mah.Value)) & " "
    Set cmd.ActiveConnection = con
    rst.Open cmd, , 1, adLockReadOnly
    If rst.RecordCount = 1 Then
     ' found the record
   else
   end if

بعد از پیدا کردن این رکورد می خوام شماره رکورد فعال موجود در پایین فرم را با شماره این رکوردی که پیدا کرده ام عوض کنم که در فرم نشان داده شود .
کسی می تونه کمکم کنه ؟

 

[amirlol]

بعد از پیدا کردن این رکورد می خوام شماره رکورد فعال موجود در پایین فرم را با شماره این رکوردی که پیدا کرده ام عوض کنم که در فرم نشان داده شود .
کسی می تونه کمکم کنه ؟

سلام
اینشو کمی واضح تر بگین