• الإعلانات

    • فيصل الحربي

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

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

man_2011

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

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

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

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

-1 مقبول

عن man_2011

  • الرتبة
    عضو

أحدث الزائرين لملفلك الشخصي

1,951 زياره للملف الشخصي
  1. مشكور اخي العزيز على هذا المثال لكن هذا البرنامج معمول على اكسس 2003 بصيغة mdb حيث 2003 لا توجد مشكلة سهل جدا هل انا على صواب ام خطا ارجو التوضيح
  2. السلام عليكم انا قدمت هذا الموضوع من قبل ولكن من قامبتحميل المرفقات اكثر من 12 عضو ومن شاهد الموضوع اكثر من 46 عضو ولكن لم يتوصلاحد للحل قلت يمكن انا من لم يوصل الفكرة بالشكل الصحيح ولم اعمل فورم ولكن اتمنىحاليا ان اكون اوضحت الفكرة اكثر ببساطة البرنامج هو مثل أيجار كور كرة قدم بأنواعها مثل النايك والأديداس وبوماوغيره وكل نوع به كمية محدد كما هو موضح في جدول (football_Store) ومن خلال الفورم ( main_formmيتم توزيع الكرات على من يرغب بإستاجارهالمدة محدودة والمطلوب وضع خانه لكل نوع من الكرات يعمل count لكل نوع من الكرات الخارجة اي يتم النقص وفي حال إرجاعها يتم زيادة الكمية والغرض من هذا ان في حال طلب كميه كبيرة يتم معرفة هل الكمية موجودة امناقصة قبل الإتفاق ومن ثم الكمية لا تغطي ولكن من البداية من خلال الشاشة يتممعرفة العدد مباشرة اعرف أن الموضوع صعب قليلا ولكن ليس على اعضاء هذا المنتدى إن شاء الله شكراً برنامج إستأجار كرات- .rar
  3. مشكور عزيزي على ما تفضلت به وهو المطلوب بارك الله فيك
  4. السلام عليكم انا تعودت على عمل البرامج على أكسس 2003 اسهل بكثير من خلال Tools bar وغيره وحاليا استخدم 2007 وهو يحتاج ويعتمد على الاكواد اكثر انا عملت برنامج وارغب بعمل فورم رئيسي يفتح البرنامج مباشرة من دون ان تظهر ادوات الأكسس يا ريت لو يتم ارفاق الكود الخاص بهذا الشأن أو مثال توضيي رجاءا المساعدة للأهمية شكراَ
  5. السلام عليكم ورحمة الله وبركاته ,, أرغب في مساعدتكم أخواني الأعزاء في عمل فورم خاص بنوع الكرة والكمية الخارجة والداخلة انا عملت الجداول ولو احتاجت للتعديل أكون سعيد كذلك ! ببساطة البرنامج هو مثل أيجار كور كرة قدم بأنواعها مثل النايك والأديداس وكل نوع به كمية اي في حالة تم تسليم محمد كرة قدم نايك يتم نقصان هذه الكرة من الكمية الرئيسية وفي حال قام بإرجاعها يتم زيادة المخزون ويرجع إلى العدد الأصلي وهكذا مع الأديداس أي دخول وخروج الكور فقط أتمنى الشرح واضح وقدرت أوصل الفكرة برنامج رياضي.rar
  6. مشكورررر أخي العزيزي ما قصرت على مجهودك
  7. مشكور أخي العزيز على حل المشكلة في المثال المرفق ولكن تفضلت (ولوكان الأمر بيدي لقمت بعمل ربط علائقي بينه وبين جميع الجداول الاخرى ومن ثم باستخراج نتيجة التقرير الذي نتكلم عنه بطريقة أخرى أسهل وأسرع وأنجع ) هل من الممكن للإستفادة لو كان لديك الوقت والا فانت قمت بما هو مطلوب واكثر شكرا لك .
  8. السلام عليكم ورحمة الله وبركاته !!! كما هو موضح بالعنوان فلدي تقرير يتضمن الميزانية والمصروفات والإيرادات والصافي ولكن هناك مشكلة حيث في السنة الأولى مثلا 2011 التقرير ممتاز ولكن في 2012 تكمن المشكلة حيث تتكرر المبالغ وتزيد حيث تكمن المشكلة في العلاقات من خلال الإستعلامات على ما اعتقد بمجرد فتح التقرير سوف توضح المشكلة أكثر شكرا لكم جميعا test_program.rar
  9. شكراَ لك كثيراَ الأخت زهراء هذا هو المطلوب فعلا يعجز اللسان عن شكرك
  10. ما اضيف للبرنامج فقط هو تحويل أرقام الأفلاس إلى حروف أيضا كما هو موضح في مثالك المرفق ولكن المشكلة لم تحل أيضا بإمكانك التجربة 40.750 يكتب ( أربعون دينار وخمسة وسبعون فلس ) وليس سبعمائة وخمسون فلس
  11. شكرا الغالية زهراء بس المشكلة أختي هي أن الرقم يوجد في الصفر أي ان الرقم مثلا 40.750 يكتب بالطريقة التالية ( أربعون دينار و 75 فلس بدون الصفر ) اما الرقم 40.758 فيكتب بالطريقة الصحيحة ولا مشكلة فيه ( اربعون دينار و 758 فلس )
  12. شكراً لكم كثيراً الأخ فهد والأخ محمد لكن اتمنى التطبيق على المثال المرفق ولكم جزيل الشكر New.rar
  13. السلام عليكم هذا الكود والخاص بتحويل الارقام الى حروف فيه خلل بسيط ولكن لم استطيع ايجاده وتعديله لذا اتمنى من يستطيع حل هذا الخلل يفيدني لاني في امس الحاجة له حيث ان المشكلة في هي مثلا ( 40.450 ) تكتب أربعون دينار و 45 فلس وليس 450 فلس حيث لو كتبت الرقم (40.400) تكتب بشكل صحيح أربعون دينار و 400 فلس ولا توجد مشكلة لا اعلم ما الحل واين الخلل . Function Wrdx(T As String) Dim i As Integer Dim j As Integer Dim Wrd As String Dim wrd1 As String Dim wrd2 As String Dim wrd3 As String Dim wrd4 As String Dim a(10) As String Dim aa(10) As String Dim sHund As String Wrd = "" wrd1 = "" wrd2 = "" wrd3 = "" wrd4 = "" a(1) = "واحد " a(2) = "اثنين " a(3) = "ثلاثة " a(4) = "اربعة " a(5) = "خمسة " a(6) = "ستة " a(7) = "سبعة " a(8) = "ثمانية " a(9) = "تسعة " aa(1) = "عشر " aa(2) = "عشرون " aa(3) = "ثلاثون " aa(4) = "اربعون " aa(5) = "خمسون " aa(6) = "ستون " aa(7) = "سبعون " aa(8) = "ثمانون " aa(9) = "تسعون " On Error Resume Next If InStr(T, ".") > 0 Then j = InStr(T, ".") wrd4 = Mid(T, j + 1, 3) If Len(wrd4) = 1 Then wrd4 = wrd4 & "00" End If T = Mid(T, 1, j - 1) End If i = Len(T) Select Case i Case 1 Wrd = a(Val(T)) Case 2 If Val(T) = 10 Then Wrd = "عشرة " ElseIf Val(T) = 11 Then Wrd = "احدعشر " ElseIf Val(T) = 12 Then Wrd = "اثناعشر " ElseIf Val(T) < 20 Then Wrd = a(Val(Right(T, 1))) & aa(Val(Left(T, 1))) ElseIf Val(Right(T, 1)) = 0 Then Wrd = aa(Val(Left(T, 1))) Else Wrd = a(Val(Right(T, 1))) & "و" & aa(Val(Left(T, 1))) End If Case 3 If Val(Mid(T, 1, 1)) = 1 Then wrd1 = "مائة " ElseIf Val(Mid(T, 1, 1)) = 2 Then wrd1 = "مائتين " Else sHund = a(Val(Mid(T, 1, 1))) If Val(Mid(T, 1, 1)) = 8 Then sHund = Left(sHund, Len(sHund) - 3) Else sHund = Left(sHund, Len(sHund) - 2) End If wrd1 = sHund & "مائة" & " " End If T = Mid(T, 2, 2) If Val(T) = 10 Then Wrd = "عشرة " ElseIf Val(T) = 11 Then Wrd = "احدعشر " ElseIf Val(T) = 12 Then Wrd = "اثناعشر " ElseIf Val(T) < 20 Then Wrd = a(Val(Right(T, 1))) & aa(Val(Left(T, 1))) ElseIf Val(Right(T, 1)) = 0 Then Wrd = aa(Val(Left(T, 1))) Else Wrd = a(Val(Right(T, 1))) & "و" & aa(Val(Left(T, 1))) End If If Wrd = "" Then Wrd = wrd1 Else Wrd = wrd1 & "و" & Wrd End If Case 4 If Val(Mid(T, 1, 1)) = 1 Then wrd2 = "الف " ElseIf Val(Mid(T, 1, 1)) = 2 Then wrd2 = "الفين " Else wrd2 = a(Val(Mid(T, 1, 1))) & "الاف " End If T = Mid(T, 2, 3) If Val(Mid(T, 1, 1)) = 1 Then wrd1 = "مائة " ElseIf Val(Mid(T, 1, 1)) = 2 Then wrd1 = "مائتين " Else If Mid(T, 1, 1) > "0" Then If Val(Mid(T, 1, 1)) = 1 Then wrd1 = "مائة " ElseIf Val(Mid(T, 1, 1)) = 2 Then wrd1 = "مائتين " Else sHund = a(Val(Mid(T, 1, 1))) If Val(Mid(T, 1, 1)) = 8 Then sHund = Left(sHund, Len(sHund) - 3) Else sHund = Left(sHund, Len(sHund) - 2) End If wrd1 = sHund & "مائة" & " " End If End If End If T = Mid(T, 2, 2) If Val(T) = 10 Then Wrd = "عشرة " ElseIf Val(T) = 11 Then Wrd = "احدعشر " ElseIf Val(T) = 12 Then Wrd = "اثناعشر " ElseIf Val(T) < 20 Then Wrd = a(Val(Right(T, 1))) & aa(Val(Left(T, 1))) ElseIf Val(Right(T, 1)) = 0 Then Wrd = aa(Val(Left(T, 1))) Else Wrd = a(Val(Right(T, 1))) & "و" & aa(Val(Left(T, 1))) End If If wrd1 <> "" Then wrd1 = "و" & wrd1 End If If Wrd <> "" Then Wrd = "و" & Wrd End If Wrd = wrd2 & wrd1 & Wrd Case 5 If Val(Mid(T, 1, 2)) = 10 Then wrd2 = "عشرة الاف " ElseIf Val(Mid(T, 1, 2)) = 11 Then wrd2 = "احدعشرالفا " ElseIf Val(Mid(T, 1, 2)) = 12 Then wrd2 = "اثناعشرالفا " ElseIf Val(Mid(T, 1, 2)) < 20 Then wrd2 = a(Val(Mid(T, 2, 1))) & aa(Val(Mid(T, 1, 1))) & "الفا " ElseIf Val(Mid(T, 2, 1)) = 0 Then wrd2 = aa(Val(Mid(T, 1, 1))) & "الفا " Else wrd2 = a(Val(Mid(T, 2, 1))) & "و" & aa(Val(Mid(T, 1, 1))) & "الفا " End If T = Mid(T, 3, 3) If Val(Mid(T, 1, 1)) = 1 Then wrd1 = "مائة " ElseIf Val(Mid(T, 1, 1)) = 2 Then wrd1 = "مائتين " Else If Mid(T, 1, 1) = "0" Then wrd1 = a(Val(Mid(T, 1, 1))) Else sHund = a(Val(Mid(T, 1, 1))) If Val(Mid(T, 1, 1)) = 8 Then sHund = Left(sHund, Len(sHund) - 3) Else sHund = Left(sHund, Len(sHund) - 2) End If wrd1 = sHund & "مائة" & " " End If End If T = Mid(T, 2, 2) If Val(T) = 10 Then Wrd = "عشرة " ElseIf Val(T) = 11 Then Wrd = "احدعشر " ElseIf Val(T) = 12 Then Wrd = "اثناعشر " ElseIf Val(T) < 20 Then Wrd = a(Val(Right(T, 1))) & aa(Val(Left(T, 1))) ElseIf Val(Right(T, 1)) = 0 Then Wrd = aa(Val(Left(T, 1))) Else Wrd = a(Val(Right(T, 1))) & "و" & aa(Val(Left(T, 1))) End If If wrd1 <> "" Then wrd1 = "و" & wrd1 End If If Wrd <> "" Then Wrd = "و" & Wrd End If Wrd = wrd2 & wrd1 & Wrd Case 6 If Val(Mid(T, 1, 1)) = 1 Then wrd3 = "مائة " ElseIf Val(Mid(T, 1, 1)) = 2 Then wrd3 = "مائتي " Else wrd3 = a(Val(Mid(T, 1, 1))) & "مائة " End If T = Mid(T, 2, 5) If Val(Mid(T, 1, 2)) = 10 Then wrd2 = "عشرة الاف " ElseIf Val(Mid(T, 1, 2)) = 11 Then wrd2 = "احدعشرالفا " ElseIf Val(Mid(T, 1, 2)) = 12 Then wrd2 = "اثناعشرالفا " ElseIf Val(Mid(T, 1, 2)) < 20 Then wrd2 = a(Val(Mid(T, 2, 1))) & aa(Val(Mid(T, 1, 1))) & "الفا " ElseIf Val(Mid(T, 2, 1)) = 0 Then wrd2 = aa(Val(Mid(T, 1, 1))) & "الفا " Else wrd2 = a(Val(Mid(T, 2, 1))) & "و" & aa(Val(Mid(T, 1, 1))) & "الفا " End If T = Mid(T, 3, 3) If Val(Mid(T, 1, 1)) = 1 Then wrd1 = "مائة " ElseIf Val(Mid(T, 1, 1)) = 2 Then wrd1 = "مائتين " Else If Mid(T, 1, 1) = "0" Then wrd1 = a(Val(Mid(T, 1, 1))) Else sHund = a(Val(Mid(T, 1, 1))) If Val(Mid(T, 1, 1)) = 8 Then sHund = Left(sHund, Len(sHund) - 3) Else sHund = Left(sHund, Len(sHund) - 2) End If wrd1 = sHund & "مائة" & " " End If End If T = Mid(T, 2, 2) If Val(T) = 10 Then Wrd = "عشرة " ElseIf Val(T) = 11 Then Wrd = "احدعشر " ElseIf Val(T) = 12 Then Wrd = "اثناعشر " ElseIf Val(T) < 20 Then Wrd = a(Val(Right(T, 1))) & aa(Val(Left(T, 1))) ElseIf Val(Right(T, 1)) = 0 Then Wrd = aa(Val(Left(T, 1))) Else Wrd = a(Val(Right(T, 1))) & "و" & aa(Val(Left(T, 1))) End If If wrd1 <> "" Then wrd1 = "و" & wrd1 End If If Wrd <> "" Then Wrd = "و" & Wrd End If If wrd2 <> "الفا " Then wrd2 = "و" & wrd2 End If Wrd = wrd3 & wrd2 & wrd1 & Wrd End Select If wrd4 = "" Then Wrdx = Wrd & "دينار" Else Wrdx = Wrd & " دينار و " & wrd4 & " فلس " End If End Function