ابوخليل

تفضل تم معالجة الفكرة باستخدام طريقين 1- يفتح التقرير على الاستعلام الجدولي (الداخلي) كمصدر بيانات رئيسي يستقي البيانات من استعلام qrysumthisyear .. وهي بيانات السنة الحالية 2- حقول السنة السابقة في التقرير يتم جلبها من استعلام qrysumLastyear باستخدام الدالة DlookUp قد تلاحظ ثقلا قليلا عند فتح التقرير ولكنه يعد سريعا جدا فيما لو استخدمنا الدالة لجميع الحقول عملت لك نموذجا يجب ان يكون مفتوحا قبل فتح التقرير يشتمل على حقلين قيمتهما الافتراضية العام الحالي/العام المنصرم ... وهما المعيار لاستعلامي التحديد اتمنى ان يحقق حاجتك مثال3.accdb

صحيح 24 ولكن حقيقة هي 12 شهر مكرر اعتقد يمكن تحقيق طلبك داخل التقرير باستخدام الدوال .. ولكن التقرير سيصبح بطيئا جدا وسيكون هو آخر الحلول .. اخر الطب الكي دعنا نحاول من خلال الاستعلامات حتى لو اضفنا استعلامات اخرى

لا اعلم لماذا وضعت تسميات الاعمدة حتى 24 .. والسنة 12 فقط تفضل تم تعديل رمز التاريخ واختصاره الى رقم الشهر فقط ... لأن السنة موجودة فعلا في عمود مستقل مثال2.accdb

يمكن العمل على نموذج واحد .. وتخصيصه هل هو للحذف فقط ام للادخال فقط ام للقراءة فقط .. عند النقر على احد الازرار : حذف/اضافة/عرض

جميل جدا ... وسنناديك بـــ مبرمج رايق .. بدلا من دروب مبرمج

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

تفقد مكتباتك انظر الصورة وما تم احاطته بالمربع الاحمر هو المسؤول عن مشكلتك لا حظ ان المكتبات لديك ستظهر بالرقم 11 وليس 16 بناء على اصدار اكسس لديك

شوف هذا الموضوع يتحدث عن الاستعلام الجدولي سوف تجد حل مشكلتك فيه باذن الله

بما ان عنوان الموضوع متفرد حيث يمكن البحث عنه وايجاده بسهولة مشاركة مع اخي موسى لإثراء الموضوع في المرفق يتم اخذ نسخة احتياطية كل اسبوع عند فتح النموذج ، بعد ان يتأكد البرنامج انها غير موجودة اسم النسخة عبارة عن : السنة + رقم الاسبوع خلال هذه السنة يتم البحث عن النسخة داخل المجلد .. وهنا نستغني عن الجدول لتسجيل النسخة Dim DBOld As String Dim DBNew As String Dim tstfile As Integer Dim frmtName As String '-------------------------------- Sub tstBakUp() Dim i, ii i = frmtName Dim MyFSO As New FileSystemObject, Pth As String, Fo As Folder, Fn As File Pth = CurrentProject.Path & "\tst" Set Fo = MyFSO.GetFolder(Pth) For Each Fn In Fo.Files If ii = i Then tstfile = 1 ii = MyFSO.GetBaseName(Fn) Next Fn End Sub '------------------------------------- Private Sub Form_Load() frmtName = Year(Date) & Format(DatePart("ww", Date), "00") DBOld = CurrentProject.Path & "\db1_Data.mdb" DBNew = CurrentProject.Path & "\tst\" tstBakUp If tstfile = 1 Then Exit Sub Else cpyDatbs End If End Sub '---------------------------------------- Sub cpyDatbs() On Error Resume Next Dim OldFile As String, DBwithEXT, DBwithoutEXT, NewFile As String, CopyMyDB OldFile = DBOld DBwithEXT = Dir(OldFile) DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) Application.SetOption "Use Hijri Calendar", False NewFile = DBNew & "\" & frmtName & ".mdb" CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 Me.Requery Exit Sub End Sub نسخة احتياطية كل اسبوع.rar

