اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

د.كاف يار

الخبراء
  • Content Count

    220
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    4

د.كاف يار last won the day on سبتمبر 15 2019

د.كاف يار had the most liked content!

السمعه بالموقع

261 Excellent

12 متابعين

عن العضو د.كاف يار

  • الإسم الفعلي
    حسين كمال
  • تاريخ الميلاد 27 أغس, 1981

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب هندسة برمجيات | ماليزيا
  • بلد الإقامة
    السعودية | ماليزيا

وسائل التواصل

  • MSN
    hus2010hus@hotmail.com

اخر الزوار

646 زياره للملف الشخصي
  1. اخواني الافاضل شكرا من القلب على هذه الكلمات الطيبة و المؤثرة في النفس تفضل التعديل اخي الكريم Pupil Names_UPDate.accdb
  2. تفضل هذا الكود اخي الكريم فهو يقوم بالربط تلقائيا بقاعدة البيانات المهم ان يكون مسار قاعدة البيانات في نفس مسار البرنامج او ضع المسار كامل ضع الكود في حدث عند الفتح للنموذج الرئيسي Option Compare Database Option Explicit Public Function updateTableLinks() On Error GoTo updateTableLinks_Err Dim varThis As Variant Dim strBEFileSpec1 As String strBEFileSpec1 = CurrentProject.Path & "\" & "اسم قاعدة البيانات"& ".mdb" For Each varThis In CurrentDb.TableDefs With varThis If Trim(Nz(.Connect)) Like ";DATABASE=*" Then .Connect = ";DATABASE=" & strBEFileSpec1 .RefreshLink End If End With Next varThis updateTableLinks_Exit: Exit Function updateTableLinks_Err: If Err.Number > 0 Then Resume Next Else MsgBox Err.Description Resume updateTableLinks_Exit End If End Function
  3. اخي الكريم اشكرك على كلماتك الجميلة في ما يخص المخزون اقترح عليك الآتي لديك - جدول المواد - لا يوجد لديك جدول لحركة المواد ( دخول / خروج ) ! اذا كان لديك هذا الجدول سوف تجد ان البرنامج الخاص بك قد تنظم بشكل كبير سواء اثناء الجرد السنوي او معرفة المخزون الحقيقي بسبب انه لابد ان يحتوي على ( قيود سحب - قيود توريد - قيود مرتجع ) بالتالي المخزون الحالي = (قيود التوريد) - ( قيود السحب + قيود مرتجع ) *** النتيجة ( بحذف الطلببية ( أي حذف قيد السحب ) تكون المواد قد تم اعادتها للمخزون بشكل آلي )
  4. اخي الكريم اقترح عليك انشئ جدول بالفروع و اضف الفروع و اضف توقيع لكل فرع اضف عمود رقم الفرع في جدول المستخدمين الفكرة يتم استدعاء توقيع الفرع من خلال رقم الفرع المسجل تحت المستخدم و بهذا يكون توقيع للفرع و كذلك امكانية اضافة توقيع للموظف
  5. اخي الكريم ارجوا توضيح المعادلة بشكل مبسط لكي يتم تنفيذها هل تقصد صافي المبيعات - صافي المشريات = صافي الربح
  6. تفضل هذا التعديل اخي الكريم تم اضافة تنسيقات شرطية حتما ستنال اعجابك اربعة الوان ابيض = ليس لديه اشتراك اخضر = لديه اشتراك اكثر من خمسة ايام ازرق = لديه اشتراك يساوي او اقل من خمسة ايام احمر = لديه اشتراك منتهي GYM.accdb
  7. اجعلها بهذه الطريقة بدون الاشارة الى اسم النموذج [q] = [q] + [qq]
  8. اخي الكريم تم عمل بعض التعديلات على الجدول أمل ان تفي بالمطلوب مرفق الملف بعد التعديل ,, شكرا لك GYM.accdb
  9. تفضل هذا التعديل اخي الكريم في حدث القائمة المسندلة لأختيار الوظيفة انسخ الكود و الصقه On Error Resume Next DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False Dim x1, x2, x3 x1 = DLast("[m1]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]") x2 = DLast("[m2]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]") x3 = DLast("[m3]", "[jobs]", "[wazefa]= [Forms]![frm_rateb]![job]") DoCmd.RunSQL "UPDATE tb_rateb SET tb_rateb.amount1 = '" & x1 & "', tb_rateb.amount2 = '" & x2 & "', tb_rateb.amount3 = '" & x3 & "' WHERE [tb_rateb.id)=[Forms]![frm_rateb]![id];" DoCmd.SetWarnings True استعلام تحديث لاعمدة القائمة المنسدلة.accdb
  10. اخي الكريم لم اواجه مشكلة في فتح النماذج لكن قم بإنشاء قاعدة بيانات جديدة و استورد جميع العناصر
  11. اخي الكريم حين تريد البحث عن كلمة معينة لا تكتفي بالبحث من بداية الجملة استخدم هذه الطريقة و ستجد انها تفي بالغرض Me.Form.Filter = "[Last_Name] LIKE '%" & [Text1] & "%' " Me.FilterOn = True
  12. بعد اذن اخواني لكي تتعدد الخيارات اخي الكريم لكي يسهل عليك الامر استخدم الكود التالي Dim dbsNorthwind As DAO.Database Dim rstShippers As DAO.Recordset Set dbsNorthwind = CurrentDb Set rstShippers = dbsNorthwind.OpenRecordset("Table_Name") With rstShippers .AddNew !User_Name = [text1] !Password = [text2] .Update End With
×
×
  • اضف...