ابوخليل

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

ممكن فاذا لديك الهمة لتتعلم اكتب هنا : 1- البيانات التي يتم ادخالها 2- المخرجات التي يتم عرضها

عليكم السلام ورحمة الله وبركاته If Not IsNull(DLookup("wexdate", "wexpen", "wexdate=form!wexdate and wexname=form!wexname")) Then MsgBox "التاريخ مكرر" Undo End If تكرار المصاريف2.accdb

"UPDATE ZetMotor SET ZetMotor.Filter = [Forms]![frmZetMotor]![Fliter] where ZetMotor.CodeSayara = [Forms]![frmZetMotor]![CodeSayara]"

DoCmd.RunSQL "INSERT INTO Table1 ( check2 )SELECT [forms]![Form1]![Check1] AS Expr1" غير في التسميات كما عندك : الجدول والحقول على اعتبار check2 هو حقل نعم/لا في الجدول واذا كان نصي ستظهر القيمة -1 او صفر

القيمة في جدول آخر ام في الفورم (غير منضمة) ؟

تفضل تم معالجة الفكرة باستخدام طريقين 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

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