mostafazidani

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

حياك الله ياأمير

picture1.circle سيتم التلوين على هيئة دوائر

مالمقصود بالسرعة ارجو التوضيح

مالمقصود بالسرعة ارجو التوضيح

في حدث الفورم لود private form_load() ME.keypreview=true end sub في حدث ال keydown للفورم الاول if keycode=vbkeyD then form2.show end if عند الضغط على حرف D سيتم اظهار الفورم الثاني

اخت دارين ارجو توضيح ماهو الخطا وأين

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

اذا كنت تستخدم data control فان الكود التالي يمكن ان يفي بالغرض ضعه في زر أمر do while not data1.recordset.eof if data1.recordset.field("customer_name")=" & text1.text & " then msgbox "the customer:" & " " & text1.text & " " & "is already in database" end if d…

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

كارما-دارين -..؟؟؟؟. نرجو التوضيح أكثر السرعة ؟ ...؟

شكرا لك اخي محمد جاري التحميل

رائع يابلال بالتوفيق

والله اكثر من رائع أخي بلال ماشاء الله

حياك الله اخي محمد

private sub command1_click() b = Right(maskedit1.Text, Len(Mid(maskedit1.Text,7, Len(maskedit1.Text)))) Dim a As Integer a = CStr(Trim(Left(maskedit1.text,6))) a = a + 1 maskedit1.text= a & b maskedit1.setfocus

العمر بالأيام a=datediff("d",date1,date2) msgbox a العمر بالشهر m=datediff("m",date1,date2) msgbox m العمر بالسنة y=datediff("yyyy",date1,date2) msgbox y مثال b=datediff("yyyy","5/2/1983","30/5/2005") msgbox b

الشكر لله سبحانه

بالتوفيق

جميل اخي هيثم