من اجل هذا سألته فهو لا يريد ان يتم فتحه على جهاز آخر يوجد حلول اخرى بعيدا عن رصد القيمة في الجدول مثلا : عند التشغيل على جهاز آخر يطالبه البرنامج بادخال رقم آخر خاص تأكيدا على انه هو المالك او استخدام (الفلاشة) لهذا الغرض والافضل هو الحل الخاص بالتوزيع التجاري وهو كالتالي : على اعتبار كل جهاز له رقم العتاد الخاص ( المعالج او القرص الصلب او اللوحة الأم ) فيجري على الرقم هذا او جزء منه عملية رياضية ينتج عنها رقم خاص .. يطالبه البرنامج بادخالها عند ادخالها في فورم التسجيل يقوم البرنامج بلصقها في حقل في الجدول ويتم الفتح عند كل فتح للبرنامج يقوم البرنامج بتفقد القيمة المرصودة يمكنك ان تقول : اذا عرفت الرقم الناتج يمكنني اكتشاف المعادلة صحيح ، لهذا يلجأ البعض الى الاستعانة بمعلومة خارجية تسجل على الجهاز يبحث عنها البرنامج عند الاقلاع يتم رصد هذه المعلومة عند التسجيل اول مرة ومع ذلك لا يوجد حماية كاملة .. للعلم .. هناك برامج خاصة يمكنها تتبع وتسجيل مايقوم به البرنامج عند الاقلاع

Private Sub Form_Load() Dim i i = GetUUID If i <> "1B059FC0-5BCB-11D9-935A-F46D047AEF8C" Then MsgBox "لا يحق لك الدخول" DoCmd.Quit Else Exit Sub End If End Sub استبدل رقم الـــ UUID الظاهر بالرقم الخاص بجهازك ... يجب ان يكون بين علامتي التنصيص صيانة2.rar

انت تريد هذه الخدمة لك انت فقط .. اي على جهازك ؟؟ ام انك تريدها تجارية كل مشتري له رقمه الخاص ؟؟؟ اذا تريدها خاصة لك : فارفق ملفك

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

مكان الملف انت الذي تحدده داخل الكود في الكود اعلا موجود داخل القوسين : (CurrentProject.Path & "\ashraf.txt") اي ان الملف موجود بجانب قاعدة البيانات ... يمكنك تغيير مكان الملف على قرص C مثلا وتعدل ما بين القوسين الى : ("C:\ashraf.txt") او ("C:\WIDOWS\ashraf.txt") وتلصق الملف داخل مجلد وندوز وهكذا ..... آمل انك فهمت الفكرة

يحدث هذا غالبا اذا تم التشغيل باستخدام الارتباط التشعبي اعرض هنا الكود المسؤول عن فتح الملف

تفضل هذا مثال على غرس ملف فك الضغط عن المرفق تجد بجانب قاعدة البيانات ملف باسم ashraf.txt سيتم فتح البرنامج بشكل عادي .... حاول حذف الملف او تغيير اسمه ثم حاول فتح البرنامج Dim iFile Set iFile = CreateObject("Scripting.FileSystemObject") If iFile.FileExists(CurrentProject.Path & "\ashraf.txt") = False Then MsgBox "غير مصرح لك بالدخول .. سيتم غلق البرنامج " DoCmd.Quit Else MsgBox "مرحبا" End If xfolder.rar

