kkhalifa1960

تفضل استاذ @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

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

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

حسب مافهمت من استاذنا @ابوخليل تفضل استاذ @moho58 هذا المرفق انشاء الله بتحصل طلبك . ووافني بالرد baseF-3 .rar

تفضل أخي هذا التغيير بالكود . ووافني بالرد . baseF-2 .rar

مشاركة مع أخي @Foksh تفضل أخي @moho58 المرفق بعد التعديل بطلبك .ووافني بالرد . baseF-1 .rar

أخي @amqadri تخزين الصور بقاعدة البيانات قد يثقلها ويؤدي ذلك لعطلها لذا أقترح عليك هذا المرفق أقرأه بعناية . ووافني بالرد . DDTest1412025.rar

تفضل أخي @al.sheen2000 دوال أول يوم بالشهر .... وآخر يوم بالشهر .... وأول يوم بالسنة .... وآخر يوم بالسنة . Private Sub BtnChangeDate_Click() If Len(Me.Txt1 & "") = 0 Then MsgBox "أدخل التاريخ " Undo Me.Txt1.SetFocus Exit Sub Else 'أول يوم بالشهر Me.Txt2 = DateSerial(Year(Me.Txt1), Month(Me.Txt1), 1) 'آخر يوم بالشهر Me.Txt3 = DateSerial(Year(Me.Txt1), Month(Me.Txt1) + 1, 0) Dim inputDate As Date Dim inputYear As Integer Dim lastDayOfYear As Date Dim firstDayOfYear As Date inputDate = CDate(Me.Txt1.Value) inputYear = Year(inputDate) ' Extract the year from the date 'أول يوم بالسنة firstDayOfYear = DateSerial(inputYear, 1, 1) ' Calculate the first day of the year Me.Txt4.Value = firstDayOfYear 'آخر يوم بالسنة lastDayOfYear = DateSerial(inputYear, 12, 31) ' Calculate the last day of the year Me.Txt5.Value = lastDayOfYear End If End Sub

تفضل أخي @dd13901390 مرفق عملته للتجريب إذا كان هذا طلبك بطبقه على مرفقك . DDTestPermissions.rar