متأمل

يا ليت لو ترفع محاولتك لأتمكن من التعديل عليها

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

أنا لم أضف جديد .. حيث أنّ الجملتين التاليتين سيتم من خلالها تحديد النص في التيكست بوكس .. يعني اضغط على زر النسخ و راح ينسخ بدون الحاجة إلى التضليل Me.Text1.SelStart = 0 Me.Text1.SelLength = Len(Me.Text1.Text) الجملة الأولى لتحديد بداية التضليل الجملة الثانية…

أخي الفاضل .. يمكن ذلك بأخذ قيمة الخليّة و إدراجها بجملة الاستعلام .. ليتك تتفضل بوضع محاولاتك لأتمكن من التعديل عليها حسب ما تريد .. فقط أرفق المثال مشكوراً

أخي الفاضل .. في الجمل التي تفضلت بعرضها .. لا زلت تعاود الاتصال بالبيانات في كل مرّة تتنقل فيها .. ما أقترحه ( رغم قلّة علمي ) : أن تنشيء الـ Recordset من خلال استعلام مشروط ثم تتركه مفتوحاً و تتنقل بين السجلات كالتالي : rs.MoveFirst rs.MoveLast rs.MovePrevio…

ارفق محاولاتك ليتم مساعدتك

شكرا لأخي علاء .. و إليك كود زر النسخ ليقوم بالتحديد و النسخ Private Sub Command1_Click() Me.Text1.SelStart = 0 Me.Text1.SelLength = Len(Me.Text1.Text) DoEditThing "Copy", Text1 End Sub

أنت رائع بروعة عطائك و كما تقول العرب : لك من اسمك نصيب جزاك الله كل خير

الكود الذي أرفقته يوجد فيه إشكاليّات كثيرة على أيّ حال .. إضافة البيانات الجديدة لثلاثة جداول مرتبطة من خلال عدد من الحقول غير ممكن من خلال استعلام واحد كما أعلم لذا أقترح أن تستخدم جملة Insert لكل جدول على حدة ثم تنفيذ الاستعلام كما يلي : Private Sub cmdadd_C…

أخي الفاضل لتفادي عرض جميع البيانات ، أنصح باستخدام جملة SQL و استخدام شرط فيها لاستدعاء سجلات محددة بدلاً من استدعاء جميع البيانات من الجدول مثال : strSQL = "select * from Tb1 where [ID] in ( 1,2,3,4 ) " Rs.Open strSQL,db ........ Tb1 = اسم الجدول في قاعدة ال…

أخي الفاضل .. من الصعب إيجاد حل بدون إرفاق مثال على الخطأ .. على أي حال .. هل استخدمت الـ App.path لتحديد مسار قاعدة البيانات ؟

أتمنى أن يفي بالغرض المثال المرفق ! asa2.rar

تفضل بعد تعديل زر الجديد و تعبئة الليست بوكس و الانتقال إلى السجل المحدد في الليست بوكس prog1.rar

تفضل بعد التعديل LogIn.rar

تأكد أن جملة rsdyn.AddNew ليست مكررة .. بمعنى .. عند رغبتك إضافة سجل جديد فقد تستخدم زر للإضافة و تسند إليه الجملة : rsdyn.AddNew ثم بعد أن ينتهي المستخدم من تعبئة البيانات تستخدم الكود الذي كتبته في الأعلى .. مما يتسبب في إدراج حقل فارغ .. و الله أعلم

أنا أيضاً حاولت أربطا بالريكورد سيت و لم تستجب .. جرّب هذا التحايل : أنشئ أداة adodc1 Me.Adodc1.RecordSource = "select * from T3 where T2_id in ( select id from T2 where T1_id=" & Me.Combo1.ItemData(Me.Combo1.ListIndex) & ")" Me.Adodc1.Refresh Set Me.DataGrid1…

تفضل Dim DB_Path As String DB_Path = App.Path & "\DB1.mdb" Me.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Path & ";Persist Security Info=False" Me.Adodc1.Refresh Me.Adodc1.CommandType = adCmdUnknown Me.Adodc1.RecordSource = "…

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

السلام عليكم إيماناً بأنّ من الوفاء أن نعطي مقابل الكثير الذي أخذناه من هذا المنتدى الشامخ تجد في المرفقات مشروع صممته حسب ما فهمته في موضوعك حيث وضعت قاعدة بيانات فيها 3 جداول كل واحد مرتبط بالذي بعده ثم صممت فورم فيه 2 كمبو بوكس و داتا قريد و أداة adodc عند …