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

amir_adam83

03 عضو مميز
  • Posts

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

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

مشاركات المكتوبه بواسطه amir_adam83

  1. 8 ساعات مضت, kkhalifa1960 said:

    أخي الفاضل أنا سويت  Report1 وبه (sub report 5  ) هم ( Report1-1,Report1-2,Report1-3,Report1-4,Report1-5) وباقي عليك عمل الاستعلامات لكل sub  والربط بينهم بالتقرير الرئيسي 

    طبعا لاني مابعرف بارامتراتك في المشروع

    عموما ابدأ ونتواصل :fff:

    storexc1.rar 110.81 kB · 2 downloads

    الله يعطيك الف عافية  على الاستجابة

    سوف اسوي عملية الاستعلام وافادتكم

  2. الاخ الكريم   Kanory

    والاخوه اعضاء المنتدى الجميل كل عام وانتم بخير

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

    نريد ان يجمع كل رقم حركة على حدى 

    مرفق الملف للتعديل علية

    FGHF.rar

  3. السلام عليكم ورحمة الله وبركات

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

    الاستفسار هل من الممكن عمل تطبيق على الموابيل يتم ربطه على انظة الاندرويد او ابل يعني التطبيق اربطه مع قاعدة بيانات اكسس

    شكرا جزيل لكم

  4. في ٦‏/١١‏/٢٠٢١ at 01:25, moamen salem said:

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

     

    https://youtu.be/U89NfVq7moo

     

    في ٣‏/٨‏/٢٠١٩ at 21:25, عبد اللطيف سلوم said:

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

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

    User Name : admin

    Password : 1

    أي رقم سري يواجهكم خلال استخدام البرنامج استعمل 12345

    أي سؤال ان اجاهز 

    Accounting Prog.rar 1.21 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 587 downloads

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

     

    • Like 1
  5. في ٢٣‏/١٠‏/٢٠٢١ at 14:04, moamen salem said:

    السلام عليكم اساتذتي 

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

    https://api.data.gov/

    هنا سوف تجد كل ماتحتاجه عن API

  6. 2 ساعات مضت, يتعلم اكسيس said:

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

    الرصيد .accdb 508 kB · 0 downloads

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

    Balance.mdb

  7. 35 دقائق مضت, DR WALID SALAH said:

     السلام عليكم

    اسعد الله صباحكم 

    فى جدول form  هناك  comment  ارغب باظهاره   تعليق عند ظهور رقم معين 

    الجدول ب  Triglycerides  عند كتابه الرقم اعلى من 500 

    يظهر فى الكومنت  

    increase the risk of heart disease please check for ECG 

    تلقائى بدون كتابه 

    واذا فى اكثر من تعليق اضيف  نفس الشى والا احتاج اعمل خانه ليها ايضا 

    شكرا 

     

    test comment.accdb 640 kB · 0 downloads

     هل هذا ماتريده

    test comment.accdb

  8. 8 ساعات مضت, alkootsh said:

    مطلوب يرنامج حسابات لمحجر مواد البناء انا عملت الجداول الى ممكن تكون مطلوبه 

    عايز حد يساعدنى لتكملة البرنامج بالاكسيس او الاكسيل 

    لاستخراج التقارير وعمل الدوال واستخراج البانات اللازمه

    مرفق الجداولhttps://docs.google.com/spreadsheets/d/1b1TazZ4HW1yHvX1BVBH1zH5-QpchJZ5D/edit?usp=sharing&ouid=100023249478640983657&rtpof=true&sd=true

    جاري تجهيز الجداول

  9. منذ ساعه, فراس سعدي said:

    السلام عليكم ورحمة الله وبركاته في المرفق جدول ما يهمنا حقل باسم استقطاع 5 في حالة الرقم عدد صحيح يبقى كما هو بدون استخدام معادلة او دالة للتقريب اما في حالة يحتوي على رقم عشري مثلا 12.5 يتم تقريبه اما اذا كان 700.1 او 625.2 الكسر العشري يهمل وبارك الله فيكم 

    Database32.rar 15.08 kB · 5 downloads

    هل هذا ماتريده

     

    Database132.rar

    • Like 1
  10. 4 ساعات مضت, ابو مهند شتية said:

    السلام عليكم ورحمة الله وبركاته

    الاساتذه الاعزاء برجاء المساعدة في اعداد كشف حساب من تاريخ الى تاريخ يظهر رصيد بداية الفترة والحركة والرصيد نهاية الفترة مع مراعاة الحسابات التي لا يوجد عليها حركات خلال الفترة المطلوبة ولكن لها رصيد اول الفترة  فيظهر لها رصيد اول واخر الفترة

    ولكم وافر التحية

    ‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‏‫‏‏‏‏‏‏‏‏‫‏‏‫‏‏‏‏‫‏‏‫‫‫‫Yas2021.rar 246.53 kB · 3 downloads

     

     

  11. 58 دقائق مضت, TQTHAMI said:

    السلام عليكم ورحمة الله وبركاته

    اسعد الله اوقاتكم بالخير 

    سؤال هل يمكن تحويل كود الى وحده نمطيه في المثال المرفق 

    وكيف استدعاء الوحده النمطيه اذا امكن 

    وتقبلو تحياتنا

    مرفق ملف

     

    مؤشر.rar 30.81 kB · 12 downloads

     راجع هذا الموضوع ربما تجد ماتبحث عنه

    • Like 1
    • Thanks 1
  12. 1 ساعه مضت, إيمان 2021 said:

    السلام عليكم ورحمة الله وبركاته

    اعمل على تصميم قاعدة بيانات بها أسماء منتجات ومعلومات عن هذه المنتجات.

    بعد ادخال بعض السجلات عن طريق نموذج مرتبط بالجدول الأساسي للمنتجات احتاج ان اوفر للمستخدم طريقة لحذف سجل منتج لم يعد متوفرا  أو منتج لا يحتاجه عن طريق زر يحذف السجل كاملا و يعيد الترقيم التلقائي للمنتجات حيث أن اول حقل لدي في الجدول عبارة عن رقم مسلسل نوعه ترقيم تلقائي (Auto Number).

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

    اتمنى أن يكون استفساري واضحاً

    ارفق مثال 

     

  13. السلام عليكم ورحمة الله

    اساتذتي  الكرام

    لدي جدول به اسماء المنتجات وبه مده المنتج المتفق عليه بمعنى (لدي صنف اسمه معجون طماطم مده صلاحيتة من تاريخ الانتاج لتاريخ الانتهاء وليكن عامين) المده المتفق عليها لاضافته داخل المستودع هي 6اشهر اي 180يوم

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

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

    والمرفق متواجد به كافة الاكواد  ولا اعلم لماذ لا يرحل معي بعد عملية التاكد

    وهاهي الاكواد التي تم عملها 

    Option Compare Database
    Private Sub CmdAdd_Click()
            On Error Resume Next
            DoCmd.SetWarnings False
            DoCmd.RunSQL "INSERT INTO odb_TbleProdWher (odb_ItemCode, odb_ItemNam, odb_DateProdc, odb_DateProdc,odb_DourLI,odb_DouPrd,odb_DourLIPro )" & _
            "SELECT odb_TbleProd.odb_ItemCodex, odb_TbleProd.odb_ItemNamx, odb_TbleProd.odb_DateProdcx, odb_TbleProd.odb_DateProdcx, odb_TbleProd.odb_DourLIx, odb_TbleProd.odb_DouPrdx, odb_TbleProd.odb_DourLIProx" & _
            " FROM odb_TbleProd;"
            DoCmd.SetWarnings True
            MsgBox "تم الحفظ"
            Me.odb_ItemCode = ""
            Me.odb_ItemNam = ""
            Me.odb_DateProdc = ""
            Me.odb_DateProdc = ""
            Me.odb_DourLI = ""
            Me.odb_DouPrd = ""
            Me.odb_DourLIPro = ""
    End Sub
    Private Sub Form_Load()
            On Error Resume Next
            Me.CmdAdd.Visible = False
            Me.odb_ImageY.Visible = False
            Me.odb_ImageN.Visible = False
    End Sub
    Private Sub odb_DouPrd_Enter()
            On Error Resume Next
            Me.odb_DouPrd = DateDiff("d", [odb_DateProdc], [odb_DaetExpir])
    End Sub
    Private Sub odb_DourLIPro_Enter()
            On Error Resume Next
            Me.odb_DourLIPro = DateDiff("d", [odb_DateDayEx], [odb_DaetExpir])
    End Sub
    Private Sub odb_DourLIPro_Exit(Cancel As Integer)
            On Error Resume Next
    If odb_DourLIPro > odb_DourLI Then
            Me.CmdAdd.Visible = True
            Me.odb_ImageN.Visible = True
            Me.odb_ImageY.Visible = False
    Else
            MsgBox "عفوا صلاحية المنتج غير مطابقة لمعيار المده المحدد", vbCritical + vbOKOnly, "عمليات الصرف والاضافه"
            Me.odb_ItemCode.SetFocus
            Cancel = -1
            Me.CmdAdd.Visible = False
            Me.odb_ImageN.Visible = False
            Me.odb_ImageY.Visible = False
    
    End If
    
    End Sub
    Private Sub odb_ItemCode_DblClick(Cancel As Integer)
            On Error Resume Next
            DoCmd.OpenForm "Frm_Prodaction"
    End Sub
    Private Sub CmdClose_Click()
            On Error GoTo CmdClose_Click_Err
            DoCmd.Close , ""
    CmdClose_Click_Exit:
    Exit Sub
    CmdClose_Click_Err:
        MsgBox Error$
        Resume CmdClose_Click_Exit
    End Sub
    Private Sub CmdAddRecord_Click()
            On Error GoTo CmdAddRecord_Click_Err
            On Error Resume Next
            DoCmd.GoToRecord , "", acNewRec
    If (MacroError <> 0) Then
            Beep
            MsgBox MacroError.Description, vbOKOnly, ""
    End If
    CmdAddRecord_Click_Exit:
    Exit Sub
    CmdAddRecord_Click_Err:
           MsgBox Error$
           Resume CmdAddRecord_Click_Exit
    End Sub
    Private Sub Command31_Click()
            On Error GoTo Command31_Click_Err
            DoCmd.GoToRecord , "", acFirst
    Command31_Click_Exit:
    Exit Sub
    Command31_Click_Err:
            MsgBox Error$
            Resume Command31_Click_Exit
    End Sub
    Private Sub Command33_Click()
            On Error GoTo Command33_Click_Err
            DoCmd.GoToRecord , "", acLast
    Command33_Click_Exit:
    Exit Sub
    Command33_Click_Err:
            MsgBox Error$
            Resume Command33_Click_Exit
    End Sub
    Private Sub Command34_Click()
            On Error GoTo Command34_Click_Err
            On Error Resume Next
            DoCmd.GoToRecord , "", acNext
    If (MacroError <> 0) Then
            Beep
            MsgBox MacroError.Description, vbOKOnly, ""
    End If
    Command34_Click_Exit:
    Exit Sub
    Command34_Click_Err:
            MsgBox Error$
            Resume Command34_Click_Exit
    End Sub
    Private Sub Command35_Click()
            On Error GoTo Command35_Click_Err
            On Error Resume Next
            DoCmd.GoToRecord , "", acPrevious
    If (MacroError <> 0) Then
            Beep
            MsgBox MacroError.Description, vbOKOnly, ""
    End If
    Command35_Click_Exit:
    Exit Sub
    Command35_Click_Err:
            MsgBox Error$
            Resume Command35_Click_Exit
    End Sub
    
    

    برجاء المساعده واين يكمن الخطاء 

    شكرا لكم

    odbExe.rar

  14. 2 hours ago, kanory said:

    طيب ...

    جرب المرفق ووافينا بالنتيجة ...

     

    dbo_da_kan.accdb 552 kB · 1 download

    مشاء الله تبارك الله 

    الله يعطيك الف عافية

    هذا بالفعل هو المطلوب

    تم اختبار حذف ارقام بعد رقم 1

    وتم اعادة الترقيم للاقام التى تم حذفها

     

    وتم اختباره على عام جديد يعمل بصوره مائه بالمائه

    وهذا مايطلبه الكثير

    لعله في ميزان حسناتك ان شاء الله

    جزاك الله الف خير

    شكرا جزيل

     

×
×
  • اضف...

Important Information