• الإعلانات

    • فيصل الحربي

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

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

nacer_alger

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

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

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

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

1 عادي

1 متابع

عن nacer_alger

  • الرتبة
    عضو
  1. سلام عليكم عندي تقرير اريد انشاء فيه حقلب يجلب لي قيمة رقمية من استعلام الى هدا التقرير اي الحقل  لكن بشرط ان تكون هده القيمة تساوي رقم الفاتورة في هدا التقرير  مثلا حقل الدي في استعلام اسمه a الدي فيه القيمة واستعلام اسمه facture ورقم المعرف في استعلام هو n contrat  اما التقرير رقم الدي في الفتورة هو اسمه n facture يعني  n contrat = n facture    
  2. الافادة يكون  هذا النموذج الفرعي عند الفتح سجل جديد لكن شرط ان يكون فيه نفس رقم معرف في نموذج رئيسي 
  3. سلام عليكم ممكن كود لفتح نموذج فرعي عن طريق زر امر  بنفس رقم موجود في نموذج الرئيسي   
  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)) * 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    
  5. سلام عليكم اريد عمل تحديث لكمية الدنيى للصناف في المخزن مثلا اكتب قيمة في حقل اسمه كمية الدنيى  10 وهده القيمة لا يتجاوزها  المخزن وعندما اريد ان اغير هده القيمة مثلا كمية الدنيى 5  لا اريد ان ادخل الى استعلام واغير القيمة اريد ان اكتبها في حقل في نمودج  ىادخط على زر ثم  تحدث  الكمية الدني للمخزن وهكدا يعني اكتب قيمة واضغط وثحدث لجميع الأصناف وشكرا
  6. سلام عليكم اريد كود في استعلام يحسب الكمية حقل ادا كانت بالموجب يجمع وادا كانت بالسالب ينقص  استعملت هدا الكود لكن اريد ان تكونالعملية في نفس الحقل بدل من استعمال حقلين انظر المثال QTE_E2: Somme(VraiFaux([type facture]="retour";[retour]-[Qactual];0)+VraiFaux([type facture]="achat";[Qactual]+[QTE_E];0)) مثلا  ادا كان مربع السرد اسمة type facture = retour ادن حقل retour احسبها بالناقص اي كمرتجع من بضاعة او عكس صحيح يحسبها بزائد ان كانت شراء
  7. سلام عليكم ممكل مساعدتي في حل  هده المشكلة  اريد اضافة صورة في النمودج كاخلفية لكن لم يقبل النمودج  وتخرج لي رسالة اكسس تقول Variable objet ou variable bloc With non définie
  8. سلام عليكم  اريد كود  اضعه في زر امر يجلب لي بينات من اكسل ويضيفها لى في جدول اكسس  يعني عندي جدول فيه بينات في اكسس اريد اضافة بيانات خارجية في اكسل اليه   وشكرا
  9. سلام عليكم ممكن مساعدة في كود اضعه في استعلام يعطيني ارباح لشهر الحالي  جربت هدا الكود لكن يجلب لي المداخيل الشهر الحالي زائد نفس الشهر لسنة الماضية  ان اريد الشهر الحالي من سنة الحالية فقط  وشكرا Expr1: Format([Date de Contrat];"mm") Format(Date();"mm")    
  10. سلام عليكم غرضي من هدا المثال ان اوصل الفكرة واوضح طلبي اريد انشاء مربع سرد الاول فيه عدد الزبائن من 100 الى 1000 ومربع الثاني فيه اكلة بوراك واكلة لحم مفروم كمثال اكلة البوراك مقادير تحضيرها مختلفة عن اكلة الحم المفروم طيب معناه  عندما اختار مثلا 100 زبون في المربع السرد الاول ثم اختار طبق بوراك تظهر لي مقادير التي سجلتها لهدا الطبق مع عدد الزبائن لي هو 100 كشرط وهكدا عندما اختار قيم اخرى تظهر لي على حسب المعطيات التي سجلتها في القاعدة البيانات عدد الزبائن والطبق المختار
  11. سلام عليكم غرضي من هدا المثال ان اوصل الفكرة واوضح طلبي اريد انشاء مربع سرد الاول فيه عدد الزبائن من 100 الى 1000 ومربع الثاني فيه اكلة بوراك واكلة لحم مفروم كمثال اكلة البوراك مقادير تحضيرها مختلفة عن اكلة الحم المفروم طيب معناه  عندما اختار مثلا 100 زبون في المربع السرد الاول ثم اختار طبق بوراك تظهر لي مقادير التي سجلتها لهدا الطبق مع عدد الزبائن لي هو 100 كشرط وهكدا عندما اختار قيم اخرى تظهر لي على حسب المعطيات التي سجلتها في القاعدة البيانات عدد الزبائن والطبق المختار  
  12. فتح نمودج وتصغير اخر

    عندما افتح الشاشة الرئيسية اسمه menu تظهر لي رسالة تخبرني بان هناك سيارة تاخرة عن موعد الرجوع فاضغط على نعم  لرئيتها فيظهر نمودج الدي فيه سيارة المتئخرة خلف الشاشة الرئيسية انا اريد ان يظهر قبل الشاشة الرئيسية لدالك طلبت كود يصغر الشاشة الرئيسية ويبق النودج الدي يبين السيارة المتئخرة في الواجه لكي يراه المستعمل 
  13. اريد كود عندما يفتح نمودج يقوم بتصغير نمودج اخر ليس غلق تصغيره ليظهر في الواجهة  
  14. اختفاء واظهار سيارة  كيفية تحكم في مربع الحوار اختفاء سيارة من القائمة و ظهورها   شرح في النمودج مرفق مع مثال شكرا  كراء سيارات.accdb
  15. حدف سجل مرتبط مع سجل اخر

    شكرااستاد الفهري سوف اطبق