الساحة البريدية

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

ادخل على الجدول الخاص بالدول ، واكتب جميع الدول التي تتعامل معها في عمود الدول ، ومقابل كل دولة اكتب القارة التي تتبع لها في عمود القارات

ارفق مثال علشان نشوف لو نقدر نعدل عليه

الكود يقوم بتعديل الريجستري يعني اول ما تشغل برنامجك تطلع لك رسالة تحذير الامان ، واذا ضغطت موافق يفتح نموذجك ويبدأالكود بتعديل الريجستري ، واذا قفلت البرنامج وشغلته مرة أخرى لا تظهر لك رسائل امان هذا الموديول : Option Compare Database Option Explicit 'ÇÎÝÇÁ ÔÇÔÉ ÇáÇßÓÓ' Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long Dim dwReturn As Long Public Const acHide = "Hide" Public Const acShow = "Show" Public Const acMinimized = "Minimize" Const SW_HIDE = 0 Const SW_SHOWNORMAL = 1 Const SW_SHOWMINIMIZED = 2 Const SW_SHOWMAXIMIZED = 3 Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Public Function fAccessWindow(Optional Procedure As String, Optional SwitchStatus As Boolean, Optional StatusCheck As Boolean) As Boolean If Procedure = "Hide" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) End If If Procedure = "Show" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If If Procedure = "Minimize" Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMINIMIZED) End If If SwitchStatus = True Then If IsWindowVisible(hWndAccessApp) = 1 Then dwReturn = ShowWindow(Application.hWndAccessApp, SW_HIDE) Else dwReturn = ShowWindow(Application.hWndAccessApp, SW_SHOWMAXIMIZED) End If End If If StatusCheck = True Then If IsWindowVisible(hWndAccessApp) = 0 Then fAccessWindow = False End If If IsWindowVisible(hWndAccessApp) = 1 Then fAccessWindow = True End If End If End Function وفي حدث عند فتح النموذج : fAccessWindow acHide, False, False وتنشئ موديول جديد تحت اي اسم : Global Const NM_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Sub NHidwindow() Dim NMC As Long NMC = apiShowWindow(hWndAccessApp, NM_HIDE) ' Regards Naser Masarwa

يعين قصدك لما تختار اسيا يطلع لك الدول اللي في آسيا ؟ اذا هذا قصدك شوف الملف المرفق تصفية بمربع قائمة.rar

الله يجزاك كل خير يا ابو خليل على المساعدة الطيبة هذا الكود يفتح خيارات الطابعة ،، والمطلوب فتح نافذة مهام الطباعة العالقة ليتم حذفها ، بدلا من الذهاب إلى لوحة تحكم الطابعة لقد قمت بتبديل الحرف ( P ) إلى الحرف ( O ) وحصلت على ما أريده ، بتوفيق الله ، ثم بجهودكم ومساعدتكم لنا

مازلت أبحث عن الطريقة

السلام عليكم وجدت هذا الكود : Shell "RUNDLL32 SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder", vbNormalFocus ولكنه يفتح مجلد الطابعات ،، شيء جيد ولكني أريد الكود يدخلني على الطابعة نفسها ، وهي اسمها : BIXOLON SRP-350III يعني بدل ما يفتح لي مجلد الطابعات وانا انقر مزدوج فوق الطابعة BIXOLON SRP-350III لفتح خياراتها ، أريده تلقائيا يدخلني على الطابعة لو سمحتوا ومن جهتي سوف أبحث إن شاء الله وإذا وجدت نتيجة سوف انشرها للفائدة

السلام عليكم ورحمة الله وبركاته وتقبل الله صيامكم وقيامكم لو فرضنا أن كود تشغيل الالة الحاسبة الملحقة بوندوز هو : On Error GoTo Err_Calculator_Click Dim stAppName As String stAppName = "C:\WINDOWS\system32\spool\DRIVERS\x64\3" Call Shell(stAppName, 1) Exit_Calculator_Click: Exit Sub Err_Calculator_Click: MsgBox Err.Description Resume Exit_Calculator_Click فما هو الكود الذي يفتح لوحة التحكم الخاصة بالطابعة ؟؟ أحيانا اريد فتح تحكم الطابعة لكي ألغي المستندات العالقة فأريد تخصيص زر في فورم أضع فيه الكود الذي يفتح لي لوحة تحكم الطابعة الافتراضية لو سمحتوا وجزاكم الله خيراً

