• الإعلانات

    • فيصل الحربي

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

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

nacer_alger

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

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

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

كل شيء نشر بواسطة nacer_alger

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

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

    شكرااستاد الفهري سوف اطبق 
  20. السلام عليكم  لدي جدول فيه بيانات لاشخاص وكل شخص مرتبط مع جدول آخر  كيف احذف سجل الشخص مع كل ارتباطاته  عن طريق زر حدف  شكرا  
  21. سلام عليكم هل من الممكن نشر برنامجة اكسس على النت يعني رفعه على استضافة  ويستطيع دخول عليه زبون عن طريق النت
  22. سلام عليكم  وجد هدا المثال ليناسب المشروع الدي انا في صدد انجازه وهو برنامج لمواعد الأفراح وجد ان هدا المثال يناسبني ولكن هنا خطئ حولت تعديل لكن لم انجح وهدا الخطئ متمثل في  بعض الأيام عند الضغط عليها لا تعمل في اجندا  ارجو اخد بطلبي للأني بحاجة للمساعدة    مواعيد افراح.rar
  23. سلام  كيف تجعل برنامج اكسس يعمل على نظام اندرويد
  24. اخفاء واضهار صفحات ONGLE

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