nacer_alger

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

شكرا على الرد 

سلام عليكم   قمت بتطوير برامج في أكسس هدا من فضل الله ثم الفضل يعود بحثي في المنتديات مثل هدا المنتدى الجميل.   قمت ببرمجة برامج كلها تفعل برقم الهرد ديسك الطريقة المعروفة عند المبرمجين وسف أضع الكود المستعمل أمور تعمل بشكل جيد عندما يكون حاسوب واحد  يعني يعطيني رقم الهرد ديسك و واضع كود التفعيل ويفعل البرنامج المشكلة هي عندما افعل البرنامج في حاسوب السرفر ياخد هرد دسك السرفر وعندما ادهب الى حاسوب الثاني المتصل بسرفر وافتحه يطلب التفعيل من جديد وعندما افعل الحاسوب الثاني السرفر يطلب التفعيل من جديد  ايظا اي الكود ياخد هرد ديسك واحد اخير لا اكثر وهده مشكلة عندما يطلب منك شخص ان تضع برنامج في شبكة داخلية مشاركة البرنامج اكثر من حاسوب فوجت أن هدا الكود لا يناسب فهل من طريقة أخرى  يعني انأ أريد عندما أقوم بمشاركة البرنامج في شبكة داخلية افعله مرت واحد في السرفر باقي الحواسيب  المتصلة لا تطلب مني التفعيل الاستفادة روابط لي برامجي برنامج كراء السيارات   كود المستعمل   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    

 

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

اريد تصفية قيم متشابهة في عمودين nombre1 nombre2 في نفس الجدول بشرط ان تكون القيمتين المحددتين  واحدة لها علامة  c  و الثانية لها علامة  d في عمود type ثم عند اجاد هده القيم المتشابهة  اقوم بمسحها كليا وتبقى القيمة الغير متشابهة في العمودين nombre1 nombre2 هدا مثال بصamin acc .accdbور  amin fini .accdb

السلام عليكم ممكن تفعيل برنامج اكسس عن طريق فلاش ميموري  معناه اريد البرنامج  ان يفعل على الفلاش بدل من الهرد ديسك ويعمل في الفلاش في اي حاسوب اخر   انا استعمل هدا الكود لتفعيل البرنامج على هرد ديسك  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     اريده على الفلاش  ممكن مساعدة ادا امكن

سلام عليكم عندي تقرير اريد انشاء فيه حقلب يجلب لي قيمة رقمية من استعلام الى هدا التقرير اي الحقل  لكن بشرط ان تكون هده القيمة تساوي رقم الفاتورة في هدا التقرير  مثلا حقل الدي في استعلام اسمه a الدي فيه القيمة واستعلام اسمه facture ورقم المعرف في استعلام هو n contrat  اما التقرير رقم الدي في الفتورة هو اسمه n facture يعني  n contrat = n facture    

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

سلام عليكم ممكن كود لفتح نموذج فرعي عن طريق زر امر  بنفس رقم موجود في نموذج الرئيسي   

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

سلام عليكم اريد كود في استعلام يحسب الكمية حقل ادا كانت بالموجب يجمع وادا كانت بالسالب ينقص  استعملت هدا الكود لكن اريد ان تكونالعملية في نفس الحقل بدل من استعمال حقلين انظر المثال QTE_E2: Somme(VraiFaux([type facture]="retour";[retour]-[Qactual];0)+VraiFaux([type facture]="achat";[Qactual]+[QTE_E];0)) مثلا  ادا كان مربع السرد اسمة type facture = retour ادن حقل retour احسبها بالناقص اي كمرتجع من بضاعة او عكس صحيح يحسبها بزائد ان كانت شراء

سلام عليكم ممكل مساعدتي في حل  هده المشكلة  اريد اضافة صورة في النمودج كاخلفية لكن لم يقبل النمودج  وتخرج لي رسالة اكسس تقول Variable objet ou variable bloc With non définie

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

سلام عليكم ممكن مساعدة في كود اضعه في استعلام يعطيني ارباح لشهر الحالي  جربت هدا الكود لكن يجلب لي المداخيل الشهر الحالي زائد نفس الشهر لسنة الماضية  ان اريد الشهر الحالي من سنة الحالية فقط  وشكرا Expr1: Format([Date de Contrat];"mm") Format(Date();"mm")    

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

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

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

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

اختفاء واظهار سيارة  كيفية تحكم في مربع الحوار اختفاء سيارة من القائمة و ظهورها   شرح في النمودج مرفق مع مثال شكرا  كراء سيارات.accdb

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

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

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

سلام عليكم  وجد هدا المثال ليناسب المشروع الدي انا في صدد انجازه وهو برنامج لمواعد الأفراح وجد ان هدا المثال يناسبني ولكن هنا خطئ حولت تعديل لكن لم انجح وهدا الخطئ متمثل في  بعض الأيام عند الضغط عليها لا تعمل في اجندا  ارجو اخد بطلبي للأني بحاجة للمساعدة    مواعيد افراح.rar

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