HnHn

عذرا للعنوان أذا كان لا يرمز إلى المقصود ولكن لم أجد الصيغة المناسبة لتوضيح المسألة المسألة هي كما يلي اريد طباعة بيانات شخص وهو مسجل عندي في سجلين متتاليين بحيث تظهر بياناته الغير مكرره بمعنى في الجدول المرفق يوجد عندي شخص أسمه أحمد ورقمه الخاص 471 وهو مسجل م…

ولكن عند استخدام هذه الخاصية Combobox1.Locked = true لا يتم أختيار أية بيانات إلا عند تحويلها للـ false عندها يستطيع المستخدم الكتابو وهذا ما لا أريده

كيف أجعل المستخدم يختار فقط البيانات من الاداة Combo ولا يستطيع الكتابة بداخلها .

أذا كان عندي برنامج مصمم بالفيجول وله قاعدة بيانات بالاكسس وعملت سيتب أو أنزل البرنامج على جهازين وتكون قاعدة البيانات إللي بالأكسس مشتركة بين الجهازين فكيف يمكن عمل ذلك الاتصال

تسلم لي يالغالي

اشكر كل من الاخ hishamnasr و العالم فكلاكما صحيح ولكن أنا أريد أعرف أخي hishamnasr الطريقة في حال تم ربط البيانات لهذه الأداة بواسطة الكود أي بمعنى أن تكون خواص هذه الاداة كلها بالكود

عندي سؤلان بخصوص أداة DataGrid السؤال الأول كيف أستطيع أخفاء بعض الاعمدة التي لا أحتاج إلى عرضها السؤال الثاني كيف أستطيع توسيط النص في أداة DataGrid

أشكرك أخي بعنف

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

عندي سؤلان أبغى أبرمج زر Enter للتنقل بين الحقول فما هو رقم هذا الزر مع الكود الخاص بعملية التنقل السؤوال الثاني أبغى عند أدخال عدد معين من الحروف أو الأرقام داخل التيكس بوكس ينتقل تلقائياً لتيكس الآخر مثلاً عند كتابتة أسم احمد والمكون من أربعة حروف بعد كتابة …

عندي قاعدة بيانات وسويت لها زر بحيث أذا أبغى أشيل البيانات من جدول ووديه جدول ثاني .. بس أبغى أعرف كيف يتم ذلك . لأني سويت الزر بس ما ني عارف كيف أحفظ البيانات في الجدول الثاني عن طريق الأدة MSFlexGrid فياريت أحد يكملي أو يقولي على كود الحفظ وأبغى البيانات من …

كيف أو ما هو كود أستدعاء دليل العناوين الخاص بالويندز

كيف أقوم بطباعة ناتج الفلترة للبيانات كما في الملف المرفق FilterRecord4.zip

Dim AppPath As String ' If Right$(App.Path, 1) <> "\" Then AppPath = App.Path & "\" Else AppPath = App.Path End If ' With SmartyReport1 .BackGroundColor = vbWhite .Font = "Aril" .FontBold = True .FontColor = vbBlack .FontItalic = False .FontSize = 10 .FontUnde…

طيب أخي كيف أطبع ناتج البحث فقط بواسطة الكريستال ريبورت

أنتظر الحل

تفضل أخي الكريم أدعس أهن

عندي 3 أسئلة السؤال الأول كيف أقوم بنقل جميع البيانات المستعلم عنها دفعه واحدة السؤ ال الثاني كيف أستطيع عمل زر تراجع عند النقل أو الحذف السؤال الثالث كيف أستطيع أن أعمل زر لحذف جميع السجلات الموجودة في قاعدة البيانات دفعة واحدة .

لأني قرأت عن هذه المعلومة في أحدى المواقع الخاصه بالفيجول ولقيت أنهم يستخدمون هذا الأمر on Erro Resume Next IbIstatus.width = me.width-1500 cmdnext.left=IbIstatus.width+700 cmdlast.left=cmdnext.left+340 ثم يستخدم جملة تكرار ويضع داخلها جميع الحقول الموجودة في …

مامن مجيب أرجو الاطلاع على أكواد البرنامج وأخباري أين الخطأ بلييييييييييييييزا