يوسف مكاوي

هذا نسخ لمل الكود الخاص بالشاشة المطلوبة Dim sTemp, YSr As ADODB.Recordset Private Sub Combo1_Change() Text1.Text = Get_Name((Combo1.Text), 1) End Sub Public Function Get_Name(Code As String, MoDe As Integer) As String If Len(Code) > 0 Then Select Case MoDe Ca…

السلام عليكم ورحمة الله وبركاته انا عضو جديد وقد قابلتني مشكة لقد قمت بتصميم فليكس قرييد بداخلها check boxد بحيث يتم اختيار عدة سجلات من خلال المستخدم وذلك عن طريق عمل check علي السجلات المطلوبة ثم تعديل قيمة حقل معين بقيمة معينة لكل السجلات المحدودة والكود يق…