• الإعلانات

    • فيصل الحربي

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

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

nacer_alger

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

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

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

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

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

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

    شكرااستاد الفهري سوف اطبق 
  12. السلام عليكم  لدي جدول فيه بيانات لاشخاص وكل شخص مرتبط مع جدول آخر  كيف احذف سجل الشخص مع كل ارتباطاته  عن طريق زر حدف  شكرا  
  13. سلام عليكم هل من الممكن نشر برنامجة اكسس على النت يعني رفعه على استضافة  ويستطيع دخول عليه زبون عن طريق النت
  14. سلام عليكم  وجد هدا المثال ليناسب المشروع الدي انا في صدد انجازه وهو برنامج لمواعد الأفراح وجد ان هدا المثال يناسبني ولكن هنا خطئ حولت تعديل لكن لم انجح وهدا الخطئ متمثل في  بعض الأيام عند الضغط عليها لا تعمل في اجندا  ارجو اخد بطلبي للأني بحاجة للمساعدة    مواعيد افراح.rar
  15. سلام  كيف تجعل برنامج اكسس يعمل على نظام اندرويد
  16. اخفاء واضهار صفحات ONGLE

    شكرا استاد فهري بارك الله فيك
  17. السلام عليكم ممكن كود للمساعدة عندي نمودج فيه صفحتين .صفحة رقم 1 وصفحة رقم 2 اريد عندما اضغط على زر الدخول الى هدا النمودج  تختفي صفحة رقم  2 وتبقى صفحة رقم 1
  18. اخفاء واضهار صفحات ONGLE

    شكرا على الرد سوف اوضح اكتر عندي صفحتين في النمودج  الأولى تحتوي على  قائمة المشتريات و  الثانية المدخيل  اريد كود اضعه في زر امر عند الضغط عليه تختفي صفحة  قائمة المشتريات وتظهر  صفحة  المدخيل والزر الثاني عكس داللك وشكرا مسبقا
  19. ممكن مساعدة في تفقيط ارقام الى لغة الفرنسية قمت تعديل على كود  كان بلإنجليزية  لكن هناك بعض اخطاء لم استطيع ان اعرف اين هيا  هدي هيا محاولتي لتعديل وشكرا   Option Compare Database Option Explicit Function ConvertCurrencyToEnglish(ByVal MyNumber)    Dim Temp    Dim dinars, Halals    Dim DecimalPlace, Count    ReDim Place(9) As String    Place(2) = " Mille "    Place(3) = " Million "    Place(4) = " Milliard "    Place(5) = " Billion "    ' Convert MyNumber to a string, trimming extra spaces.    MyNumber = Trim(Str(MyNumber))    ' Find decimal place.    DecimalPlace = InStr(MyNumber, ".")    ' If we find decimal place...    If DecimalPlace > 0 Then       ' Convert Halals       Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)       Halals = ConvertTens(Temp)       ' Strip off cents from remainder to convert.       MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))    End If    Count = 1    Do While MyNumber <> ""       ' Convert last 3 digits of MyNumber to English Riyals.       Temp = ConvertHundreds(Right(MyNumber, 3))       If Temp <> "" Then dinars = Temp & Place(Count) & dinars       If Len(MyNumber) > 3 Then          ' Remove last 3 converted digits from MyNumber.          MyNumber = Left(MyNumber, Len(MyNumber) - 3)       Else          MyNumber = ""       End If       Count = Count + 1    Loop    ' Clean up Riyals.    Select Case dinars       Case ""          'Riyals = "No Riyals"       Case "un"          dinars = " un dinars"       Case Else          dinars = dinars & " dinars"    End Select    ' Clean up Halals.    Select Case Halals       Case ""          'Halals = " And No Halals"       Case "un"          Halals = " And Halalh"       Case Else          Halals = " And " & Halals & " Halals"    End Select    ConvertCurrencyToEnglish = dinars & Halals End Function Private Function ConvertHundreds(ByVal MyNumber)    Dim Result As String    ' Exit if there is nothing to convert.    If Val(MyNumber) = 0 Then Exit Function    ' Append leading zeros to number.    MyNumber = Right("000" & MyNumber, 3)    ' Do we have a hundreds place digit to convert?    If Left(MyNumber, 1) <> "0" Then       Result = ConvertDigit(Left(MyNumber, 1)) & " Cent "    End If    ' Do we have a tens place digit to convert?    If Mid(MyNumber, 2, 1) <> "0" Then       Result = Result & ConvertTens(Mid(MyNumber, 2))    Else       ' If not, then convert the ones place digit.       Result = Result & ConvertDigit(Mid(MyNumber, 3))    End If    ConvertHundreds = Trim(Result) End Function Private Function ConvertTens(ByVal MyTens)    Dim Result As String    ' Is value between 10 and 19?    If Val(Left(MyTens, 1)) = 1 Then       Select Case Val(MyTens)          Case 10: Result = "Dix"          Case 11: Result = "Onze"          Case 12: Result = "Douze"          Case 13: Result = "treize"          Case 14: Result = "quatorze"          Case 15: Result = "Quinze"          Case 16: Result = "seize"          Case 17: Result = "dix sept"          Case 18: Result = "dix houit"          Case 19: Result = "dix neuf"          Case Else       End Select    Else       ' .. otherwise it's between 20 and 99.       Select Case Val(Left(MyTens, 1))          Case 2: Result = "Vingt "          Case 3: Result = "Trente "          Case 4: Result = "Quarante "          Case 5: Result = "cinquante "          Case 6: Result = "Soixante "          Case 7: Result = "Soixante dix"          Case 8: Result = "Quatre-vingts "          Case 9: Result = "quatre vingt dix"            Case Else       End Select       ' Convert ones place digit.       Result = Result & ConvertDigit(Right(MyTens, 1))    End If    ConvertTens = Result End Function Private Function ConvertDigit(ByVal MyDigit)    Select Case Val(MyDigit)       Case 1: ConvertDigit = "un"       Case 2: ConvertDigit = "deux"       Case 3: ConvertDigit = "trois"       Case 4: ConvertDigit = "quatre"       Case 5: ConvertDigit = "cinq"       Case 6: ConvertDigit = "Six"       Case 7: ConvertDigit = "Sept"       Case 8: ConvertDigit = "huit"       Case 9: ConvertDigit = "neuf"       Case Else: ConvertDigit = ""    End Select End Function
  20. ممكن ترجة ارقام الى الفرنسية
  21. سلام عليكم ممكن كود لتصدير نص مكتوب في اكسس الى ملف texte 
  22. فرق بين تاريخين

    شكرا على الرد انا متاكد اخي انه تاريخ صحيح معادلت التي اعطيتني اياها مترجم يقول انها خاطئة وضعتها في استعلام ربما الفواصل  
  23. سلام عليكم لمادا يظهر خطئ في بعض الأحيان في عمر على شكل err  في النمودج و في بعض الأوقات يظهر العمر بدون خطئ لم افهم لللأن الزبون يلاحظ هدا الشيئ  كود موضوع في الأستعلام مرة يظهر ومرة يظهر erro (age: Int(DiffDate("j";[Date de naissance];[Date Actuelle])/365,25 شكرا
  24. السلام عليكم  قمت باعداد برنامج للتسسير محلات كراء السيارات وهو يعمل بشكل جيد اريد ربطه بشبكة انترت هل استخدم serveur apache ام هناك وسائل اخرة  الغرض من هدا هو سماح لزبون بدخول الى برنامجه عن بعد بستعمال انترنت شكرا
  25. السلام مكن كود لعمل مده زمنيه لقاعدت بيانات الاكسيس اي تحديد مدة تجربية لفاعدة مثلا شهر واحد و يتوقف التطبيق مع ظهور رسالة انتهاء مدة التجربية و شكرا