بيض الله وجهك يا دكتور الأكسس لكن ليش مربع النص يمسح الرقم ( 9 ) لأول رقم جوال في القائمة ؟ عدلت الكود : AllTel = Right(AllTel, Len(AllTel) - 2) AllTel = Right(AllTel, Len(AllTel) - 1) وضبط

او عطني طريقة لدمج ارقام الهواتف من حقل في جدول إلى مربع نص

طيب يا أبو خليل ، النموذج اللي أنت عدلت عليه ما يمكن انه يجلب أرقام جديدة من قاعدة البيانات أو من نموذج إدخال maysoon.rar

السادة فطاحلة الأكسس ياليت التعديل على المثال اللي انا رفعته ، ما قدرت انقل الأكواد

الله يجزاك خير .. كان ودي التعديل يكون على المثال اللي أنا ارفقته ، علشان يسهل علي إكمال مهمتي وفقني الله وإياكم لكل خير

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

ممتاز بارك الله فيك

الله يجزاك خير يا أبو خليل على جهودك والله اضطريت ارسل بيانات التاريخ للجدول بهذه الصيغة : rs!mnth = Year([current_month]) & "/" & (Month([current_month])) ولما اجلب البيانات من الجدول بالاستعلام عن الشهر والسنة ، ضبطت الحمد لله

السلام عليكم ورحمة الله وبركاته عندي نموذج فرعي يحتوي على البيانات التالية : رقم الهوية اسم المشارك المبلغ المدفوع تاريخ الدفع وعندي نموذج رئيسي يحتوي على مربع سرد فيه الشهور من يناير إلى ديسمبر ( 2016 ) اللي احتاجه أطال الله في أعماركم على الخير اذا اخترت أي شهر من القائمة ، يعرض لي النموذج الفرعي العملاء اللي دفعوا في هذا الشهر فقط كيف يكون الربط ؟ لان حقل التاريخ في الفرعي يحتوي على اليوم والشهر والسنة .. مثال : رقم الهوية : 123458 اسم المشارك : محمد أحمد المبلغ المدفوع : 1500 ريال تاريخ الدفع : 16-05-2016 أنا ربطت حقل ( تاريخ الدفع ) في الفرعي مع ( قائمة الشهور ) في الرئيسي ولكن لما اختار مثلا ( مايو / 2016 ) ما يظهر لي سجل : محمد أحمد لان لابد يكون الحقل في النموذج الرئيسي يحتوي على التاريخ 16-05-2016 حتى يظهر لي السجل في الفرعي واعتذر لاني اشغلتكم ، بارك الله فيكم ونفع بعلمكم واثابكم خيرا

جزاكم الله خير ، سوف اقوم بالتجربة ، واوافيكم بالنتيجة ان شاء الله

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

وفب هذه الحالة ، لو تكرر الاسم لوحده أو الشهر لوحده ، يمكن ذلك ؟

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

اولا بيض الله وجهك ، ووفقك لكل خير هناك بعض المشكلات في حال تم تحويل الحقل id_no إلى نص وتم تعديل الدالة تظهر رسالة خطأ : ( خطأ في بناء الجملة ( عامل التشغيل مفقود ) في تعبير استعلام id_no10331 Y = Nz(DLookup("mnth", "salary", " 'id_no='" & Me.id_no), 0) حيث salary اسم الجدول ( قاعدة البيانات ) mnth : حقل الشهر في الجدول id_no : حقل رقم الهوية في الجدول Me.id_no : حقل الهوية في النموذج وفي حال تعديل نوع الحقل id_no إلى رقمي ، تظهر الرسالة التالية : نوع بيانات غير مطابق وأخيرا ، اكتشفت أنه اذا اضفنا عملية دفع في شهر ( مايو ) مثلا ، تنجح عملية الدفع ، ولو اردنا أن نكرر الدفع في نفس الشهر ( تظهر رسالة ان الشخص سدد ) ولحد الان ممتاز طيب اذا دخل شهر يوليو ، ( طبعا للجربة أنا عدلت تاريخ النظام في الكمبيوتر ) وضغطنا زر الدفع تنجح عملية الدفع ، ولو ضغطنا على الزر في نفس الشهر مرات عديدة يقوم الكود بتكرار عملية الدفع ، وهنا المشكلة لمزيد من الايضاح ، أرجو النظر إل الصورة :

بانتظارك الله يوفقك لكل خير

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