اذهب الي المحتوي
أوفيسنا

ناقل

الخبراء
  • Posts

    531
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    1

ناقل last won the day on أكتوبر 31 2021

ناقل had the most liked content!

السمعه بالموقع

418 Excellent

5 متابعين

عن العضو ناقل

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مبتدئ في الأكسس ( أصبر علي )

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. طيب استاذي الفاضل انظر المرفق ربما يوحي لك الفكرة التى اردت ايصالها لك .... Test-1.accdb
  2. لاحظ معي هل تنفعك هذه الطريقة ......
  3. والعناوين كما في الجدول بجوار بعض ... صح ولكن كيف تميز بين المعين على وظيفة هندسية أو ادرارية وغيرها ....
  4. هل الدرجة المقصودة هي المشار اليها في الصورة .... ولماذا الاختيار اذا كانت هي الدرجة ؟؟؟؟ لماذا لاتجعلها تظهر العنوان الوظيفي تلقائيا عند تحديد الدرجة ؟؟
  5. جرب هذا ..... Private Sub B_BeforeUpdate(Cancel As Integer) If DLookup("[العنوان الوظيفي]", "[TP1]", "[ID] =" & [Forms]![form1]![ID] & "") = [Forms]![form1]![B] Then MsgBox "نعم" Else MsgBox "لا" End If End Sub
  6. معليش وحدة وحدة ..... 1- انت تريد تحديث بيانات قاعدة من اخرى صحيح ؟؟؟ 2- اذا كان النقطة 1 صحيحة لاحظ الصورة في الموظف ابراهيم لديه سجلان .... اي السجلات المطلوب نقل بياناتها للقاعدة الاخرى ؟؟؟ 3- سوف نكمل الاحتمالات الاخرى لاحقا !!!!
  7. جرب هذا الكود ربما يفي بالمطلوب Sub PrintPDF() Dim AcroRd32ExePath As String Dim PDFFilePath As String Dim cmd As String ' تحديد مسار تطبيق Adobe Acrobat Reader AcroRd32ExePath = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" ' تحديد مسار الملف PDF الذي تريد طباعته ' هنا نأخذ القيمة من مربع النص TextBox1 PDFFilePath = TextBox1.Value ' إنشاء الأمر الذي سيتم تنفيذه cmd = AcroRd32ExePath & " /n /t " & PDFFilePath ' تنفيذ الأمر Shell cmd, vbHide End Sub
  8. الحمد لله رب العالمين .... واشكرك على هذه الدعوات التي نحتاجها ولك بمثل ما دعوت اخي الكريم هذا ما يحدث قي المرفق الموجود في الموضوع ..... انظر المرفق اضفت كود بسيط لذلك انظر ان جاز لك استخدمه Database1.accdb ملاحظة :::::: حاول عدم استخدام طريقة المرفق داخل القاعدة لأنها تتسبب في تضم القاعدة وقدتتلف .... استخدم طريقة المرفق داخل مجلد بجوار القاعدة ... ابحث عنها في المنتدى أفضل ...
  9. جرب هذا . Private Sub مستندات_القضية_AfterUpdate() Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub Private Sub مستندات_القضية_DblClick(Cancel As Integer) Me.AllowEdits = True End Sub Private Sub مستندات_القضية_Exit(Cancel As Integer) Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub
  10. هههههه .... بدأ جدنا @ابوخليل يتحركش بينا .. لا يهمك استاذ @Moosak ... دائم الاستاذ يزعق على الطالب
  11. باقي احتمال واحد لو تم ادراجه في الحسبان لاكتملت الاحتمالات وهي ماذا لو كان مصدر بيانات الكمبو جدول وليس استعلام ؟؟
×
×
  • اضف...

Important Information