ابوخليل

اعتقد اني عثرت على المشكلة انتظروني .. حتى انجز عملا بين يدي .. سأوافيكم بالحل

الحل يقضي حاجة اخونا ازهر .. لاني اتوقع الغرض منه ولكن اذا جاءت الملاحظة من اخوي موسى هذا يعني ان في جعبته الحلول المناسبة بحثت فوجدت طريقة اخرى للقراءة والكتابة توظف يونيكود Private Sub textchange_Click() FilePath = CurrentProject.Path & "\" & "textm.txt" Set objx = CreateObject("ADODB.Stream") objx.Open objx.Type = 2 objx.Charset = "utf-8" objx.WriteText textfield objx.SaveToFile FilePath, 2 objx.Close End Sub Private Sub textimport_Click() Dim objx Set objx = CreateObject("ADODB.Stream") objx.Charset = "utf-8" objx.Open objx.LoadFromFile (CurrentProject.Path & "\" & "textm.txt") textfield = objx.ReadText() objx.Close Set objx = Nothing End Sub

عليكم السلام Private Sub textchange_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(2, 0) tst.Write Me.textfield tst.Close End Sub Private Sub textimport_Click() Dim fso, opn, tst Set fso = CreateObject("Scripting.FileSystemObject") Set opn = fso.GetFile(CurrentProject.Path & "\" & "textm.txt") Set tst = opn.OpenAsTextStream(1, 0) textfield = tst.ReadLine tst.Close End Sub textf2.rar

تمام .. لهذا سألته ... من اجل عمل جدول للنسب ولكن فكرة التنفيذ عندي ليست بواسطة استعلام او علاقة وانما بعمل دالة تظهر عدد المعلمين المطلوب بدلالة عدد الفصول

الاستاذ خليفة افاد واجاد المشكلة في حماية الملف ضد الماكرو قبل فتح مرفق الاستاذ خليفة انقر بزر الفأرة الأيمن واختر خصائص ضع علامة لإلغاء الحماية ثم موافق ولمزيد من المعلومات انظر هنا

تفضل انقر نقرا مزدوجا على اي مربع اختيار للتفعيل ولإلغاء التفعيل لاحظ ان الموظف سوف يختفي اليوم من الفورم بمجرد اضافة المبلغ له ، احتياطا ان اردت اظهاره اكتب تاريخا اكبر من تاريخ اليوم محاوله2.mdb

السلام عليكم انا فتحت المرفق ولم اجد فيه ما يشبه الصورة اعلاه والذي فهمته منك انك تريد برنامج يظهر مقارنة بين عدد المعلمين الموجودين في المدرسة وبين عدد الاحتياج الفعلي هل فهمي صحيح ؟

السلام عليكم مشاركة مع اخي خليفة طريقة او فكرة التنفيذ بحاجة الى اضافة بعض الأساسات 1- يجب ان يأخذ الاسماء من جدول الاسماء ... ويكفي وجود معرف الموظف فقط في جدول السلف 2- يمكنك تطبيق الفكرة من خلال نموذج واحد ... فلست بحاجة الى رئيسي وفرعي 3- اضافة حقل تاريخ في جدول السلف للتصفية مستقبلا ولمنع تكرار السلفة في اليوم نفسه اخي احرص دوما ان يكون المرفق مختصرا جدا كي نتمكن من مساعدتك ارفع مرفقا جديدا يشتمل فقط على جدول الاسماء مع الجداول الحالية ونموذجا واحدا للاضافة وتقريرا واحدا للتجربة

هذه طريقة لاستخراجهم في الاستعلام نفسه باستخدام iif الحاصلين على 65%.rar

عليكم السلام انت لم توضح اذا تريد هذه النسبة على المجموع الكلي للمواد او انك تريدها مادة مادة على كل حال نسبة 65% من الدرجة العليا التي هي 80 = 52 يمكنك عمل معيار (يساي او اكبر من) 52

اسال الله العظيم رب العرش الكريم ان يشفيك عن أنس رضي الله عنه قال: سمعت رسول الله ﷺ يقول: إن الله عز وجل قال: إذا ابتليت عبدي بحبيبتيه فصبر عوضته منهما الجنة، يريد عينيه، رواه البخاري.

الرسائل النصية تعمل بشكل جيد المشكلة في المرفقات فقط

الحمدلله على التمام و الكمال ‏اللهُم لا تجعله آخر عهدنا في رمضان ‏اللهُم أعده علينا أعواماً عديدة وأزمنةً مديدة عيدكم مبارك و‏كُل عام و إنتم بخير ‏

بالنسبة لي اذا حدث خلل في الاوفيس غير طبيعي ، ولم اتمكن من اصلاحه اقوم فورا بازالته وتنصيبه من جديد واسلم من وجع الرأس

تفضل Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing Viewer2.accdb

لا لست وحدك .. بل غالب الاعضاء يعاني .. نلتمس له العذر ... وندعوا له بالخير .. ونحمد الله الذي انعم علينا وعافانا .

غير السطر Path = CurrentProject.Path & "\MyBk\" الى Path= "C:\Users\myuser\Documents\MyBk\" او الى Path= "C:\Users\myuser\Documents\MyBk" لا حظ يجب تغيير myuser الى اسم المستخدم عندك في وندوز

منظم : من التنظيم وهو الترتيب منضم : من الانضمام وهو الارتباط للتصحيح : تكتب : غير منضم .. و منضم ..... وليس منظم

غير بهذين السطرين فقط كما هو موضح Public Function crBkp() As Boolean Path = CurrentProject.Path & "\MyBk\" target = Path & nm & Format(Now(), "dd-mm-yyyy h m s") & ".accdb" End Function

الحمد لله .. هذا افضل .. هكذا تعلمنا .. بالمحاولة والبحث

شوف الحدث المناسب وضع هذين السطرين Me.Filter = "" Me.Requery مثلا تعمل زر وتسميه : تحديث .... وتضع السطرين في حدث النقر

هذا عيب في في النماذج المستمرة لم تقم ميكروسوفت بمعالجته وليست المشكلة في التصفية فقط فهي محلولة ، ولكن المشكلة بعد التصفية والانتقال الى الى سجل آخر الطريقة هي التحايل بوضع مربعات نص تأخذ القيمة وهذه طريقة اخرى لأستاذنا محمد طاهر  يمكنك تجربتها

تجد ادناه في المرفقات خطوط خاصة بقارىء الباركود + المكتبة : لتفعيل ظهور خطوط الباركود في مربع الاداة أولا : انسخ جميع ملفات الخطوط والصقها في مجلد الخطوط في وندز ثانيا : طريقة تسجيل الاداة barcodex.ocx في الويندوز ليقبلها الاكسيس للنظام 32 بت 1. قم بنسخ الاداة الى مجلد C:\WINDOWS\system32 2. اذهب الى ابدأ واختر تشغيل وضع هذا الامر regsvr32 "C:\WINDOWS\system32\barcodex.ocx" للنظام 64 بت 1. قم بنسخ الاداة الى مجلد C:\WINDOWS\sysWow64 2. اذهب الى ابدأ واختر تشغيل وضع هذا الامر regsvr32 "C:\WINDOWS\sysWow64\barcodex.ocx" regsvr32 "C:\WINDOWS\system32\Acropdf.dll" 3. اضغط موافق وسيتم تسجيل الاداة وظهور رسالة تفيد بنجاح عملية التسجيل Barcode.rar

مختصر مفيد بدلا من كتابة رقم المنتج داخل الحقل يدويا والنقر على انتر للانتقال الى حقل آخر قارىء الباركود : يقرأ خطوط الباركود على الملصق/ ويحولها الى رقم / ويلصقها في الحقل/ وينقر انتر نيابة عنك ليس هناك برمجة ولا اكواد ... فقط تضيف المكتبة الخاصة في النظام فقط ابحث في المنتدى بكلمة باركود وستحصل على ملف المكتبة . barcodex.ocx

بالنسبة لموضوع الاستاذ احمد قلت يمكن الاكتفاء بجدول واحد لان الاجراء المتخذ هو عبارة عن تحويل مالي فجميل ان يكون ضمن السجل لان الطلبية فريدة والتحويل المالي فريد