mmghv

اجل .. هذه الجملة هيا فقط ضعها بين سطور الاكواد في الامر Command1_Click وعند مرور البرنامج على هذه الجملة سيذهب لتنفيذ الامر Text1_Click ثم يعود لإستكمال تنفيذ الاوامر في زر الامر .. وبالمثل لأي إجراء آخر .. فقط ضع اسم الإجراء في اي مكان وبذلك تستدعي تنفيذ اوا…

اظن ان اداة الـ CommanDialog العادية لا تحتوي على خاصية يمكنك من خلالها تحديد مقاس الورقة .. لكن .. Vbprndlg microsoft link

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

مع الـ TextBoxجرب استخدام الكود : Private Sub Text1_Change() Form1.Font = Text1.Font Text1.Width = Form1.TextWidth(Text1.Text) End Sub

من خلال عمل لووب للجدول وإضافة قيمة الحقل في الـ Combo

فقط اضبط خاصية الـ AutoSize على True للـ Text او الـ Label

في هذه الحالة إما ان تعتمد على الوسط الحسابي لأسعار التكلفة (مجموع اسعار التكلفة المختلفة / عدد عدد اسعار التكلفة المختلفة) او تقسم الصنف في المخزن الى مجموعات لكل مجموعة سعر تكلفة .. مثلاً مجموعات مقسمة حسب المورد ولكل مجموعة سعر تكلفة مختلف او مجموعات مقسمة …

تمام .. بالتوفيق

1- إذا كانت نتيجة البحث في الـ Adodc فما عليك سوي تمرير الـ RecordSet من الادودك للداتاريبورت من خلال الكود: Set DataReport1.DataSource=Adodc1.RecordSet 2- راجع كود التعديل في المشروع في اول الموضوع 3- يمكنك عمل جدول إعدادات يوضع به حقل للباسورد يتم التأكد منه…

اكون سعيد بهذا اخي فأنا اكاد لا اجد احد يتفاعل مع هذا المنتدى وإن شاء الله الكل يستفيد بالتوفيق للجميع ..

الاخ realdie10 ما قصر , جزاه الله خير .. لكن في المرة القادمة حاول توضيح سؤالك بالكامل اخي الكريم .. بالتوفيق ..

الكود صحيح لكن في مشروعك انت كتبت : Adodc1.Recordset بدلاً من : Adodc1.Recordset.ActiveConnection ايضاً قبل كود وضع القيم في التكستات قم بإضافة السطر : On Error Resume Next حتى لا يحدث خطأ عندما تكون قيم الحقول فارغة (Null)

لا اعرف إذا كان يمكن ربطها بالـ Data ام لا , لكن يمكن ربطها بالـ Adodc من خلال الكود : Set Datareport1.DataSource = Adodc1.RecordSet لا يتم الربط عن طريق الاكسس (اي لا نقوم بعمل اي علاقات عن طريق الاكسس) ولكن كل شئ يتم داخل الفيجوال بيسك ونحتاج للربط بين جدولي…

هل جربت ان تأخذ الكود Copy وتضعه Paste في حدث الـ Change الخاص بالتكست ؟؟!

عندك ثلاث اخطاء بالكود : الاول : وهو خطأي انا حيث نسيت ذكره: انه يجب إضافة الكود Adodc1.Refresh بعد سطرين الكود الثاني : انك استخدمت الإستعلام : select * from bills product as [الصنف], quantity as [عدد] استخدمت العلامة (*) والتي تعني اعرض كل الحقول في حين اننا…

ولا يهمك اخي كلنا نتعلم .. استخدم الـ Adodc وإن واجهتك اي مشكلة او استفسار لا تتردد في طرحه بالتوفيق ..

إذا كنت تريد عرض اسم الشركة في الكومبو عند تغيير محتوى Text8 فيمكن استخدام الكود التالي في حدث الـ Change للتكست : Dim TmpRS As New ADODB.Recordset TmpRS.Open "Select Company_Name From Campany Where Company_ID=" & Val(Text8.Text), DB, adOpenStatic, adLockReadO…

يا اخي مشاكلك كلها انك تستخدم اداة الـ Data للربط بالداتابيز وهذه لا تدعم الفلترة وتقريباً لا تدعم الداتا ريبورتس ايضاً (لست متأكد من هذه النقطة حيث اني لم استخدم الداتا ريبورت قبل ذلك) قم بإستخدام اداه الـ Adodc للربط مع الداتابيز واساتخدم نفس الاكواد استخدم …

في هذه الحالة سنقوم بحذف السجلات من قاعدة البيانات فقط ثم نقوم بإعادة تعبئة الليست فيو بما هو موجود في قاعدة البيانات (مع ملاحظة اننا نقوم بحذف كل السجلات المحددة مرة واحدة , إذا لم تفهم هذه النقطة جيداً واردت فهمها اخبرني اما إذا كان كل ما تريد هو عمل الكود ف…

سطر محدد يعني : Select ام Checked ؟؟ في كلتا الحالتين تقوم بعمل لوب على عناصر الليست وترى إذا كانت محدد ام لا ثم تقوم بحذفها فمثلاً لحذف كل العناصر المحددة Checked نستخدم الكود : For n = TreeView1.ListItems.Count To 1 Step -1 If TreeView1.ListItems(n).Checked …