• الإعلانات

    • فيصل الحربي

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

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

man_2011

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

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

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

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

  1. السلام عليكم عندي مشكلة وهي اني وضعت في التقرير التاريخ اي بمعنى ان التاريخ الذي احدده في الفورم مثلا ( خلال الفترة من 1/10/2008 لغاية 10/10/2008) في وضع معينة التقرير التاريخ موجود بالظبط كما حددته ولكن حين اطبع التقرير التاريخ لايظهر سوى ( #Name? ) لا اعرف لماذا الرجاء المساعدة رجاءا
  2. السلام عليكم انا قدمت هذا الموضوع من قبل ولكن من قامبتحميل المرفقات اكثر من 12 عضو ومن شاهد الموضوع اكثر من 46 عضو ولكن لم يتوصلاحد للحل قلت يمكن انا من لم يوصل الفكرة بالشكل الصحيح ولم اعمل فورم ولكن اتمنىحاليا ان اكون اوضحت الفكرة اكثر ببساطة البرنامج هو مثل أيجار كور كرة قدم بأنواعها مثل النايك والأديداس وبوماوغيره وكل نوع به كمية محدد كما هو موضح في جدول (football_Store) ومن خلال الفورم ( main_formmيتم توزيع الكرات على من يرغب بإستاجارهالمدة محدودة والمطلوب وضع خانه لكل نوع من الكرات يعمل count لكل نوع من الكرات الخارجة اي يتم النقص وفي حال إرجاعها يتم زيادة الكمية والغرض من هذا ان في حال طلب كميه كبيرة يتم معرفة هل الكمية موجودة امناقصة قبل الإتفاق ومن ثم الكمية لا تغطي ولكن من البداية من خلال الشاشة يتممعرفة العدد مباشرة اعرف أن الموضوع صعب قليلا ولكن ليس على اعضاء هذا المنتدى إن شاء الله شكراً برنامج إستأجار كرات- .rar
  3. السلام عليكم انا تعودت على عمل البرامج على أكسس 2003 اسهل بكثير من خلال Tools bar وغيره وحاليا استخدم 2007 وهو يحتاج ويعتمد على الاكواد اكثر انا عملت برنامج وارغب بعمل فورم رئيسي يفتح البرنامج مباشرة من دون ان تظهر ادوات الأكسس يا ريت لو يتم ارفاق الكود الخاص بهذا الشأن أو مثال توضيي رجاءا المساعدة للأهمية شكراَ
  4. مشكور اخي العزيز على هذا المثال لكن هذا البرنامج معمول على اكسس 2003 بصيغة mdb حيث 2003 لا توجد مشكلة سهل جدا هل انا على صواب ام خطا ارجو التوضيح
  5. مشكور عزيزي على ما تفضلت به وهو المطلوب بارك الله فيك
  6. السلام عليكم ورحمة الله وبركاته ,, أرغب في مساعدتكم أخواني الأعزاء في عمل فورم خاص بنوع الكرة والكمية الخارجة والداخلة انا عملت الجداول ولو احتاجت للتعديل أكون سعيد كذلك ! ببساطة البرنامج هو مثل أيجار كور كرة قدم بأنواعها مثل النايك والأديداس وكل نوع به كمية اي في حالة تم تسليم محمد كرة قدم نايك يتم نقصان هذه الكرة من الكمية الرئيسية وفي حال قام بإرجاعها يتم زيادة المخزون ويرجع إلى العدد الأصلي وهكذا مع الأديداس أي دخول وخروج الكور فقط أتمنى الشرح واضح وقدرت أوصل الفكرة برنامج رياضي.rar
  7. مشكورررر أخي العزيزي ما قصرت على مجهودك
  8. السلام عليكم ورحمة الله وبركاته !!! كما هو موضح بالعنوان فلدي تقرير يتضمن الميزانية والمصروفات والإيرادات والصافي ولكن هناك مشكلة حيث في السنة الأولى مثلا 2011 التقرير ممتاز ولكن في 2012 تكمن المشكلة حيث تتكرر المبالغ وتزيد حيث تكمن المشكلة في العلاقات من خلال الإستعلامات على ما اعتقد بمجرد فتح التقرير سوف توضح المشكلة أكثر شكرا لكم جميعا test_program.rar
  9. مشكور أخي العزيز على حل المشكلة في المثال المرفق ولكن تفضلت (ولوكان الأمر بيدي لقمت بعمل ربط علائقي بينه وبين جميع الجداول الاخرى ومن ثم باستخراج نتيجة التقرير الذي نتكلم عنه بطريقة أخرى أسهل وأسرع وأنجع ) هل من الممكن للإستفادة لو كان لديك الوقت والا فانت قمت بما هو مطلوب واكثر شكرا لك .
  10. شكراَ لك كثيراَ الأخت زهراء هذا هو المطلوب فعلا يعجز اللسان عن شكرك
  11. السلام عليكم هذا الكود والخاص بتحويل الارقام الى حروف فيه خلل بسيط ولكن لم استطيع ايجاده وتعديله لذا اتمنى من يستطيع حل هذا الخلل يفيدني لاني في امس الحاجة له حيث ان المشكلة في هي مثلا ( 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
  12. ما اضيف للبرنامج فقط هو تحويل أرقام الأفلاس إلى حروف أيضا كما هو موضح في مثالك المرفق ولكن المشكلة لم تحل أيضا بإمكانك التجربة 40.750 يكتب ( أربعون دينار وخمسة وسبعون فلس ) وليس سبعمائة وخمسون فلس
  13. شكرا الغالية زهراء بس المشكلة أختي هي أن الرقم يوجد في الصفر أي ان الرقم مثلا 40.750 يكتب بالطريقة التالية ( أربعون دينار و 75 فلس بدون الصفر ) اما الرقم 40.758 فيكتب بالطريقة الصحيحة ولا مشكلة فيه ( اربعون دينار و 758 فلس )
  14. شكراً لكم كثيراً الأخ فهد والأخ محمد لكن اتمنى التطبيق على المثال المرفق ولكم جزيل الشكر New.rar
  15. سلام برنامج الاخت زهراء والخاص بإدراج الصور طبقته على برنامجي ولكن هناك مشكلة بسيطه وهي أني حين ادرج الصورة لا تظهر الإ حين استخدم زر التالي او السابق وحين اضغط على زر اضافة جديدة لا تتغير الصورة بل اضيف الصورة وثم استخدم زر السابق حتى تظهر اتمنى اني وضحت المشكلة مع العلم اني طبعت جميع الاكواد والوحدات النمطية الموجودة في برنامج الاخت زهراء ولكن هذي المشكلة هي التي عطلتني
  16. السلام عليكم انا محمد من البحرين عندي مشكلة غريبة محيرتني في البرنامج اللي مسوية على الأكسس حتى في الوصف مب عارف اوصفها وياريت القى حل وتتم مساعدتي يسمحون لي الأخوة ما حبيت اعرض المشكلة في المندى لانها شوي المعلومات سرية ولا قدرة اسوي مثال مشابه لان مب عارف شلون صارت المشكلة شكرا لكم جميعاً
  17. غريبة بأن لا يكون في المنتدى اي شخص من مملكة البحرين
  18. السلام عليكــم ورحمـة الله وبركاتــه ،، في بداية تنصيب البرنامج الخاص بصلاحيات المستخدمين المعروف لدى المنتدى وشبكه ببرنامجي يتعين عمل إسم مستخدم وكلمة سر والتي من خلالها تستطيع الدخول الى البرنامج وتحديد الصلاحيات للمستخدمين السؤال هو هل هناك طريقة لتغييير هذا الإسم وكلمة السر ؟ شكراً لكم
  19. السلام عليكــم ورحمـة الله وبركاتــه ،، عندي برنامج على الأكسس ومن فترة طويلة وانا اكتب خلال هذا المنتدى ونفس السؤال ولكن لا يوجد احد لديه الاجابة اتمنى خلال الفترة الماضية قد توصل احد لحل المشكلة وهي كيفية تصدير التقرير الى الورد او الاكسل بنفس الصيغة التي كان عليها حتى يتم الاضافة او الحذف عليه شكرا لكم
  20. كل مدير يرغب بإضافة المقبلات على التقرير حتى يظهر بالصورة التي يرغب بها مهما كان التقرير متكامل لابد ان يقول لو تم اضافة النقطة الفلانية سيكون التقرير افضل وخاصة المدير الذي اعمل معه كل تقرير اعمله له عن طريق البرنامج يرغب باضافة اشياء عليه تعبت معاه حتى قررت ان الغي البرنامج تكفون شوفو لنا حل
  21. مشكور أخ ايهاب الذي لاتستطيع عمله في تقرير الأكسس وتستطيع عمله في الورد او الاكسل هو على سبيل المثال واجهتني مشكله في العمل من خلال برنامجي الذي صممته وهي اني عملت تقرير يتضمن العاملين وقيمة المكأفاة ولكن تفاجأت بالمدير يطلب عمل خانتين لقيمة المكافأة وهي الحد الأدنى والحد الأعلى ما ذا افعل هل اقوم بإعادة تصميم التقرير ؟ مع العمل ان المدير يرغب بأن يقدم اقتراح فقط اي أن البرنامج لا يرغب بالتعديل عليه لان في كل مره يرغب بإضافة وحذف . شكراً