• الإعلانات

    • فيصل الحربي

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

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

abdo_200595

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

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

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

السمعه بالموقع

0 عادي

عن abdo_200595

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 04/19/1987

طرق الإتصال

  1. بســم الله الـرحمــن الرحيــم السلام عليكــم ورحمـة الله وبركاتــه كيف يتم برمجة فورم عند مرور الماوس يظهر كما بالصورة التالية
  2. بسم الله الرحمن الرحيم كود لجمع حقل داخل قاعدة بيانات وليكن لدينا حقل داخل قاعدة البيانات باسم "price" الكود Dim SQ As String SQ = "SELECT sum(price)as المجموع FROM Hotel" Data2.RecordSource = SQ Data2.Refresh بالتوفيق
  3. Shell ("d:\Program Files\Internet Explorer\iexplore.exe www.arabteam2000-forum.com "), vbNormalFocus الكود السابق يمكنك من فتح iexplore وكتابة الموقع المراد فتحه كما فى الكود
  4. اخى الغالى najahaja يمكنك ادراج الملف اللى انت عاوز تشغله مع البرنامج فى نفس المجلد عن طريق برنامج الـPackage وانت بتعمل setup للبرنامج او لو مش عاوز تعمل setup ممكن تضع الملف المراد تشغيله فى البرنامج فى نف المجل الموجود فيه البرنامج بنفس الكود اللى فات بالتوفيق :rolleyes:
  5. شكرا اخى jooorj على الكواد الممتاز وانا اشكر HnHn على الكود Rs.RecordCount لانه ساعدى فى ايجاد الحل شكرا على الاهتمام بالتوفيق
  6. لاضافه ملف فلاش ضع زر تحكم command و الاداه ShockwaveFlash1 ثم اكتب الكود التالى فى زر التكحكم Private Sub Command1_Click() ShockwaveFlash1.Movie = App.Path & "\MILINTRO.swf" ShockwaveFlash1.Play End Sub الشرح الكود : ShockwaveFlash1.Movie = App.Path & "\MILINTRO.swf لاضافه ملف الفلاش فى الاداه اما الكود ShockwaveFlash1.Play فهوا لتشغيل ملف الفلاش تلقائيا اما عن ملف avi ضع الاداه MMControl1 وسمها mm وضع زر تحكم command واكت الكود التالى : Private Sub Command1_Click() mm.FileName = App.Path & "\1.mp3" mm.Command = "open" mm.Command = "play" End Sub الشرح : الكود mm.FileName = App.Path & "\1.mp3 لتحميل الملف المراد تشغيله من الامتدادات التاليه avi , mp3 , wav ...الخ اما الكود mm.Command = "open" mm.Command = "play" لتفعيل الاداه ولتشغيل الملف تلاقائيا بالتوفيق اخى الغالى هذا رابط المشاريع http://www.geocities.com/abdo_200595/my/swfavi.zip بالتوفيق
  7. اريد كود لمعرفه عدد السجلات فى قاعدة البيانات الرجاء الرد السريع وشكرا لكم
  8. بارك الله فيك طريقة جيدة شكرا لك اخى
  9. الاكواد كود الاضافة : Data1.Recordset.AddNew كود الحفظ : Data1.Recordset.Update كود البحث : Dim y As String y = InputBox("من فضلك أدخل الاسم") y = "'" & y & "'" Data1.Recordset.FindLast "TELL =" & y If Data1.Recordset.NoMatch Then MsgBox "هذا الاسم غير موجود" End If هنا TELLهوا اسم الحقل المراد البحث فية اما اكواد التنقل كود السجل الاول : Data1.Recordset.MoveFirst كود السجل الاخير : Data1.Recordset.MoveLast كود التالى : Data1.Recordset.MoveNext كود السابق Data1.Recordset.MovePrevious بالتوفيق
  10. اريد نقل سجل من جدول الى جدول اخر عن طريق الاداه datacontrol ارجو الرد السريع للاهمية وشكرا
  11. اريد كود لنقل سجل من جدول الى جدول اخر فى نفس قاعدة البيانات ولكم جزيل الشكر
  12. سلسلة دروس فى قواعد البيانات

    بصراحه اخى شريف الموضوع ممتاز جدا شكرا اخى الغالى
  13. الف شكر يا غالى على الموضوع المتتاز بالتوفيق اخى الغالى