• الإعلانات

    • فيصل الحربي

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

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

جواد

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

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

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

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

0 عادي

عن جواد

  • الرتبة
    عضو فعال

معلومات الملف الشخصي

  • الجنس ذكر
  1. السلام عليكم اخواني

    معقول اخواني لا يوجد اي حل
  2. السلام عليكم اخواني اخواني لدي حقلين Text وزر واحد وListview واحدة اريد عند كتابة رقم 6 في الحقل الأول وكتابة مثلاً الرقم 77 في الحقل الثاني يظهر لي في الـ Listview جميع البيانات التي تبدأ من رقم 6 وتنتهي عند الرقم 77  يعني تكون من رقم 6 أو أكثر وتنتهي مثلا عند الرقم 77 أو أقل جزاكم الله كل خير  إنتظر اجابتكم الكريمة وشكرا لكم
  3. السلام عليكم اعزائي الاحباء اواجه مشكلة عند اضافة ملفات لاداة FileListBox انا اريد ان اضيف ملف ملف يعني مثلا اخترت ملف من السواقة C اريد بعدها اضافة ملف او ملفين من السواقة d وبعدها اريد اضافة ملف من مجلد المستندات وهكذا كيف اضيفها الى الاداة هذه وبارك الله فيكم لا اريد ان تظهر جميع الملفات اللي في المجلد   اريد انا اللي اضيفه فقط الى الاداة يظهر اسم الملف في الاداة   كما بالصورة ولكن عندما اقوم بإضافة ملف يذهب الملف اللي كان موجود بالقائمة وينضاف الملف الجديد انا اريد اي ملف اضيفه يبقى موجود http://store1.up-00.com/2016-07/1468229598761.jpg انتظر ردودكم وشكرا لكم
  4. الا يوجد حل اخوني
  5. السلام عليكم اخواني الأحباء كيف نريد حذف عمود اخواني من الـ MsFlexGrid أريد حذفه للعمود اخواني وليس اخفاء العمود لأن عندما استخدمت امر اخفاء العمود وصدرت البيانات ظهر في ملف الأكسل عواميد فاضية لذلك اريد كود اخواني لحذف العمود لكي لا يظهر عند تصدير البيانات إلى اكسل لكي لا يظهر عمود فاضي ملاحظة اخواني : عند حذف عمود من MsFlexGrid لا أريده أن يحذف أيضاً من الداتابيز أريده أن يحذفه بشكل مؤقت فقط من من MsFlexGrid وذلك لكي يتمتصدير البيانات وشكراً لكم اخواني
  6. شكراً لك أخي najy_zl   ولكن للأسف ما زال البرنامج يعلق إن شاءالله سوف أضل احاول فيه لحتى تزبط   يعطيك العافية وشكراً لك
  7. هذا هو الكود أخي najy_zl   أنتظر ردك أخي najy_zl بارك الله فيك  Public Sub ExHTM(Optional Path As String, Optional Title As String) Set Form1.ContactTable = Form1.db.OpenRecordset("SELECT * FROM Record ORDER BY Product") With Form1.ContactTable .MoveFirst Open Path & "Favorite.html" For Output As #1 Print #1, "<HTML>" Print #1, "<HEAD>" Print #1, "<TITLE>" & Title & "</TITLE>" Print #1, "</HEAD>" Print #1, "<BODY BGColor=""#FFFEFB"" Text=""#3C6CBC"">" Print #1, "<H2>" & Title & "</H2>" Print #1, "<UL>" Do While Not .EOF Print #1, "<LI><A HREF=""" & !ID_Number & !Product & ".html"">" & !ID_Number & ", " & !Product & "</A></LI>" .MoveNext Loop Print #1, "</UL>" Print #1, "</BODY>" Print #1, "</HTML>" Close #1 .MoveFirst Form1.PBar1.Min = 0 Form1.PBar1.Max = .RecordCount Form1.PBar1.Value = 0 Do While Not .EOF Open Path & !ID_Number & !Product & ".html" For Output As #1 On Error Resume Next Print #1, "<HTML>" Print #1, "<HEAD>" Print #1, "<TITLE>" & !ID_Number & " " & !Product & "</TITLE>" Print #1, "</HEAD>" Print #1, "<BODY BGColor=""#FFFEFB"" Text=""#3C6CBC"">" Print #1, "<FONT Tahoma >" Print #1, "<H2>" & !ID_Number & " " & !Product & "</H2>" If !Product <> "" Then Print #1, !Product & "<BR>" If !Company <> "" Then Print #1, !Company & "<BR>" If Not (!POBox = "" And !City = "" And !Fax = "") Then Print #1, !City & ", " & !POBox & " " & !Fax & "<BR><BR>" End If If !Productvip1 <> "" Then Print #1, "<B>Product vip 1:</B>: " & !Productvip1 & "<BR>" If !Productvip2 <> "" Then Print #1, "<B>Product vip 2:</B>: " & !Productvip2 & "<BR>" Print #1, "<BR><B>Product4</B>: " & Form1.Combo.List(!Group_Product) & "<BR>" If !Email <> "" Then Print #1, "<B>Produc5</B>: " & "<A HREF=""mailto:" & !Email & """>" & !Email & "</A><BR>" If !Web <> "" Then Print #1, "<B>Web Site</B>: " & "<A HREF=""" & !Web & """>" & !Web & "</A><BR>" Print #1, "<B>Product2</B>: " & Format(!Product2, "00") & "/" & Format(!Product3, "00") & "/" & Format(!Product, "00") & "<BR>" If !Comment <> "" Then Print #1, "<BR><B>Product1</B>:<BR>" Print #1, !Product1 & "<BR>" End If Print #1, "<BR><A HREF=""Index.html"">Home Page</A>" Print #1, "</BODY>" Print #1, "</HTML>" Form1.PBar1.Value = Form1.PBar1.Value + 1 Close #1 .MoveNext Loop End WithEnd Sub
  8. أهلاً أخي najy_zl   أنا واضع قبل الـ Loop هذا الكود .MoveNextولم ارفق الكود لأنه كبير   شكراً لك سوف اضع الكود لأني ما أعرف ما هو سبب التعليق
  9. السلام عليكم اخواني الأعزاء سؤال اخواني لماذا يعلق معي البرنامج عند أسخدام هذا الأمر  Do While Not .EOF Loop    وشكراً لكم أنتظر ردكم أخواني
  10. الله يبارك فيك اخي العزيز al7ndeem   وجعلها الله إن شاء الله بميزان حسانتك   شكراً لك
  11. شكراً أخي al7ndeem اله يعطيك العافية   ولكن أخي المثال اللي ارفقته يقوم بتغيير أول سطر بس   وما يغير الباقي   انا كنت اريد ان يغيير كل اللي الاسماء الموجودة بالـ ListView   يعني اي اسم مثلاً اسمه احمد موجود في الـ ListView   اريده مثلا ان يغيره إلى أي اسم ثاني احدده انا من الحقل الاحمر     ولكن اريده ان يغير كل الموجود في الـ ListView   يعني لو الـ ListView يوجد بها 10 اسماء والداتا بيز يوجد بها 50 اسم   اريده ان يغيرلي الـ10 أسماء الموجودين بالـ ListView   وينحفظ التعديل بعدين بالداتا بيز فوق الـ  10 اسماء الموجودين بالداتا بيز   وشكراً لك مرة أخرى   أنتظر ردك أخي العزيز
  12. السلام عليكم اخواني   هذا مثال ويوجد فيه كود ولكن يوجد بالكود خطأ صغير   كيف نغير الاسماء الموجودة بالـ Listview على حسب رقم الـ Id  الخاص بها   نغيرهم من التكست الموف إلى التكست الأحمر   المثال بالمرفقات         وشكراً لتعاونكم Project1.rar