مصطفى_ظيمة

لو سمحتوا عايز أعرف إزاى أعرض عمودين من جدول فى ليست فيو وعمودين آخرين من نفس الجدول فى ليست فيو أخرى فى نفس الفورم

حاول استخدام الأدو فى الاتصال هيكون أسهل وأحسن

دا لأن طريقة اتصال قاعدة البيانات فى برنامجك تعتمد على أن تكون قاعدة البيانات فى نفس مجلد البرنامج

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

الملف فى المثال الثانى بعد التعديل

هل هذا ما تريده y2k.rar

[center ]هذا هو المثال مرة أخرى بعد عمل سيت أب له إضغط على أيكونة البرنامج وسيعمل معك البرنامج تمام إن شاء الله [/ center] _____.rar

تفضل يا أخى ها هو مثالك بعد التعديل عليه أرجو أن ينال رضاك _____.rar

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

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

رحت مع الرابط ولكنى لم أفهم شئ رجاء التعديل على المثال المرفق

أرجو من الأخوة المشرفين على المنتدى تعديل المثال المرفق على ضغط وإصلاح قاعدة البيانات المرفقة بالمجلد والتى لها كلمة سر حتى استفيد منه ويستفيد منه الأخوة فى المنتدى حيث أننى بحثت كثيرا ولم اجد ما أريد ولكم الشكر والتحية المثال هو : New_Folder.rar New_Folder.ra…

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

If Trim(Text2.Text) = "" Then MsgBox "من فضلك إدخل رقم القرار ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "Message" Text2.SetFocus End If If rs.State = 1 Then rs.Close rs.Open "select * from gen where num ='" & Trim(Text2.Text) & "'", db, adOpenKeyset,…

عفوا هذا هو الكود مرة أخرى If Trim(Text2.Text) = "" Then <BR> MsgBox "من فضلك إدخل رقم القرار", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "Message"<BR>Text2.SetFocus<BR>End If<BR>If rs.State = 1 Then rs.Close<BR>rs.Open "select * from gen where num ='" …

هذا الكود يعطى حطأ عند عملية التعديل على أى قرار فما الخطأ فى هذا الكود ولكم التحية If Trim(Text2.Text) = "" Then MsgBox "عفوا يجب إدخال رقم القرار", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "Message" Text2.SetFocus End If If rs.State = 1 Then rs.Close…

ما فيش حد عايز يساعدنى على كل حال شكرا

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

يا جماعة أرجو حد يساعدنى الموضوع مهم جدا وأنا بقالى يومين فى المشكلة دى لو سمحتوا حد يساعدنى

عزيزى ashassuny ولا يهمك بالنسبة للتأخير ولكن التعديل الذى أجريته على المثال مازال يظهر نفس الرسالة الخطأ عند الحفظ بعد إجراء التعديل أرجو مراجعة الكود مرة أخرى وشكرا لمساعدتك لى