ينفع ليه لا ؟ جرب وحاول .. هناك مائة طريقة وطريقة للحماية 1- كتابة الشفرة داخل محرر الفيجوال ( ثم تحويل الملف الى mde او accde 2 - كتابة الشفرة في الجدول وتشفيرها 3- غرس ملف داخل نظام ويندوز يبحث عنه البرنامج عند الاقلاع فإن وجده فتح 4- البحث عن شفرة معينة داخل ملف في النظام 5- تسجيل قيمة ومفتاح في الريجستري يتعرف عليها البرنامج عند الاقلاع وغيرها الكثير من الطرق المعروفة والخاصة غير المعروفة ، بمعنى انه يمكنك ابتكار طريقة خاصة بك

تم اكمال المثال حسب الأمر بالتسلسل واكتفيت بالصور والمستندات فقط آمل من اخواني التجربة وارسال مرفق لأكثر من شخص ، والافادة بالنتيجة لتفادي المشكلات ان وجدت واعتماده كما اطلب من اخوتي الخبراء فحص الزمن ( sleep) وضبطه ان لزم حتى تظهر عملية الارسال انسيابية محكمة .. لانه حاليا ومن مشاهدتي يوجد تفاوت في السرعة والبطء خلال تنقل الأمر sendwatsWeb2.mdb

نعم هو يفتح صفحة جديدة ولكنه يفتح على الحساب نفسه ولا يطلب تصديق من الهاتف ... هذا ما يحدث عندي ايضا الارسال لعدة اشخاص يعمل بشكل جيد .... ايضا هذا ما يحدث عندي الأمر العجيب والذي توقفت بسببه والذي آمل اعانتي عليه هو كالتالي : واتساب يقبل لصق الصورة ( وليس المستند) مباشرة ، اي انني انسخ من اي مكان من الكمبيوتر والصقها في مربع الرسالة فتظهر ثم انتر ويتم الارسال ولكن المشكلة هي خلال فترة عمل الكود .. لا يقبل اللصق بتاتا لا من الكود ولا من لوحة المفاتيح مباشرة اذا انتهى وقت الكود يمكن اللصق ... وهذا الذي ابحث عن سببه والحلول ان وجدت لهذا ذكرت في مشاركتي السابقة انني سوف اضطر الى ضبط الكود على الارسال المتسلسل والموجود في آخر تطبيق لك ( بعد ارسال الرقم / وارسال الرسالة النصية /يفتح قائمة الانواع / يختار نوع / يفتح مربع حوار الملفات / يلصق امتداد ومسار الملف/ انتر للادخال/ انتر للارسال . فكرتي هي النسخ واللصق مباشرة بعد الرسالة النصية

التعامل مع الاستعلام الجدولي محدود .. لذا يصعب تطبيق فصل الجمع على مستوى افقي انظر كيفية الفصل في المثال .. اصبح لكل منتج سطر حسب السنة نستطيع القول انهما استعلامان ضمن استعلام واحد تستفيد من توظيفه جيدا في التقرير اذا تم العرض حسب المنتج بمعنى الاستعلام عن منتج محدد خلال السنتين على مستوى المحافظات ايضا يمكن جلب القيم منه الى خلايا غير منضمة بمعلومية ( السنة / المحافظة / المنتج ) مثال اوفيسنا اجمالي المبيعات الشهرية3.mdb

تفضل عملت لك استعلام جدولي يحقق طلبك انظر في مصدره الذي هو استعلام تحديد وكيف تم تصفية الشهور والسنين وانظر المعيار الذي حدد هذه السنة والتي قبلها فقط مثال اوفيسنا اجمالي المبيعات الشهرية2.mdb

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

ليس في الكود شيء يخص كلمات المرور وحتى تصيد مكان الخطأ اغلق الاسطر الخاصة بالتعامل مع الاخطاء ثم جرب .. سوف يقف على السطر المسؤول ............. اما بالنسبة لعمل الخطوة التالية وهي اضافة المرفق فيبدوا انه استعصى علي التنفيذ بالطريقة المختصرة التي افكر فيها ( النسخ واللصق ) لذا انا مضطر لتنفيذ الفكرة على الطريقة المتسلسلة كما هو الحال في آخر نسخة في هدية الاستاذ موسى

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

عندنا مثل يقول : تلقمه العنان ويلقم يدك يغلق xxx