اريد كود تنسيقات عمليات السجلات

هلا والله بك

رح لموضوعي "دروس من البدايه الى الهاكرز"

وحتلقى بعد زياديه على الي قلته مع بحث سريع وبحث بطيء وعلى كيفيك وسوف تجعلك من 0 الى 90

درة البحر

بالنسبة لقواعد البيانات فعليك تحديد الطريقة التي ستتعاملين بها ado or dao او data controle و كذلك عليك تجديد نوع الداتا بيز اكسس ام اوركل ام غيرها

على كل حال في قسم الدروس باعلى الصفحة الرئيسية ستجدين كل ما تبحثين عنه

هذا المشروع اكيد سيفيدك كثيراً كثييراً

ارجو ان اكون وفقت لما تريدينه

New Folder.rar

الشكر الجزيل لسرعة التجاوب الله يوفق الجميع

جاري تنزيل الملف وبالنسبة للقاعدة - فيجوال مربوط بالآكسس باستخدام الأداة adodc

وبالنسبة للموضوع راح ازوره واوافيكم بالمستجدات

اكرر الشكر الجزيل للتجاوب السريع ماشاء الله عليكم

الله يخليكم لهذا المنتدى

-----------------------

جاري تنزيل الملف وبالنسبة للقاعدة - فيجوال مربوط بالآكسس باستخدام الأداة adodc

----------------------

اقترح عليك استخدام Ado بالكود

اخ professional vb999

اطلعت على الموضوع ونزلت الملفات جميعها لكن للاسف مالقيت المطلوب

وإن شاء الله يرجعلك حسابك القديم

يامبرمجين يأعزاء انا اعرف الاكواد لكن اريدها مع المسج

الرجاء قراءة موضوعي مرة اخرى والرد باسرع وقت

الله يخليكم

السلام عليكم ورحمة الله وبركاته

لم ار الملف لكن اذا كانت المشكلة فى المسج بوكس فالحل هو وضع المسج بوكس فى متغير ثم الاستدلال على الزر المضغوط بالجملة if , Select Case

Private Sub cdmDelete_Click()
Dim M As String
M=MsgBox("Are you sure you want to delete the current record ?",vbQuestion + vbYesNo)
If M=vbYes Then rs.Delete
End Sub

مشكور اخوي GHOST2010

طبق على الاضافةلكن جز الاضافة اللي يقول(لما اريد اضافة سجل جديد يعطيني مسج تم اضافة سجل جديد

ولما اريد اضافة اخرى بدون ماكتب البيانات يقول مسج لم يتم تعبئة السجل الحاليلن يقوم بنقلك حتى تتم البيانات.)

وباقي الاسئلة الله يخليك

انى ادري ان وقت المبرمجين غالي عليهم وانا مابغى اضيع وقتهم

شكر جزيل لك من اطلع على الموضوع ولم يكتب الرد

وشكر اكبر لكل الذين ردو

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

وهو لدار تحفيظ

ارجو المشاركة لكي لا تحرموا من الاجر

السلام عليكم ورحمة الله وبركاته

اسف لانى ليس لدى الوقت للتعديل على الملف لكن هذا بعض المطلوب

Private Sub cmdAdd_Click()
If Text1.Text="" Or Text2.Text="" Then MsgBox"من فضلك ادخل جميع البيانات",vbCritical : Exit Sub
Rs.AddNew
Rs!FirstFeild=Text1.Text
Rs!SecondFeild=Text2.Text
Rs.Update
MsgBox "تم اضافة البيانات بنجاح"
End Sub

Private Sub cmdNext_Click()
On Error Resume Next
Rs.MoveNext
If Rs.EOF Then cmdNext.Enabled=False
If Not Rs.BOF Then cmdPrevious.Enabled=True
End Sub

Private Sub cmdPrevious_Click()
On Error Resume Next
Rs.MovePrevious
If Rs.BOF Then cmdPrevious.Enabled=False
If Not Rs.BOF Then cmdNext.Enabled=True
End Sub

لعمل ملف تنفيذى

File>>Make Project1.EXE

لجعل البرنامج يعمل على كل جهاز

Add-Ins>>Add-In Manager>>Package And Deployment>>Ok

Add-Ins>>Package And Deployment

ارفاق جميع الادوات الخرجية مع ملف السيت اب

اخوي طبق التالي والسابق

وهو المطلوب جزاك الله خير

وجاري التعديل على الاضافة