kkhalifa1960

افتح التقرير من الفورم نتحصل طلبك .!!!!!!!!

استاذ @فؤاد الدلوي . 1- اذهب هنــــــا وسدد ب تمت الاجابة . 2- تفضل طلبك بالمرفق التالي . ووافني بالرد . 3- اذا كان هذا طلبك ايضاً سدد بـ تمت الاجابة . وشكراً . test (112).rar

استاذ @تامر خليفه إذا حبيت تستبدل الأسماء تفضل . انتبه أنا وضعت اسمك ولكن يمكنك التغيير .................... وواقني بالرد . تفضل المرفق . DDTempTest 002.rar

مشاركة مع الاساتذة تفضل استاذ @تامر خليفه هذا المرفق واليك الشرح التالي :- ووافني بالرد . DDTempTest 001.rar

أتمم بالضغط على الزر تمت الاجابة .

أتمم بالضغط على زر تمت الاجابة .

تفضل استاذ @amqadri المرفق بعد التعديل بطلبك .ووافني بالرد . inv_112.rar

تفضل استاذي المرفق بعد العديل حسب مافهمت . ووافني بالرد . مثال المستخدم سامي كلمة السر 3 لكل المستخدمين-2.rar

تفضل استاذ @فؤاد الدلوي المرفق حسب ما فهمت . ووافني بالرد . test (1111).rar

تفضل استاذ @amqadri المرفق بعد التعديل بطلبك .ووافني بالرد . inv_111.rar

استاذ @سلمان الشهراني ممكن استخدام هذه الفكرة كما بالمرفق لكن ماينفع معها علاقات . جرب زياد ادخالات .ووافني بالرد . Zakat-1.rar

بعد اذن استاذي @ابوخليل ..... تفضل أستاذ @fuadco طلبك حسب مافهمت بالمرفق بعد الاضافة والتعديل . ووافني بالرد . مثال المستخدم سامي كلمة السر 3 لكل المستخدمين-1.rar

مافهمت ايش المطلوب وحدد أي فورم وصب فورم تريد للعمل عليهم .؟

تفضل أخي @moho58 طلبك بالمرفق . BASEM-2.rar

مو فاهم ايش المطلوب ؟؟

أكتب بجوجل تعليم أكسس بيطلع لك كل شئ من مبتدئ حتى متقدم ............ أخوك بو طارق

مشاركة مع استاذي @Eng.Qassim اليك استاذ @moho58 محاولتي حسب مافهمت . ووافني بالرد . BASEM-1.rar

أخي @أبو أحمد الطلبات الجديدة متفقين ومافي مشكلة وأما القديمة . أنا برمجتهم حسب ماكانوا موجودين الجزء 1 حسب الكلمة أو الرقم أما الجزء 2 يبحث بجميع الحقول . اختار مايناسبك منهم .

تفضل أخي @أبو أحمد المرفق بعد التعديل ............... الطلبات الجديدة والقديمة . ووافني بالرد . قاعدة بيانات-3.rar

تفضل استاذ @محمد التميمي . Private Sub Comannd187_Click() Dim strFilePath As String Dim strFileName As String strFileName = "66.PDF" strFilePath = "D:\Pictures\NEW\" & strFileName If Dir(strFilePath) <> "" Then ' استدعاء أداة سطر الأوامر للطباعة Dim strPrinterCommand As String strPrinterCommand = """C:\Program Files\SumatraPDF\SumatraPDF.exe"" -print-to-default """ & strFilePath & """" ' تنفيذ الأمر للطباعة Call Shell(strPrinterCommand, vbHide) Else Beep MsgBox "لا توجد مرفقات يمكن طباعتها" End If End Sub

تفضل استاذ @amqadri المرفق بعد التعديل بطلبك .ووافني بالرد . data (2).rar

تفضل أخي @أبو أحمد المرفق بعد التعديل ............... المربعات المنقوطة بالأحمر . ووافني بالرد . قاعدة بيانات-2.rar

تفضل أخي @أبو أحمد المرفق بعد التعديل بطلبك والنتائج بالاستعلامات . ووافني بالرد . قاعدة بيانات-1.rar

فقط اذهب للتقرير لفورمات الحقل وامسح (#,###.#) .

وأنتم كذلك ...