mrx_ta7ady

عليك الذهاب الى نافذة الـ Properties داخل الـ Design وإختيار الخاصية Picture أو إستخدام الكود Set Me.Picture = LoadPicture("C:\1.bmp") بإعتبار أن "C:\1.bmp" هو مسار الصورة

إستخلص النقطة التي ذكرتها من المشروع وقم برفعها إذا أردت الكود أما الحل النظري فعليك إستخراج البيانات من قاعدة البيانات وترتيبهم حسب القسم أولا ثم حسب الشعبة ثانيا ومن بعدها عليك أن تملأ مسلسل الطباعة بـ Loop

بالنسبة للسؤال الأول .. أي بيانات تقصد ؟؟ الحقول أم السجلات ؟؟ قابلتني مشكلة فعلا في حالة عدم وجود سجلات في قاعدة البيانات عند الدخول .. هل هذا ما تقصده ؟؟ أم تقصد انه في حالة إعطاء الأمر Delete يصادفك مشكلة ؟؟ .. عموما تم تعديل النموذج الأول وإعادة رفعه والسب…

مبدئيا كده انا مش فاهم منك حاجه .. بس تعالى نرتب أفكارنا سوى انت بتقول ان الكومبو مكتوب فيه ( إختر اللغة ) وانت بتشيك على العنصر المحدد = لا شيء او لأ .. صح كده ؟ والمطلوب ان اذا العنصر المحدد = ( إختر اللغة ) برده تظهر نفس الرساله .. صح ؟؟ وهنزود من عندنا كما…

أعتقد ان المطلوب هو إضافة ملف صوتي على الـ eXe وتشغيله عند فتح الـ eXe .. أليس كذلك ؟؟ لإضافة ملف عليك أن تضعه في Resource File صاحب الإمتداد ( *.res ) وذلك من خلال الـ Add-Ins الذي يسمى VB 6 Resource Editor والملف الصوتي تقوم بإضافة كـ Custom Resource لتجد أن…

انا متفق مع العقدة نوعا ما ولكني لم افهم الرد جيدا الحقول التي ملأها المستخدم مربوطة بالـ Data .. فأصبحت العملية معكوسة أي أنك ملأت الحقول داخل الـ Recordset قبل إعطاء الأمر AddNew .. وهذا لا يجوز مطلقا ولهذا أمامك ثلاثة حلول الحل الأول أن تلغي الربط بين الحقو…

الـ Seed في الحقول الـ AutoNumber هي الخاصية المخزن بداخلها القيمة القادمة وهي من نوع Long Integer ويتم التعديل عليها عند الشروع في إضافة سجل جديد على جدول به حقل من النوع AutoNumber يتم تلقائيا إضافة القيمة الموجوده في خاصية الـ Increment على آخر قيمة في الـ …

الحل بالمرفقات AutoNumber.rar

ياريتك تستخلص من مشروعك الجزئية التي بها المشكلة وترفعها يكفي جدول واحد وحقل واحد وشاشة واحدة .. فقط نريد أن نرى المشكلة لنعطيك الحل الدقيق ان شاء الله

أين نص رسالة الخطأ ؟؟

يعني ايه (اين اضعها من هذا الكود) المفترض انك هتحط دالة الـ API في منطقة التصريحات ( الـ Declarations ) وتخليها Private أو Public زي ما تحب وحسب المكان اللى هتحطها فيه Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long أو Public De…

أتمنى من الله أن اكون وفقت فيما تريد t200.rar

فشل عملية الـ Update لهذا الحقل شيء طبيعي ومتوقع لانه لم يعد الحقل المطلوب ولا حتى يحمل نفس الإسم في الجملة المصاغة بالاعلى .. ستجد إسمه Exp1000 على ما أعتقد والحل الآن إحدى إثنين الأولى فصل الـ Recordset التي تجري عليها حركاتك عن التي تعرض منها وهذا يتطلب إعا…

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long Private Sub Command1_Click() MessageBeep 0 End Sub

في حالة تمسكك بـالصورة وخاصة رغبتك في ملئ الـ Form بالصورة فيستحسن تصميم الـ Form كما في المثال المرفق أو بإمكانك رفع الـ Forms خالية من أي كود ومن أي كلمات .. فقط تحوي الـ Controls وصورة الخلفية وإن شاء الله نقوم بوضع الكود المناسب Resize_Event.rar

If (Month(DTPicker) = 12 And Day(DTPicker) > 22) Or (Month(DTPicker) = 1 And Day(DTPicker) < 20) Then Label1.Caption = "2" ElseIf (Month(DTPicker) = 11 And Day(DTPicker) > 23) Or (Month(DTPicker) = 12 And Day(DTPicker) < 22) Then Label1.Caption = "1" ElseIf (M…

اذا بتدخلي عن طريق الـ Source Code بعد ما بتظهرلك الرساله افتحي الـ Preferences من قائمة Project وشوفي أي واحده جمبها كلمة Missing

DTPicker1.CheckBox = True DTPicker1.CheckBox = False

إذا بتستخدم الأكسيس قم بوضع الـ Format المناسب في جملة الـ SELECT "SELECT Format([MYField], 'yyyy/mm/dd') FROM [MYTable]"

DTPicker1.CheckBox = True DTPicker1.CheckBox = False