اذهب الي المحتوي
أوفيسنا

kanory

الخبراء
  • Posts

    1,687
  • تاريخ الانضمام

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

  • Days Won

    122

kanory last won the day on أكتوبر 9

kanory had the most liked content!

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

3,521 Excellent

عن العضو kanory

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

  • Gender (Ar)
    ذكر
  • Job Title
    معلم

اخر الزوار

4,664 زياره للملف الشخصي
  1. ممتاز ...... لكن لا زالت نماذج المسؤول تعمل لدى المستخدمين ..... هل جربت المرفق جيدا ؟؟؟؟
  2. الكثير من الافكار موجودة في المنتدى ابو زهرة .... ابحث تجد ما يسيل له لعابك ........ لكن هذه فكرة ايضا جربها .... Kan_asd.accdb
  3. الملف يحتاج بعض التعديلات ..... قمت بتعديل بعضها انظر اليوزر الاول واليوزر الثاني وكلاهما الباس 123 asd.rar
  4. صحيح .... هناك اختلاف بين البيانات التي عملنا عليها والبيانات الموجودة الان ....... انظر للجدولين ....
  5. تفضل <<<<<<<>>>>>>>> Kan_20211007.rar
  6. طيب <<<<<<>>>>>>> هل المدة المعلمة باللون الازرق هي مدة الاقتطاع أم ماذا تمثل في الجدول ؟؟؟؟
  7. طيب جرب <<<<<<<<>>>>>>>>> 20211007 (1).rar
  8. الكود ليس فيه جديد ( هو استعلام ولكن عن طريق VB فقط ) لو قمت بنسخ هذا الجزء مثلا والصقتة في طريق عرض SQL في الاستعلام يظهر لك الاستعلام INSERT INTO 1 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب])); ثم في حدث الزر استدعيه بهذه الصورة فلن تعمل رسائل التحذير .... طبعا هذه طريقة وهناك طرق اخرى .. DoCmd.SetWarnings False DoCmd.OpenQuery "استعلام1" DoCmd.SetWarnings True
  9. طيب جرب المرفق هذا <<<<<<<>>>>>>>> al3beadlly.rar نافذة الرسائل بسيطة يمكن تلافيها وعدم ظهورها .....
  10. لاضافة جدول في قاعدة خارجية استخدم الاتي <<<<<<<>>>>>>>> Dim msgstyle Dim strSQL1 As String Dim b As New Access.Application Set b = CreateObject("Access.Application") b.OpenCurrentDatabase (Me.txtPath) strSQL1 = "CREATE TABLE [kanory] ([ProductID] AUTOINCREMENT,[ProductName] TEXT(40) NOT NULL,[SupplierID] LONG,[BirthDate] DATETIME,[CategoryID] LONG,[QuantityPerUnit] TEXT(20),[UnitPrice] CURRENCY,[UnitsInStock] SMALLINT,[UnitsOnOrder] SMALLINT,[ReorderLevel] SMALLINT,[Discontinued] BIT NOT NULL,CONSTRAINT [PrimaryKey] PRIMARY KEY ([ProductID]));" b.DoCmd.RunSQL strSQL1 MsgBox Space(20) & "تم انشاء الجدول Kanory بنجاح.." & Space(20), msgstyle, "للمعلومية" Set b = Nothing اما لتعديل خصائص حقل موجود في الجدول استخدم التالي مع ملاحظة : ان اختلاف البيانات قي الحقل اذا كانت هنا بيانات ممكن تفقدها :::: <<<<<>>>>>>> Dim msgstyle Dim b As DAO.Database Dim strFieldName As String Set b = DBEngine.OpenDatabase(Me.txtPath) With b.TableDefs("Kanory").Fields("S_Name") .Properties.Append .CreateProperty("DisplayControl", dbInteger, AcControlType.acComboBox) .Properties.Refresh End With MsgBox Space(20) & "تم انشاء الجدول Kanory بنجاح.." & Space(20), msgstyle, "للمعلومية" b.Close Set b = Nothing
  11. ممكن مثال صغير للفكرة التي تريدها
  12. واضح الرسالة تظهر قبل الضغط على زر ارسال البيانات ... صحيح
  13. جرب تغير هذا الكود <<<<<<>>>>>>>>> Fol.AllowMultiSelect = False بهذا ........... Fol.AllowMultiSelect = True
×
×
  • اضف...

Important Information