alaaaboulela

السلام عليكم ورحمة الله وبركاته متشكر جدا لتعبك واسف للتاخير في الرد لاني لسه شايف مشاركتك هشوف الملف وهرد على حضرتك 

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

ان شاء الله يرد ويطمنا عليه ... ربنا يحفظه ويحفظ الاستاذة / زهرة العبد الله

ان شاء الله يرد علينا احد المشرفين ومن لديه وسيلة للتواصل معها سواء رقم هاتف او هاتف احد معارفها او إيميل او اي وسيلة للاتصال بها للإطمئنان على صحتها ...

السلام عليكم الحل على الرابط التالي http://arabteam2000-forum.com/index.php/topic/293619-الفرق-بين-وقتين-و-تحويلةالى-رقم/?p=1399326

السلام عليكم برجاء تحميل المرفق وافادتنا ... ert_after.rar

السلام عليكم برجاء تحميل المرفق وافادتنا ...

كل سنة وانتم طيبين جميعاً ويجعله في ميزان حسناتكم 

السلام عليكم برجاء تحميل المرفق الحل بطريقتي الجدول والاستعلام    converttime.rar

ماشاء الله , الله يفتح عليك ا / يوسف .. اشكرك على الرد و الافادة ...

اشكرك على تفاعلك ا/ خضر ...

البرنامج بياخد دايما التاريخ الافتراضي حسب اعدادات الاوفيس اما بعد التسجيل ( اتمام حدث بعد التحديث ) يقوم بطريقة اليه بالتحويل من الهجري للميلادي والعكس ... ده بيحصل معايا سواء كان تاريخ الويندوز هجري او ميلادي سواء كانت الاعدادات للاوفيس هجري او ميلادي  اما لو في حل للمشكلة فسأنتظره معك ..

الشكر لله ثم لهذا المنتدى الرائع ...

السلام عليكم .... وجزاك ... تفضل ملفك بعد التعديل    DB1-2003.rar

السلام عليكم تفضل الملف اتمنى ينال اعجابك ... mokafaa.rar

السلام عليكم تفضل حل الجزئية الثانية والخاصة بالتحويل من الهجري للميلادي والعكس   date11 up.rar

السلام عليكم تم بفضل الله حل المشكلة واصلاح الكود اليكم الكود الصحيح Private Sub code_AfterUpdate()Me.item = DLookup("[item]", "itemcard", "[code] = " & [code])Me.salesprice = DLookup("[salesprice]", "itemcard", "[code] = " & [code])End Subملحوظة الكود وجدته ضمن ابداعات ا/ جعفر 

اليكم الملف بعد التعديل   salesdlookup.rar

السلام عليكم لماذ لا يعمل الكود واين الخطأ اذا سمحتم Private Sub code_AfterUpdate()item = DLookup("item","itemcard","code ='"& me.code& "'")salesprice = DLookup("salesprice", "itemcard","code ='"& me.code&"'")End Sub

السلام عليكم الاستاذ / خضر مشكور على الفيديو الرائع .. قمت بتطبيق الدالة على ملف بنفس المسميات ولكن يبدو ان هناك شيء خطأ في الملف او الدالة  برجاء التكرم منكم او احد الاساتذة الافاضل  بالتعديل على الملف ... salesdlookup.rar

السلام عليكم مرفق ملف للتنقل بين السجلات لاعلى ولاسفل بمقدار عشر سجلات في كل مرة بطريقتين الاولى بالماكرو وذلك بالتعديل على الماكرو الاصلي للتنقل بمقدار سجل والثانية بالكود ايضاً بالتعديل على كود الانتقال لسجل سابق او لاحق او كود التنقل بمقدار سجل وان كنت اميل للماكرو ... ملحوظة : سبب رفع الملف هو معانتي السابقة التنقل بين السجلات فرحت ابحث عن حل في حالة زيادة عدد الادخالات سواء كانت فواتير مبيعات او قيود او او  والحمد لله توصلت لحل المشكلة لذا اثرت ان يستفيد من الطريقة باقي الزملاء ... move 10 rec up down.rar

تسلم ايدك رائع ماشاء الله ...

شرحت ووفيت ... وهذا رابط شرح استعلام التوحيد فيديو باللغة العربية  على الرابط التالي http://fmalaa.wordpress.com/2013/06/05/as-3/ او يمكنك المشاهدة مباشرة 

سقفة كبيرة لملك الاكواد استاذي / جعفر  :) ما شاء الله عليك :)

السلام عليكم في الإكسيل ليس هناك مشكلة يمكنك حل المشكلة من خلال دوال  roundup التقريب لأعلى رقم صحيح او جزء من عشرة او مائة او الف rounddown التقريب لأقل رقم صحيح او جزء من العشرة والمائة والالف  أما الأكسيس فجرب الدالتين التاليتين - منفوووووول من موقع اجنبي  Dim numvalue As Double numvalue = [Value] 'where [Value] is the field name on the form containing the value to be rounded. 'Checks If the value has anything after the decimal point 'if it does then stop the routineIf (numvalue - Int(numvalue)) = 0 ThenExit Sub 'otherwise, remove the decimal part of the value and add 1 to it to round it up.Else numvalue = Int(numvalue) + 1 MsgBox numvalue ' display the new value '[Value] = numvalue ' remove the ' from in front of the [Value] to make it the rounded up number End Ifالدالة الثانية - الانسب لك بعد التعديل عليها 'Method 2 suggested by MDmackillop. Using the Round function. 'set the number variable as a double precision number.Dim numvalue As Double numvalue = [Value] 'where [Value] is the field name on the form containing the value to be rounded. 'Checks If the value has anything after the decimal point 'if it does then stop the routineIf (numvalue - Int(numvalue)) = 0 Then Exit Sub 'otherwise, add 0.05 to the value which will force the round function to round it up.Else numvalue = Round(numvalue + 0.05) MsgBox numvalue ' display the new value '[Value] = numvalue ' remove the ' from in front of the [Value] to make it the rounded up number End If