اشرف

السلام عليكم

موجود في المنتدي ما يرد علي سؤالك انظر الموضوع الاتي

السلام عليكم اخي الفاضل  sabry fahmy

للتحويل كما تطلب لابد من بناء قاعدة البيانات من الاول بمعني نعمل الحداول والنماذج ونحدد الكود اذا احتاج الامر

لو حضرتك عملت (الجدول / الجداول ) وطلبت المساعدة كنت هتلاقي افاضل كتير هيساعدوك ويكملوا معاك

لكن لان حضرتك جديد معانا في قسم الاكسيس فنحن نرحب بك ونتمني ان تتقن الاكسيس وترتبط به

فتفضل اول جزء في طلبك لاني اعتقد انك هتكمل عليها وتبقي قاعدة كبيرة

بحث.accdb

السلام عليكم اخي الفاضل   Connect Gates

فين القاعدة اللي عايز تعدل فيها ؟؟؟؟؟؟؟؟!!!!!!!!!!!!!!!

السلام عليكم اخي الفاضل  Sabry309

حضرتك طالب التعديل علي تقرير في قاعدة البيانات

ولا الصورة ال pdf اللي باعتها

ان كان تقرير في قاعدة البيانات ياريت تبعت الجزء اللي يخص التقرير للتعديل عليه (يعني التقرير مع مصدره جدول - استعلام - .... )

وستجد ان شاء الله المساعدة 

الف مبروك حبيبنا واستاذنا @ابو جودي

السلام عليكم اخي الفاضل   Eng.Qassim

اين الخطأ

1000629010391300 الخطأ ان الرقم اللي انا نسخته سنة الميلاد كان 1001129010391300 معلش خطأ اللصق مني

انما الكود سليم اعد لصق الرقم الصحيح هتلاقي كله تمام

السلام عليكم

مشاركة مع استاذنا jjafferr

نفس النتيجة بس من سكة تانية وان كانت طريقة اخونا الفاضل jjafferr اسهل 

اخي houari-edu

انسخ رقم التعريف الوطني في نفس خانة  سنة الميلاد في الجدول ثم ادهب الي النموذج واضغط انتر (ENTER)

11.accdb

السلام عليكم

تفضل يا اخي نتمني ان يكون ما تطلب

مثال.accdb

اخي العزيز فين التقرير  ؟

السلام عليكم

استاذنا الفاضل بلال اليامين

عدد الساعات ظاهر وكله تمام جهد مشكور لاستاذنا الفاضل 

محمد أبوعبدالله

السلام عليكم اخواني الاعزاء

الكود يفي بالغرض ومعه الرسالة الجديدة تفضل

Database4.accdb

السلام عليكم

اخي الفاضل

ارجو ان يكون طلبك في الرابط الاتي

السلام عليكم

مشاركة مع احبائي الكرام  

ناقل 

عند الضغط علي الزر الاول يختفي الباقي وعند اعادة الضغط عليه يظهر الجميع

 د.كاف يار

عند الضغط علي الزر الظاهر يختفي ويظهر التالي له مع اخفاء الباقي

ومشاركتي و ارجو ان تكون مشاركة مفيدة 

عند الضغط علي اي زر يختفي الباقي وعند الضغط عليه مرة اخري تظهر جميع الازرار

الازرار.accdb

السلام عليكم  ابا جودى

عمل جميل وت

جربة شيقة

السلام عليكم

اتفضل طلبك ان شاء الله مع تعديلات بسيطة

مساهمة مني الي جانب مساهمات اخواني الافاضل

1045801237_.accdb

اخي الفاضل kkhalifa1960

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

السلام عليكم 

اخي الفاضل husamwahab

لك كل التقدير والاحترام علي سرعة الاستجابة هذا هو المطلوب بالضبط وعندما يكتمل البرنامج سأضعه هدية للمنتدي في رأس السنة الميلادية ان شاء الله وكنا من الاحياء

Private Sub Command125_Click()
On Error GoTo err:

   ' Requires reference to Microsoft Office 14.0 Object Library.
