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

البحث في الموقع

Showing results for tags 'controldata'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • قسم تطبيقات و لغات مايكروسوفت
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • المنتدى التقني العام و تطبيقات الأوفيس الأخرى
    • إعلانات شخصية للأعضاء
    • قنوات تعليمية وإعلانات دورات تدريبية
  • إدارة المشاريع والبحث العلمي وعلوم البيانات
    • إدارة المشاريع ومحافظ المشاريع
    • البحث العلمي والإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
  • القسم العام
    • قسم الاقتراحات و الملاحظات
    • مشاركات المدونات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 1 نتيجه

  1. السلام عليكم إخوتى الكرام وكل عام و أنتم بخير لدى نموذج غير معتمد على جدول أو استعلام قمت بفتح recordset عن طريق ال ado قمت بجعل مصدر بيانات النموذج هو ال recordset المسماة adorec كما قمت بإسناد مربعات النصوص لل recordset كل مربع نص إلى حقل فى recordset أنشأت أزرارا للسابق و اللاحق و الأول و الأخير ...... كما ترون بالصورة المشكلة أنشأت زرا لإضافة سجل جديد لكنه لم يقبل و ظهرت رسالة تفيد بأنه لا يمكننى الانتقال للسجل المحدد جربت إضافة سجل جديد بالكود Docmd.gotorecord,,acnewrecord و عن طريق إضافة زر جاهز كل هذا لم يقبله أرجو النصيحة من خبراء المنتدى الأفاضل هل لا يمكن إضافة سجل جديد لنموذج تم تحميل مصدر بياناته ب الريكورد سيت من خلال الكود هذا هو كود الفتح Dim iBink As Integer Dim ForeColor As Long Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub cmdcancel_Click() Me.Undo End Sub Private Sub cmdend_Click() DoCmd.Close acForm, (Me.Name) End Sub Dim adocon As ADODB.Connection Dim adorec As ADODB.Recordset Private Sub Form_Load() Set adocon = CurrentProject.AccessConnection Set adorec = New ADODB.Recordset With adorec Set .ActiveConnection = adocon .Source = "SELECT * FROM tblmain" .LockType = adLockOptimistic .CursorType = adOpenKeyset .Open End With هنا إسناد الريكورد سيت لتكون مصدر بيانات النموذج Set Me.Recordset = adorec و هذه جمل لتحديد مصدر بيانات مربعات النصوص لتكون حقول فى recordset txtfind.ControlSource = "=[" & adorec.Fields(0).Name & "]" txtname.ControlSource = "=[" & adorec.Fields(5).Name & "]" txtqawmy.ControlSource = "=[" & adorec.Fields(4).Name & "]" txtqaydn.ControlSource = "=[" & adorec.Fields(20).Name & "]" txtfn.ControlSource = "=[" & adorec.Fields(13).Name & "]" txtmn.ControlSource = "=[" & adorec.Fields(16).Name & "]" txtwn.ControlSource = "=[" & adorec.Fields(22).Name & "]" txtmelad.ControlSource = "=[" & adorec.Fields(31).Name & "]" End Sub Set adorec = Nothing Set adocon = Nothing End Sub
×
×
  • اضف...

Important Information