Tarek Adel Salah

ياسلام على الردود معقول الردود دى كلها الحقيقة شىء مشجع

بسم الله الرحمن الرحيم راسلنى احد الاعضاء وطلب منى شرح او مثال عن كيفية انهاء عمل اى برنامج شغال فى Task Manager وانا وددت ان اضع المثال هنا حتى يستفيد باقى الاعضاء الكود التالى سينهى عمل اى برنامج شغال فى Task Manager Shell "cmd.exe /c TASKKILL /IM taskmgr.ex…

الاخ العزيز رساله الخطأ هذه تدل على ان هناك شىء خطأ فى قاعدة البيانات نفسها وليس فى الكود عليك ان تعيد صياغة العلاقات بين الجدولين وتأكد من ان id هو المفتاح الاساسى فى جدول الملف الشخصى للمرضى من نوع number حيث يتم ربطه بالمفتاح الثانوى فى الجدول الاخر وسيكون …

راقب هذا المثال Dim Db As New ADODB.Connection Dim Tb1 As New ADODB.Recordset Private Sub Form_Load() If Db.State = adStateOpen Then Db.Close Db.Open "provider=microsoft.jet.oledb.4.0;data source= your database source" Db.CursorLocation = adUseClient If Tb1.St…

جرب هذا الاجراء ..سنستعلم مثلا عن تشخيص حالة مريض عن طريق كود المريض فى جدول البيانات الشخصية للمرضى وعرض النتائج من جدول تشخيص حالة المرضى على اساس ان كود المريض متساوى فى الجدولين Private Sub Command1_Click() Dim ser As String On Error GoTo Not_Found ser = I…

or you can follow this : n = 1 Do While Not rs.EOF fg.Rows = fg.Rows + 1 fg.Col = 1 fg.Row = n fg.Text = rs("name") fg.Col = 2 fg.Row = n fg.Text = rs("phon") fg.Col = 3 fg.Row = n fg.Text = rs("address") fg.Col = 4 fg.Row = n fg.Text = rs("blood") fg.Col = 5 …