• الإعلانات

    • فيصل الحربي

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

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

nacer_alger

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

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

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

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

0 عادي

1 متابع

عن nacer_alger

  • الرتبة
    عضو
  1. اخفاء واضهار صفحات ONGLE

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

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

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

    السلام عليكم ممكن مساعدة في حساب عطلة سنوية عندي مشكلة اريد ان انشاء الحقل اول اسمه عطلة سنوية والحقل ثاني اسمه ابتداء من و الحقل الثالث  الى غاية  عندما اضع في الحقل اول عطلة سنوية مثلا 30 يوما واختار الحقل ثاني   ابتداء من يظهر في الحقل الثالث الى غاية  بطريقة اوتوماتكية وشكرا