• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

nacer_alger

اعضاء
  • عدد المشاركات

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

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

مشاركه بواسطة nacer_alger


  1. السلام عليم

    عندي طلب والمتمثل في

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

    حقل اسمه تاريخ بداية الحجز واختار فيه تاريخ 01/01/2021 وحقل اسمه تاريخ نهاية الحجز 05/01/2021 ثم اختار من حقل نوع السيارة.

    اذا كانت السيارة قد حجزت من قبل بنفس التاريخين تظهر رسالة تنبهني بان هذه السيارة محجوزة من قبل في هذا بن  هذين التاريخين

    0

  2. On 12/06/2020 at 5:20 PM, kh202067 said:
    On 12/06/2020 at 5:20 PM, kh202067 said:

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

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

     

    شكرا على الرد ممكن مثال على داللك

     

     

    0

  3. اريد تصفية قيم متشابهة في عمودين nombre1 nombre2 في نفس الجدول بشرط ان تكون القيمتين المحددتين  واحدة لها علامة  c  و الثانية لها علامة 

    d في عمود type

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

    هدا مثال بصamin acc .accdbور 

    amin fini .accdb

    0

  4. السلام عليكم ممكن تفعيل برنامج اكسس عن طريق فلاش ميموري 

    معناه اريد البرنامج  ان يفعل على الفلاش بدل من الهرد ديسك ويعمل في الفلاش في اي حاسوب اخر  

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

    Private Sub Commande1_Click()
     Dim DB As Database
        Dim rs As Recordset
    Set DB = CurrentDb
        Set rs = DB.OpenRecordset("TBpass")
        If rs.EOF = True Then
           rs.AddNew
           rs!Ser = Me.SERTEXT.Value
           rs!HdNum = Me.HdNum.Value
           rs.Update
           rs.Close
    Else
    rs.Edit
           rs!Ser = Me.SERTEXT.Value
           rs!HdNum = Me.HdNum.Value
           rs.Update
           rs.Close
           End If
    Dim X, x2
    X = Nz((Me.HdNum)) * 13
    x2 = Nz(DLookup("ser", "TBpass"), 0)

    If "'" & x2 & "'" = "'" & X & "'" Then
    DoCmd.Close
    DoCmd.OpenForm "Gestion de location de voiotures"
    Else
    MsgBox "Le Numéro et erroné Demander le Code d'activation", vbYes, "Obtenir le logiciel Contact 0550735799"
    DoCmd.Quit
    End If

    End Sub

    هدا كود لمعرفة رقم الهرد

    Private Sub Form_Open(Cancel As Integer)
    Me.HdNum.Value = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber
    Dim X, x2
    X = Nz((Me.HdNum)) * 13
    x2 = Nz(DLookup("ser", "TBpass"), 0)
    'oui "'" h
    If "'" & x2 & "'" = "'" & X & "'" Then
    DoCmd.Close
    DoCmd.OpenForm "Gestion de location de voiotures"
    Else
    MsgBox "Activé logiciel   (Logiciel commercial) ", vbYes, " Clic sur ok pour activé logiciel"
    End If
    End Sub

     

     

    اريده على الفلاش 

    ممكن مساعدة ادا امكن

    0

  5. سلام عليكم

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

    مثلا حقل الدي في استعلام اسمه a الدي فيه القيمة واستعلام اسمه facture ورقم المعرف في استعلام هو n contrat 

    اما التقرير رقم الدي في الفتورة هو اسمه n facture

    يعني  n contrat = n facture

     

     

    0

  6. سلام عليكم

     

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

     

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

    الاستفادة روابط لي برامجي

    برنامج كراء السيارات

     

    كود المستعمل

     

    Private Sub Commande1_Click()
     Dim DB As Database
        Dim rs As Recordset
    Set DB = CurrentDb
        Set rs = DB.OpenRecordset("TBpass")
        If rs.EOF = True Then
           rs.AddNew
           rs!Ser = Me.SERTEXT.Value
           rs!HdNum = Me.HdNum.Value
           rs.Update
           rs.Close
    Else
    rs.Edit
           rs!Ser = Me.SERTEXT.Value
           rs!HdNum = Me.HdNum.Value
           rs.Update
           rs.Close
           End If
    Dim X, x2
    X = Nz((Me.HdNum)) * 236
    x2 = Nz(DLookup("ser", "TBpass"), 0)

    If "'" & x2 & "'" = "'" & X & "'" Then
    DoCmd.Close
    DoCmd.OpenForm "Gestion de location de voiotures"
    Else
    MsgBox "Le Numéro et erroné Demander le Code d'activation", vbYes, "Obtenir le logiciel Contact le Fournisseur 0550735799"
    DoCmd.Quit
    End If
    End Sub

     

     

    0

  7. سلام عليكم

    اريد عمل تحديث لكمية الدنيى للصناف في المخزن

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

    وشكرا

    0

  8. سلام عليكم

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

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

    QTE_E2: Somme(VraiFaux([type facture]="retour";[retour]-[Qactual];0)+VraiFaux([type facture]="achat";[Qactual]+[QTE_E];0))

    مثلا 

    ادا كان مربع السرد اسمة type facture = retour ادن حقل retour احسبها بالناقص اي كمرتجع من بضاعة او عكس صحيح يحسبها بزائد ان كانت شراء

    0

  9. سلام عليكم ممكن مساعدة في كود اضعه في استعلام يعطيني ارباح لشهر الحالي 

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

    ان اريد الشهر الحالي من سنة الحالية فقط 

    وشكرا

    Expr1: Format([Date de Contrat];"mm")

    Format(Date();"mm")

     

     

    0

  10. سلام عليكم

    غرضي من هدا المثال ان اوصل الفكرة واوضح طلبي

    اريد انشاء مربع سرد الاول فيه عدد الزبائن من 100 الى 1000 ومربع الثاني فيه اكلة بوراك واكلة لحم مفروم كمثال

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

    عندما اختار مثلا 100 زبون في المربع السرد الاول ثم اختار طبق بوراك تظهر لي مقادير التي سجلتها لهدا الطبق مع عدد الزبائن لي هو 100 كشرط

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

    0

  11. سلام عليكم

    غرضي من هدا المثال ان اوصل الفكرة واوضح طلبي

    اريد انشاء مربع سرد الاول فيه عدد الزبائن من 100 الى 1000 ومربع الثاني فيه اكلة بوراك واكلة لحم مفروم كمثال

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

    عندما اختار مثلا 100 زبون في المربع السرد الاول ثم اختار طبق بوراك تظهر لي مقادير التي سجلتها لهدا الطبق مع عدد الزبائن لي هو 100 كشرط

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

     

    0

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

    انا اريد ان يظهر قبل الشاشة الرئيسية لدالك طلبت كود يصغر الشاشة الرئيسية ويبق النودج الدي يبين السيارة المتئخرة في الواجه لكي يراه المستعمل 

    0