Dim fso As Object
Set fso = CreateObject("scripting.filesystemobject")
   Dim fDialog As Office.FileDialog
   Dim varFile As Variant
    Dim destpath As Variant
   ' Clear listbox contents.
   Me.PicPath1 = ""
   Me.PicPath2 = ""
   Me.PicPath3 = ""
   ' Set up the File Dialog.
   Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

   With fDialog

      ' Allow user to make multiple selections in dialog box
      .AllowMultiSelect = True

      ' Set the title of the dialog box.
      .Title = "Please select images"

      ' Clear out the current filters, and add our own.
      .Filters.Clear
      
      .Filters.Add "jpg image", "*.jpg"
      
      
      ' Show the dialog box. If the .Show method returns True, the
      ' user picked at least all files. If the .Show method returns
      ' False, the user clicked Cancel.
      If .Show = True Then

         'Loop through each file selected and add it to our list box.
         For Each varFile In .SelectedItems
         
       
        destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "a." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
           FileCopy varFile, destpath
            Me.PicPath1 = destpath
             destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "b." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
           FileCopy varFile, destpath
            Me.PicPath2 = destpath
              destpath = Application.CurrentProject.Path & "\" & "ashraf" & "\" & Me.PName & "d." & Right$(varFile, Len(varFile) - InStrRev(varFile, "."))
           FileCopy varFile, destpath
            Me.PicPath3 = destpath
            
         Next

      Else
         MsgBox "You clicked Cancel in the file dialog box."
      End If
   End With
   Exit Sub
err:
   MsgBox err.Description & " " & err.Number
End Sub

السلام عليكم اخواني

لدي نموذج لادخال الصور يمكن من خلاله ادخال الصور للقاعدة في مجلد مستقل لكل صورة ذر خاص بها في الخانة التي تعرض امتدادها 

اريد عن طريق ذر واحد ادخال مجموعة صور دفعة واحدة يضع في كل خانة الامتداد لصورة 

وفقت كود ولكن به عيب او مشكله انه ياخذ صورة واحدة من مجموعة الصور المحدددة ويحفظها بامتدادات محتلفة في الخانات الثلاثة

ارجو من الافاضل اصحاب الخبرة تعديل الكود ان امكن لاهميته

مبارك الترقية استاذ صالح ونتمنى لكم النجاح والتفوق دائماً

السلام عليكم

اخي الكريم khaledm123

مشكلتك ( 

تاريخ الاذن ورقم الاذن والبيانات الغير ظاهرة في التقرير 

فعلا مش ممكن تظهر لانك ببساطة لم تضع بيانات لكي تظهر

انظر الي جداولك لن تجد بيانات مضافة 

اخي الكريم 

لقد وضعت لك بعض البيانات وستجد كله تمام

المشكلة ليست في التقرير انما -----

مع خالص تحياتي

مخازن الفرع.rar

البرنامج يعمل معي بشكل رائع ولا وجود لمشاكل

لف مبروووووك أخي Khalf 

السلام عليكم جلال محمد

تصور مادة اللغة العربية جاهز

اكمل اللغة الانجليزية بنفس الطريقة في استعلام جديد وانا ان شاء الله هلم الدنيا علي بعضها

ننكن تنسخ الاستعلام وتغير الاسماء بتاعة العربي للانجليزي

طبها انا عارف ان رصد العملي والمشروع واعمال السنه علي المكشوف والاختبار علي السري

مع اكمال باقي البيانات في الجدول ودي انا هعملها ان شاء الله

كمل زي ما كلبت منك وادينا بنتعلم من بعض

عمدي سؤال علشان معادلة التقدير

من كام لكام امتيار

زجيد جدا

وكدة 

برجاء اضافة اسماء ودرجات للتطبيق والتاكد من صحة النتائج

122.rar

السلام عليكم جلال محمد

مرسل شكل جدول به مادة واحدة اللفة العربية ترم اول وثان

اكمل باقي المواد بنفس الطريقة

في جدول واحد

موجود نمودج للرصد يمكن من افقي لغمودي يعني يبقي زي شيت الاكسل انا عملت الموجود لتجربة الجمع والقسمة والتفدير 

بالتسبة للتفدير من كام لكام يبقي امتيار ................

انا عامل اللي موجود بس للتجربة

اكمل زان شاء الله الموقع والاساتدة الافاضل وانا ان شاء الله معاك 

اسف غن التاخر في الرد فقط لظروف العمل

121.accdb

السلام عليكم جلال محمد

مرسل شكل جدول به مادة واحدة اللفة العربية ترم اول وثان

اكمل باقي المواد بنفس الطريقة

بصراحة مفهمتش الدرحات ماشية ازاي ومين هيتجمع علي مين علشان تطلع 40 او 50 

الموجود في الجدول ما سيتم رصده فيما بعد عن طريق نمودج 

الخانات التي بها اي مجموغ لا نضعها في الجدول انما بعد كدة في استعلام حتي لا نلجأ لخانات ( محسوبة ) حتي لا تتسبب في مشكلات فيما بعد

اكمل الجدول ارفقه 

وان شاء الله نعمل الاستعلام سوا والنمادج والتقارير بس نمشي خطوة خطوة

والله الموفق

121.accdb