ابوخليل

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

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

تفقد مكتباتك انظر الصورة وما تم احاطته بالمربع الاحمر هو المسؤول عن مشكلتك لا حظ ان المكتبات لديك ستظهر بالرقم 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

انا اعمل على 2019 الرسالة تتحدث عن ملف مفقود ، ويبدوا انه ملف كروم التنفيذي chrome.exe انظر السطر التالي داخل محرر النموذج وتأكد من ان ملف كروم عندك متوافق مع المسار في السطر فقد يكون في (86) Program Files chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe"""

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

@Ezril كان الأولى بك الاعتذار من الاستاذ خليفة .. و شكر الاستاذ متقاعد على تنبيهك وهذا الذي ننتظره منك الآن اصلحك الله

احببت ان افرد موضوعي هذا بعنوان مستقل 1-لان غالب او جميع الدروس هنا تتعامل مع واتساب ويندوز 2-وحتى يكون تطوير هذا العمل مستقلا ولا يحدث خلط بين الامثلة المثال المرفق تم تطبيقه على واتساب ويب واليكم بعض التوجيهات والملاحظات : كانت مشكلتي في محاولات سابقة انه في كل مرة يتم الارسال وفتح الواتساب ويب .. فانه يطلب ربطا جديدا بالجوال وبحمد الله توصلت الى حل هذه المشكلة التي كانت عائقا حقيقيا .. يكتفى بالارتباط مرة واحدة فقط الآن : عند كل ارسال يفتح الواتس ويب بشاشة جديدة .. فان كانت هناك نسخة مفتوحة من قبل فانه يتجاهلها وتصبح غير فعالة وهذه لا مشكلة فيها لأنه يفتح على الحساب نفسه . ارجوا من اخوتي واحبتي الذين يمرون من هنا تجربة المثال وافادتي بنتيجة التجربة ، من اجل الانتقال الى الخطوة التالية وهي ارسال المرفقات ملحوظة : المرفق sendwatsWebAll .. هو النسخة المحدثة والمطورة بعد أخذ آراء وتجارب الإخوة sendwatsWeb.mdb sendwatsWebAll.rar