مهند عبادي

يعني أنك قد استخدمت عنصر تحكم OCX في برنامجك وهذا العنصر لم يعد موجوداً في تسجيل النظام أو أنك تحاول فتح قاعدة قد عملها أحدهم مستخدماً عنصر OCX لا يوجد عندك والحل أن تبحث في النماذج عن هذا العنصر وتحذفه ثم تذهب للـ Refrences وستجد ضمنها Missing قم بإلغائه

Const N = 1234.56 Dim A(5) as byte , R as byte , i as byte Dim S as String S = Trim(STR(N)) i = instr(s,",") if i >0 then S = left(s,i-1) & mid(s,i+1) For R = 1 to len(s) A(r) = val(mid(s,r,1)) next وهكذا نكون قد وضعنا كل رقم في عنصر لوحده ضمن مصفوفة A

أخي snmdody أنا رأيت النموذج .. وأظن أنه لا حاجة بك لهذا الشرط مطلقاً ..!! لأنك تختار معتمر بجميع بياناته وتضيف فترة إلى مدة جواتزه .. فبماذا هذا الشرط طالما أنك لا تدخل أرقام جديدة ؟؟

تحتاج إلى إضافة كود في حدث قبل التحديث لحقلي التاريخ أدرج ملفك حتى يتم وضع الحل لك بإذن الله

1 - هل تريد استعماله على نفس برنامجك الذي أرفقته ؟؟ 2- هذا الكود يعتمد على معيار مأخوذ من نموذج .. فهل تريد استعمال نفس الأسلوب ؟؟ إذا كان الجواب نعم فصمم نموذج تختار من خلاله أسلوب الفرز والتجميع وأرفق ذلك النموذج

Declare Function FindWindow Lib "user32" Alias _ "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Declare Function PostMessage Lib "user32" Alias _ "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Lon…

برنامج جيد جداً وأنا شخصياً لا توجد عندي أي اقتراحات بارك الله في جهودك أخي J Programmer

بالنسبة لسؤالك عن فرز وتجميع التقرير برمجياً .. فيمكنك استعمال الكود الذي ذكرته أنت سابقاً : Select Case Forms!frmChooseSort!grpSort Case 1 'Name Me.GroupLevel(0).ControlSource = "LastName" Me.GroupLevel(1).ControlSource = "FirstName" Me.GroupLevel(2).ControlS…

أخي Biskara أرجو منك في المرات القادمة أن تعمل موضوعاً جديداً لكل سؤال جديد .. وذلك من أجل سهولة الاطلاع على هذه الأسئلة من قبل الأعضاء والزائرين بالعودة إلى سؤالك ... طبعاً يمكن ذلك فقط ضع تعليمة طباعة التقرير الأول .. ثم في السطر التالي تعليمة طباعة التقرير …

أخي Biskara ... هذا التقرير خاصتك وقد عدلته بالاستغناء عن فاصل الصفحات الذي كان موجوداً ووضعت في خاصية رأس صفحة DateJob فرض صفحة جديدة قبل المقطع filterByDate.rar

أخي almhagr ... إن عملية ربط الجداول هي من أساسيات Access ويمكنك الاستعانة بملفات المساعدة في أكسس للحصول على شرح وافٍ لها كما يمكنك أن تحميل أي ملف أكسس من المرفقات وستجده يحتوي على علاقة الربط لأنها من الأساسيات التي لا تغيب عن أي قاعدة أكسس إلا ما ندر

ألف شكر لك أخي Biskara وفعلاً فإن تعليمة RunCommand هي من التعليمات المهمة والتي أستخدمها كثيراً وأنصح الأخوة الأعضاء أن يهتموا بها

أين المشكلة ؟؟

On Error Resume Next adoprimaryrs.MoveNext If adoprimaryrs.EOF Then adoprimaryrs.MoveLast MsgBox "Last Record", vbInformation, "Last Record" End If

لماذا تقول يا حسرة !!! ^o)

مشكووور أخي أبو راكان على هذا النشاط الجميل

هذه الأداة DbGrid تستند إلى أداة Adodc وليس إلى أداة Data وقد أرفقت لك مثالك بعد التعديل : T5ol.rar

مشكور أخي J Programmer على هذه المشاركة وتنبيه الأخوة إلى ملاحظة هامة في تعريف المتحولات

أخي مفتون آسف على نسيان إرفاق الملف .. وهذا هو : الحركه.rar

أخي biskra الدالة التي طرحتها هنا .. تعمل استعلام تحديث .. بينما أنت بحاجة إلى عبارة Sql تتضمن تحديد البيانات التي تريد طباعتها لكي تستخدمها كما يلي : DoCmd.OpenReport "MyReport" , acViewPreview, , " Not IsNull([Job])"