المهنا

للرفع

تفضل /index.ph...topic=74360&hl=

من منتديات المختار للبرمجة -> منتديات الفيجوال بيسك -> منتدى برمجة قواعد البيانات بإستخدام فيجوال بيسك 6 الامثلة ليس لى الا النقل وبه كل الطرق والحلول وفي مشاركات المهنا الكثير الكثير من هذه الاستفسارات fined2.rar ____________________.rar firstsoft.rar _______…

اتمني حل المشكلة لحاجتنا لهذه الاداة

مع كل الشكر والتقدير لهذا العمل المتميز والرد السريع وفكرة حلوة جدا

هل من الممكن اختصار هذا الكود لان عندي اكثر من 69 اداة تكست 69 كامبو اريد ان تتم عملية اخفاء الكامبو عند الخروج من التكست الى اي عنصر حتى ولو كان الزر او الفورم مع جعل قيمة الكامبو = قيمة التكست Private Sub Combo1_Click() Text1.Text = Combo1.Text Combo1.Visibl…

مثال كامل لــ 1- انشاء ملف txt*. النصي 2-حفظ بيانات Listbox الى الملف النصي 3- استرجاع وتحميل البيانات من txt*. الملف النصي الى Listbox شارك في هذا العمل الاخ / شيرر Copyright© Firstsoft Corp. 2004-2005 الاخ / Mohammed-Saeed الاخ / المهنا مع الشكر لكل من ساعد …

الف شكر بس الكود ممتاز 100/100

نعم في الاداة تعارض كبيير بينها وبين الدالة Right راجع الموضوع /index.ph...47entry429847 اتمنى حل المشكلة قم باضافة الاداة في اي مشروع واستخدم الكود Text1.Text = Right(Text16.Text, 4) Text2.Text = Left(Text16.Text, 1)

هذه الاداة تتعارض مع بعض الاكواد /index.ph...47entry429847

حددنا المشكلة وهي عند اضافة الاداة StyleButton يوجد تعارض بين الكود والاداة هل من حل قمت بارفاق الاداة StyleButton.rar

للرفع

للرفع

شكرا لك بس مشروعي هذا اعمل فيه من ثلاث سنوات هل من حل اخر

الاخ العزيز 1- المشاركة المقصودة هي على الرابط التالي /index.ph...topic=81758&hl= والسؤال كان والحل كان Private Sub Command1_Click() n = FreeFile Open "c:test.txt" For Append As #n For x = 0 To List1.ListCount - 1 Print #n, List1.List(x) Next Close #n End Sub …

الملف معطوب

كيف اقوم بتحميل كامبو بوكس ببيانات تكست الملف المرفق *.txt _____.rar

شكرا لك بس مشروعي هذا اعمل فيه من ثلاث سنوات هل من حل اخر

If Rs("f1").Value = " " Then DataReport2.Sections("section4").Controls("Label1").Visible = False End If هل تقصد هذا الكود اذا كان المحتوى لا يساوي شئ يخفي Label1 في الداتاربورت F1 اسم الحقل الذي لا يحتوي على بيانات

مشكلتي مع Compile يكتشف الخطا في مشروعي فقط وعند القيام بعمل مشروع جديد لا يكتشف الخطاء صورة الخطاء مكان الخطاء الكود والخطاء في كلمة Right للتكست لم يتعرف عليها في مشروعي فقط Text1.Text = Right(Text16.Text, 4) Text2.Text = Left(Text16.Text, 1)