-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-
-
عدد المشاركات
359 -
تاريخ الانضمام
-
تاريخ اخر زياره
مشاركه بواسطة alaaaboulela
-
-
السلام عليكم
مرفق ملف ارجو الافادة بخصوص كيفية اضافة سجل من نموذج الاسماء في نموذج الكورسات بمجرد الضغط على السجل في نموذج الاسماء
وهل الافضل والاسهل اضافة سجل من نموذج ام استعلام أو جدول مع شرح الفروقات والتفضيلات لو تكرمتم ..
تحياتي للجميع
0 -
ان شاء الله يرد ويطمنا عليه ... ربنا يحفظه ويحفظ الاستاذة / زهرة العبد الله
0 -
ان شاء الله يرد علينا احد المشرفين ومن لديه وسيلة للتواصل معها سواء رقم هاتف او هاتف احد معارفها او إيميل او اي وسيلة للاتصال بها للإطمئنان على صحتها ...
0 -
السلام عليكم
الحل على الرابط التالي
http://arabteam2000-forum.com/index.php/topic/293619-الفرق-بين-وقتين-و-تحويلةالى-رقم/?p=1399326
0 -
-
السلام عليكم
برجاء تحميل المرفق وافادتنا ...
0 -
كل سنة وانتم طيبين جميعاً ويجعله في ميزان حسناتكم
0 -
-
ماشاء الله , الله يفتح عليك ا / يوسف .. اشكرك على الرد و الافادة ...
0 -
اشكرك على تفاعلك ا/ خضر ...
0 -
البرنامج بياخد دايما التاريخ الافتراضي حسب اعدادات الاوفيس اما بعد التسجيل ( اتمام حدث بعد التحديث ) يقوم بطريقة اليه بالتحويل من الهجري للميلادي والعكس ...
ده بيحصل معايا سواء كان تاريخ الويندوز هجري او ميلادي سواء كانت الاعدادات للاوفيس هجري او ميلادي
اما لو في حل للمشكلة فسأنتظره معك ..
0 -
الشكر لله ثم لهذا المنتدى الرائع ...
1 -
-
-
-
-
السلام عليكم
تم بفضل الله حل المشكلة واصلاح الكود
اليكم الكود الصحيح
Private Sub code_AfterUpdate()Me.item = DLookup("[item]", "itemcard", "[code] = " & [code])Me.salesprice = DLookup("[salesprice]", "itemcard", "[code] = " & [code])End Sub
ملحوظة الكود وجدته ضمن ابداعات ا/ جعفر
1 -
السلام عليكم
لماذ لا يعمل الكود واين الخطأ اذا سمحتم
Private Sub code_AfterUpdate()item = DLookup("item","itemcard","code ='"& me.code& "'")salesprice = DLookup("salesprice", "itemcard","code ='"& me.code&"'")End Sub
0 -
السلام عليكم
الاستاذ / خضر
مشكور على الفيديو الرائع ..
قمت بتطبيق الدالة على ملف بنفس المسميات ولكن يبدو ان هناك شيء خطأ في الملف او الدالة
برجاء التكرم منكم او احد الاساتذة الافاضل بالتعديل على الملف ...
0 -
تسلم ايدك رائع ماشاء الله ...
0 -
شرحت ووفيت ...
وهذا رابط شرح استعلام التوحيد فيديو باللغة العربية
على الرابط التالي
http://fmalaa.wordpress.com/2013/06/05/as-3/
او يمكنك المشاهدة مباشرة
0 -
سقفة كبيرة لملك الاكواد استاذي / جعفر :)
ما شاء الله عليك :)
0 -
السلام عليكم
لو بالامكان رفع قاعدة البيانات او التقرير ليستطيع الاستاذة والزملاء مساعدتك ...
0 -
السلام عليكم
في الإكسيل ليس هناك مشكلة يمكنك حل المشكلة من خلال دوال
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
0
اضافة سجل من نموذج لنموذج اخر بمجرد الضغط على السجل
في قواعد بيانات Microsoft Access
قام بالرد منذ
السلام عليكم ورحمة الله وبركاته
متشكر جدا لتعبك واسف للتاخير في الرد لاني لسه شايف مشاركتك هشوف الملف وهرد على حضرتك