mmghv

الإستعلام صحيح ولا يوجد به خطأ .. هل قمت بتسطيب الـ SQL Server او الـ Driver الخاص به على الاجهزة الخرى التى لا يعمل عليها الإستعلام ؟؟ أرجوا وضع نص الخطأ الذى يحدث معك لنستطيع مساعدتك ..

إذاً بدلاً من (*) في الكود والتي تعني كل الحقول نضع اسم الحقل المحدد وهو Tel وبدلاً من الرقم المكتوب للـ ID نجعله يقرأه من الـ ListView فيكون الكود كالتالي : DB.Execute "Insert Into Table2 Select Tel From Table1 Where ID=" & Val(ListView1.SelectedItem.Text) هذ…

في طريقتين .. الاولى انك تنشأ 2 RecordSet يعني مثلاً (RS1 , RS2 ) واحد تربطه بالجدول الاول والتاني تربطه بالجدول الثاني وتاخد بيانات السجل من الجدول الاول وتعمل AddNew في الجدول الثاني .. الثانية وهي الاسهل بالنسبة ليه هي إستخدام امر SQL Command لعمل هذا الموض…

المهم ان المعلومة وصلت والإفادة تمت, دي اهم حاجة وده الي اتمناه ...

اه نقدر ليه لأ .. احنا لما نعوز نعدل بيانات في الداتابيز بنعمل ايه ؟؟ بنعدلها في الـ RecordSet ونعمل Update .. زي كدا : RS.Fields("Tel") = "012" RS.Update طاب .. احنا هنا عايزين نعدل كل البيانات في الداتابيز .. يبقى هنحتاج لووب على الجدول كله ونعدل بيانات الحق…

إذا كان ما تريده هو إضافة النص المكتوب بالتكست لكل عناصر العمود الثاني في الـ ListView فقط استخد الكود التالي: For n = 1 To ListView1.ListItems.Count ListView1.ListItems(n).SubItems(2) = ListView1.ListItems(n).SubItems(2) & Text4.Text Next حيث ندور على كل عناص…

قم بإضافة الكود التالي قبل كل عملية تصدير للجدول : Set oRange = oDoc.Bookmarks("\EndOfDoc").Range oRange.Text = vbNewLine & Text6.Text oRange.Font.Color = wdColorRed ايضاً في المرفقات المثال بعد التعديل .. طباعة بيانات الشبكة في اللورد.rar

المثال بعد التعديل في المرفقات ... مع ملاحظه انه عند إضافة سجل جديد يجب ان تحدد قيمته بنفسك وتكون اكبر قيمة موجوده بالجدول +1 لذا تحتاج ان تجعل قيمته هي ناتج الإستعلام : Select Max([Order])+1 From Table1 Project1_2.rar

بالنسبة للـليست بسيطة لكن بالنسبة لقاعدة البيانات لا اعتقد ان هناك طريقة مباشرة يمكنك بها نقل سجل من ترتيبه لكنك إذا كان الترتيب مهم جداً هكذا يمكنك عمل حقل رقمي يوضع فيه ترتيب السجل الذي تريده ويبقى ترتيب السجلات كما هو في قاعدة البيانات لكن عند عرضها في البر…

بدالة Format يمكنك الحصول على هذه القيمة, وتكون بالصيغة: Format(Time, "AMPM") مثال لإستخدامها : If (Format(Time, "AMPM")) = "AM" Then ............ ElseIf (Format(Time, "AMPM")) = "PM" Then ............ End If لكن هذه الطريقة ليست جيدة حيث تعطي القيمة حسب إعداد…

العفو اخي .. بالتوفيق

ماذا تقصد بــ : هل تريد تغيير قيمة العنصر؟؟ ام جلب بيانات الملف النصي الذي يكون مساره هو العنصر المحدد بالليست ؟؟!

بالتوفيق ...

بسيطة جداً .. تابع الكود في المثال مع ملاحظة انه يمكننا تبطيئ العملية او تسريعها بتغيير الـ Interval للـ Timer .. form.rar

لا لو استخدمنا Timer لن نستخد هذا الكود, بل سنجعل التايمر يقوم بنقل عنصر كل مرة

ربنا يوفقك .. على العموم إذا كنت تريد إظهار عملية التتابع للمستخدم يمكنك إستخدام Timer لتكون العملية ابطء ويستطيع المستخدم ملاحظتها ..

ولماذا تريد نقل العناصر بالتتابع طالما انت ستضغط على الزر وفي الحالتين ستجد كل العناصر تم نقلها في الحال دون ان تلاحظ ؟

إذا كنت تريد نقل كل العناصر من List1 الى List2 بإضافة النص المكتوب في Text2 فقط استخدم : List2.Clear For n = 0 To List1.ListCount - 1 List2.AddItem List1.List(n) & Text2.Text Next List1.Clear

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

اخي اريد التنويه فقط الى ان الطلب من عضو بعينه مخالف لقوانين المنتدى على ما اظن .. اما بالنسبة لمشروعك .. فهو يحتاج لكثير من العمل كما ذكر الاخ evry1falls لذلك قمت بعمل مثال بسيط للتعامل مع قواعد البيانات من خلال الكود بإستخدام مكتبة الـ Ado في الربط والتي تست…