كمال قام بنشر نوفمبر 18, 2004 قام بنشر نوفمبر 18, 2004 السلام عليكم ورحمة الله وبركاتة اخواني ممكن طريقة اضيف فيه سجل مثلا عندي نموذج فيه مربعين ادخال هما 1- الاسم الاول 2- الاسم الثاني ابغا اضيف زر ولمن يضغه المستخدم يقوم باضافة سجل بالمعلومات الموجودة في مربعي النص ولكم جزيل الشكر
أمجد جمالي قام بنشر نوفمبر 18, 2004 قام بنشر نوفمبر 18, 2004 السلام عليكم اخي الكريم كمال اعمل زر وعند حدث النقر على الزر ضع هذا الكود DoCmd.GoToRecord , , acNewRec او اعمل زر واختر إضافة سجل عن طريق المعالج تحياتي
abo toka قام بنشر نوفمبر 18, 2004 قام بنشر نوفمبر 18, 2004 السلام عليكم يا عرب أين أنتم مما يجري في الفلوجة
مصلح الحريصي قام بنشر نوفمبر 19, 2004 قام بنشر نوفمبر 19, 2004 استخدم لغة sql أو DAO أو ADO وإذا لم تستطع أشرح لنا اسماء الجداول والحقول ونوع البيانات وسماء مربعات النصوص وسوف نكتب لك الشفرة وتقوم بتطبيقها ولكن بشرط إذا كتبنا الشفرة ما تقوم بنسخها ولصقها ولكن تقوم بكتابة الشفرة في البرنامج لكي تستفيد
كمال قام بنشر نوفمبر 20, 2004 الكاتب قام بنشر نوفمبر 20, 2004 (معدل) اشكر الاخوة علي التعقيب........ الاخ أمجد جمالي لقد قمت بتنفيذ هذا الامر عن طريق المعالج ولاكن لم يقم بتنفيذ مارايد فقد اضاف الاسم الاول فقط ما الحل ؟ ======================================================= الاخ abo toka وعليكم السلام ورحمة الله وبركاتة نحن مع الفلوجة قلباً وقالباً......................... ولاكن ليس هذا موضوع حديثنا ======================================== الاخ مصلح الحريصي لو تكرمت اخي الفاضل هل بامكاني استخدام ADO في الاكسس؟ وماهي الطريقة؟ سوف اشرح لك ماريد بالتفصيل عندي عدد 2 TextBox 1 - txtFirstName وهو الاسم الاول 2- txtLastName وهو الاسم الثاني وعندي زر امر اضافة وليكن اسمه btnAdd اريده عند الضغط علي زر الاضافة يقوم باضافة المعلومات الموجوده في مربعي النص الي جدول الاسماء واظهاره في جدول في نفس النموذج (تحديث البيانات ليشاهدة المستخدم) ملاحظة : هل يوجد اداة اظهر فيها البيانات للمستخدم(كجدول مثلاً) في الاكسس !!!!!!!!!!!!!! وفي الاخير اشكر الاخوة علي سرعة الرد ومساعدتي في حل مشكلتي ولكم مني الف تحية وبارك الله فيكم ------------------------------------------------------------------- اللهم يا غياث المستغيثين .... ويا صريخ المستصرخين .... ويا عون المؤمنين .... ويا جار المستجيرين ..... يا ذا العظمة والسلطان .... يا من قصمت القياصرة .... وقَهرت الجبابرة .... وخضعت لك أعناق الفراعنة .... اللهم سلط على اليهود و الأمريكيين الريح القوا صم .... والبراكين والعواصف .... واملأ قلوبهم بالرعب والخوف .... اللهم نكس لهم كل راية..وحُل بينهم وبين كل غاية .... اللهم اجعل جيش المسلمين جيشا لا ينهزم .... وبيوت المسلمين حصنا لا ينهدم .... لا إله إلا الله الحليم العظيم ، لا إله إلا الله رب العرش الكريم ، لا إله إلا الله رب السموات والأرض ورب العرش الكريم ، اللهم كن لأهل الفلوجة ولأهل العراق والمقاومين والمجاهدين في فلسطين وفى أفغانستان وفى العراق وفي الشيشان وفى بورما وفى كشمير وفى كل مكان يُحارب فيه الإسلام .... كن لهم ياالله جارا ومعينا لهم من شر أعدائهم وشر ما يحاكى ضدهم من الأنس والجن أن يفرط عليهم أحد أو أن يطغى ، عز جارك وجل ثناؤك ولا أله غيرك اللهم أحفظهم بحفظك وانصرهم بقوتك وعزك وألبسهم ثوب العز وأتم لهم النصر على عدوهم وعدوك وإخرج عدوهم من بلادهم أذلة صاغرين اللهم آمين .... اللهم آمين .... اللهم آمين .... تم تعديل نوفمبر 20, 2004 بواسطه كمال
مصلح الحريصي قام بنشر نوفمبر 20, 2004 قام بنشر نوفمبر 20, 2004 الأخ كمال بالنسبة لسؤالك هل بامكاني استخدام ADO في الاكسس ؟ الجواب نعم وهي من الأدواة القوية جداً وهي أداة إتصال بقواعد البيانات ويمكنك الإتصال من خلالها بقواعد بيانات أوركال و إس كيو إل سيرفر ( Oracle & SQL Server ) وقواعد أخرى كما يمكنك الإتصال بقاعدة بيانات أكسيس غير التي تعمل عليها والتعامل مع بياناتها من حيث الحذف والإضافة والتعديل واستعراض البيانات الطريقة : لمحركات Jet أي قواعد أكسيس هي : 1. أولاً يجب ضبط المكتبة المسماة : Microsoft ActiveX Data Objects2.7 Library وقد تختلف في رقم الإصدار تأكد منها لديك. بالنسبة للمثال فهذه الطريقة : 1. الجدول اسمه ( Tbl1 ) 2. الحقول في الجدول هي (FirstName ) و (LastName ) 3. مربعات النصوص هي ( Txt FirstName ) و (LastName ) 4. في حدث عند النقر للزر نكتب الكود التالي : Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "Tbl1", CurrentProject.Connection, _ adOpenDynamic, adCmdTable rst.AddNew rst!FirstName = txtFirstName rst!LastName = txtLastName rst.Update rst.Close طبعاً النموذج بدون مصدر نظيف الكود التالي لمسح البيانات من مربعي النص بعد حفظ المعلومات في الجدول لتهيئتهما لإضافة بيانات جديدة Me.txtFirstName = "" Me.txtLastName = "" أيضاً الكود التالي الإضافة بواسطة لغة Sql ولكن يجب ضبط مكتبة DAO Dim db As Database, rsCust As Recordset, strsql As String Set db = CurrentDb strsql = "select * from tbl1" Set rsCust = db.OpenRecordset(strsql, DB_OPEN_DYNASET) strsql = "INSERT INTO tbl1(FirstName,LastName)Values ('" & Me!txtFirstName & "','" & (Me!txtLastName) & "');" db.Execute strsql وبإمكانك إضافة نموذج فرعي في النموذج الذي تدخل البيانات عن طريقه العرض الإفتراضية له " ورقة بيانات" وتستخدم أمر Requery أو Refresh لكي يعرض السجل الذي تم حفظه0 بالنسبة لسؤالك : هل يوجد اداة اظهر فيها البيانات للمستخدم(كجدول مثلاً) في الاكسس الجواب : هناك النماذج التي يتم تغيير طريقة العرض فيها من نموذج إلى ورقة بيانات أو نموذج مستمر وكذلك يوجد MSFlexGrid ولكنها تحتاج إلى أوامر برمجية لملؤها بالبيانات ولكن الأسهل لك هو : النماذج التي يتم تغيير طريقة العرض فيها من نموذج إلى ورقة بيانات أو نموذج مستمر. أرجو أن أكون قد أفدتك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.