ممكن معرفة معنى هذة الكلمات الموجودة فى هذا الكود
If RsOn_Sherch1.State = adStateOpen Then RsOn_Sherch1.Close sql = "SELECT * FROM [EK_T] WHERE [ESM] = '" & Trim(Label24.Caption) & "'" RsOn_Sherch1.Open sql, DbOn, adOpenStatic, adLockPessimistic UpData4
ما المقصود بهذة الكلمة التى لونها احمر
----------------------
Sub viewRecord_L1() On Error Resume Next If Not RsOn_Sherch1.RecordCount = 0 Then If Not IsNull(RsOn_Sherch1![KIMIA]) Then Label43.Caption = RsOn_Sherch1![KIMIA] End If End Sub
وشكراااا ولكم منى فائق الاحترام