سلام
من یک رکورد را با کد زیر از table استخراج می کنم :
بعد از پیدا کردن این رکورد می خوام شماره رکورد فعال موجود در پایین فرم را با شماره این رکوردی که پیدا کرده ام عوض کنم که در فرم نشان داده شود .
کسی می تونه کمکم کنه ؟
من یک رکورد را با کد زیر از 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
بعد از پیدا کردن این رکورد می خوام شماره رکورد فعال موجود در پایین فرم را با شماره این رکوردی که پیدا کرده ام عوض کنم که در فرم نشان داده شود .
کسی می تونه کمکم کنه ؟