• الإعلانات

    • فيصل الحربي

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

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

nacer_alger

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

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

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

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

0 عادي

1 متابع

عن nacer_alger

  • الرتبة
    عضو
  1. سلام عليكم  وجد هدا المثال ليناسب المشروع الدي انا في صدد انجازه وهو برنامج لمواعد الأفراح وجد ان هدا المثال يناسبني ولكن هنا خطئ حولت تعديل لكن لم انجح وهدا الخطئ متمثل في  بعض الأيام عند الضغط عليها لا تعمل في اجندا  ارجو اخد بطلبي للأني بحاجة للمساعدة    مواعيد افراح.rar
  2. ممكن مساعدة في تفقيط ارقام الى لغة الفرنسية قمت تعديل على كود  كان بلإنجليزية  لكن هناك بعض اخطاء لم استطيع ان اعرف اين هيا  هدي هيا محاولتي لتعديل وشكرا   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
  3. ممكن ترجة ارقام الى الفرنسية
  4. سلام عليكم ممكن كود لتصدير نص مكتوب في اكسس الى ملف texte 
  5. فرق بين تاريخين

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

    شكرا على الرد
  11. السلام عليكم ممكن كود يظهرسجلات الشهر الحالى   
  12. سلام عيكم فرز في النموذج على شكل جدول عن طريق كود (تنازلى تصاعد) وشكرا    
  13. حساب بين تاريخين

    السلام عليكم ممكن مساعدة في حساب عطلة سنوية عندي مشكلة اريد ان انشاء الحقل اول اسمه عطلة سنوية والحقل ثاني اسمه ابتداء من و الحقل الثالث  الى غاية  عندما اضع في الحقل اول عطلة سنوية مثلا 30 يوما واختار الحقل ثاني   ابتداء من يظهر في الحقل الثالث الى غاية  بطريقة اوتوماتكية وشكرا
  14. السلام عليكم عندي كود يعمل على تنبيه تاريخ واحد  لكن لم استطيع التعديل عليه  وانا عندي ثلاث توايخ اريد ان اضع لها تنبيهات تاريخ انتهاء قسيمة السيارة و تاريخ انتهاء مراقبة التقنية وتاريخ انتهاء الضمان اجتماعي ها هو الكود والقاعدة المرفقة   Private Sub Form_Open(Cancel As Integer) DoCmd.Restore Dim IntExp As Integer IntExp = DCount("[Code Véhicule]", "[Allarm]", "[Prochain révision a] <date() ")     If IntExp = 0 Then             Exit Sub                 Else                 If MsgBox("vous avez " & IntExp & " date A expiré vous voulez voir maintenants" & " Vignettet Contrôle technique Assurancee", vbYesNo, "des date experimer") = vbYes Then                     DoCmd.Minimize                     DoCmd.OpenForm "Allarm", acNormal                                      Else             Exit Sub         End If     End If End Sub       allarm2.rar
  15. سلام عليكم ممكن طريقة بحث باسم الموظف في النموذج الرئيسي دون الحاجة للإنشاء نموذج فرعي اي في النموذج نفسه