abu amir

ارسل مثال للتتطبيق وشكرا

السلم عليكم ورحمة الله وبركاتة اخي الكريم لقد حاولت عمل ماتريد من عمل استعلام يفي ماتريد ولكن لم يستجيب الاستعلام بسب تحقق الشرط الاولي لذلك وارى ان يكون لكل مادة حقل فية شرط iff لكل مادة وعند البحث في احد المنتديات وجدت مبرنامج مميز للاخ محمد عبدالعظيم لعله ينال الغاية وشكرا اخي احمد Controlll.rar

اليك اخي الكريم مثال جدا قوي جدا للمشرفه زهره العبدالله اتمنى ان ينال ماتريد ودعواتك _____________.rar

اخي الكريم السلام عليكم ورحمة الله وبركاته بامكانك عمل ذلك من خلال عمل استعلام لجدول بياناتك وفي هذا الاستعلام في عرض التصميم اضغط بزر الماوس الايمن واختر عرض sql ومن ثم اكتب TOP 10 بعد كلمة select

اخي الكريم قم بعمل حقل للبحث للمدرسة مثلا واسمه مثلا x في نموذج وليكن اسمة search وعوض عن اسم الحقل واسم النموذج في معايير الاستعلام المذكور في الرد السابق وسلامتك

اخي الكريم انشئ استعلام تحديد واضف الحقل المراد البحث به واضف في المعاير العبارة التالية CODE Like "*" & [forms]![اسم النموذج]![اسم الحقل في النوذج] & "*"

تفضل اخي الكريم If MsgBox("هل أنت متأكد من الحذف ", vbYesNo, "رسالة تأكيد ") = vbYes Then DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 End If

اخي الحبيب اليك ان شالله ماتريد انسخ هذا الكود في استعلام راسب المصارف في حقل جديد واضف الية باقي المواد لديك الى ماتشاء النتيجة: IIf([عربي1]<5;"لغة عربية";IIf([عربي2]<5;"لغة عربية";IIf([أعمال عربي]<25;"لغة عربية"))) واسف عالتأخير وكل عام وانتم بخير وكلنا غزه

مشكووووووووووووووووور يامشرفنا الغالي

تأكــــــيد الخروج If MsgBox("هل أنت متأكد من الخروج ", vbYesNo, "رسالة تأكيد ") = vbYes Then DoCmd.Quit End If 'وإذا ما نفع a = MsgBox("هل تريد الخروج من البرنامج ؟", vbYesNo, "رسالة تأكيد") If a = vbYes Then DoCmd.Quit تأكـــــيد الحذف نفس الكوود السابق ولك بتغير العبارة docmd.quit الى DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

اسف جدا جدا عالتأخير اخي الكريم وأتمنى من الله ان يكون الاستعلام المرفق باسم الراسبين ينال ماتريدة _________________________.rar

اسف اخي الكريم عالتأخـــــــــــير انت انسان مجتهد وبداية موفقة ان شاء الله واشكرك على االثناء بي وسوف احاول الوقوف الى جانبك لبناء قاعدة بياناتك ولكن عندي استفسار بسيط هل هنالك درجة موحدة للرسوب لكل المواد ام لكل مادة درجة رسوب معينة وشكرا

تفضل اخي العزيز اتمنى ان يكون هذا ماطلبت _____.zip

سوف اتعامل مع الاستعلام كأنة جدول ولك جزيل الشكر والامتنان ومشكور ماقصرت على طولة بالك نحن من تلامذتك ونتعلم منك ومن اساتذتنا الافاضل بالمنتدى العالمي هذا وكل عام وانتم بخير

شكرا لك مشرفنا الغالي فعلا هذا مااريده ولكن هل يمكن الاستغناء عن الاستعلام وادراج خيارات الاسماء بدلا من الاكواد في الرئيسي ارجو توضيح ذلك واكون ممتن لك طول العمر ياغالي

للرفع

للرفع

الله يجازيك بالخير

تفضل اخي الكريم وكل عام وانتم بخير _____________.rar

تفضل اخوي ملفك بعد التعديل وكل عام وانتم بخير YESLAMB.zip

اليك اخي الحبيب امثلة عن الدوال من اعداد الاخوان في هذا المنتدى وكل عام وانتم بخير db2.rar

اخي الكريم اتبع الخطوات التالية: 1- قم بتسمية حقل الرقم وحقل النص وعل وجه المثال A=الرقم B=النص 2- ضع الكود التالي بعد التحديث لحقل الرقم b = ConvertCurrencyToEnglish(a) 3- ادرج الوحدة النمطية التالية باسم ConvertCurrencyTo WORDالى برنامجك Option Compare Database Option Explicit Function ConvertCurrencyToEnglish(ByVal MyNumber) Dim Temp Dim Dollars, Cents Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ".") If DecimalPlace > 0 Then Temp = left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) Cents = ConvertTens(Temp) MyNumber = Trim(left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = ConvertHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars 'يمكنك وضع أي عملة تريدها بدلا من الدولار طبعا بالنجليزية Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = "" Case "One" Cents = " And One Cent" Case Else Cents = " And " & Cents & " Cents" End Select ConvertCurrencyToEnglish = Dollars & Cents End Function Private Function ConvertDigit(ByVal MyDigit) Select Case Val(MyDigit) Case 1: ConvertDigit = "One" Case 2: ConvertDigit = "Two" Case 3: ConvertDigit = "Three" Case 4: ConvertDigit = "Four" Case 5: ConvertDigit = "Five" Case 6: ConvertDigit = "Six" Case 7: ConvertDigit = "Seven" Case 8: ConvertDigit = "Eight" Case 9: ConvertDigit = "Nine" Case Else: ConvertDigit = "" End Select End Function Private Function ConvertHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) If left(MyNumber, 1) <> "0" Then Result = ConvertDigit(left(MyNumber, 1)) & " Hundred " End If If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & ConvertTens(Mid(MyNumber, 2)) Else Result = Result & ConvertDigit(Mid(MyNumber, 3)) End If ConvertHundreds = Trim(Result) End Function Private Function ConvertTens(ByVal MyTens) Dim Result As String If Val(left(MyTens, 1)) = 1 Then Select Case Val(MyTens) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else Select Case Val(left(MyTens, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & ConvertDigit(Right(MyTens, 1)) End If ConvertTens = Result End Function وكل عام وانتم بخير

اليك اخي العزيز ماتريد واسف على القصور db1.rar

البرنامج هو smart install maker ممتاز جدا انظر الرابط http://www.arabteam2000-forum.com/index.ph...88&hl=smart

فعلا رد مميز اشكرك انا كذلك وكل عام وانت بخير