[Ahmed_Mansoor]

أهلا أخي الكريم , لنفترض أن إسم حقل كود الشركة هو CompanyCode وإذا كان غير ذلك فقم بتغييره في هذا الكود , هذا كودك بعد تعديله :

PHP كود :

If CN.State = 1 Then CN.Close
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Sys.sys;Persist Security Info=False"
If rsitem1.State = 1 Then rsitem1.Close
rsitem1.Open "Select CompanyCode From CompanyINFO Where CompanyName='" & Trim$(CCompanyName.Text) & "'", CN, adOpenStatic, adLockOptimistic
If rsitem1.RecordCount > 0 Then
   If Not IsNull(rsitem1![CompanyCode]) Then TCompanyID.Text = rsitem1![CompanyCode] Else TCompanyID.Text = ""
Else
   TCompanyID.Text = ""
End If
If rsitem1.State = 1 Then rsitem1.Close