اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف اضيف سجل


كمال

الردود الموصى بها

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

اخواني ممكن طريقة اضيف فيه سجل

مثلا عندي نموذج فيه مربعين ادخال هما

1- الاسم الاول

2- الاسم الثاني

ابغا اضيف زر ولمن يضغه المستخدم يقوم باضافة سجل بالمعلومات الموجودة في مربعي النص

ولكم جزيل الشكر

رابط هذا التعليق
شارك

السلام عليكم

اخي الكريم كمال

اعمل زر وعند حدث النقر على الزر ضع هذا الكود

DoCmd.GoToRecord , , acNewRec

او اعمل زر واختر إضافة سجل عن طريق المعالج

تحياتي

رابط هذا التعليق
شارك

استخدم لغة sql أو DAO أو ADO وإذا لم تستطع أشرح لنا اسماء الجداول والحقول ونوع البيانات وسماء مربعات النصوص وسوف نكتب لك الشفرة وتقوم بتطبيقها ولكن بشرط إذا كتبنا الشفرة ما تقوم بنسخها ولصقها ولكن تقوم بكتابة الشفرة في البرنامج لكي تستفيد

رابط هذا التعليق
شارك

اشكر الاخوة علي التعقيب........

الاخ أمجد جمالي

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

ما الحل ؟

=======================================================

الاخ abo toka

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

نحن مع الفلوجة قلباً وقالباً.........................

ولاكن ليس هذا موضوع حديثنا

========================================

الاخ مصلح الحريصي

لو تكرمت اخي الفاضل هل بامكاني استخدام ADO في الاكسس؟ وماهي الطريقة؟

سوف اشرح لك ماريد بالتفصيل

عندي عدد 2 TextBox

1 - txtFirstName وهو الاسم الاول

2- txtLastName وهو الاسم الثاني

وعندي زر امر اضافة وليكن اسمه btnAdd

اريده عند الضغط علي زر الاضافة يقوم باضافة المعلومات الموجوده في مربعي النص الي جدول الاسماء

واظهاره في جدول في نفس النموذج (تحديث البيانات ليشاهدة المستخدم)

ملاحظة : هل يوجد اداة اظهر فيها البيانات للمستخدم(كجدول مثلاً) في الاكسس !!!!!!!!!!!!!!

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

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

اللهم يا غياث المستغيثين .... ويا صريخ المستصرخين .... ويا عون المؤمنين .... ويا جار المستجيرين ..... يا ذا العظمة والسلطان .... يا من قصمت القياصرة .... وقَهرت الجبابرة .... وخضعت لك أعناق الفراعنة ....

اللهم سلط على اليهود و الأمريكيين الريح القوا صم .... والبراكين والعواصف .... واملأ قلوبهم بالرعب والخوف ....

اللهم نكس لهم كل راية..وحُل بينهم وبين كل غاية ....

اللهم اجعل جيش المسلمين جيشا لا ينهزم .... وبيوت المسلمين حصنا لا ينهدم ....

لا إله إلا الله الحليم العظيم ، لا إله إلا الله رب العرش الكريم ، لا إله إلا الله رب السموات والأرض ورب العرش الكريم ، اللهم كن لأهل الفلوجة ولأهل العراق والمقاومين والمجاهدين في فلسطين وفى أفغانستان وفى العراق وفي الشيشان وفى بورما وفى كشمير وفى كل مكان يُحارب فيه الإسلام .... كن لهم ياالله جارا ومعينا لهم من شر أعدائهم وشر ما يحاكى ضدهم من الأنس والجن أن يفرط عليهم أحد أو أن يطغى ، عز جارك وجل ثناؤك ولا أله غيرك اللهم أحفظهم بحفظك وانصرهم بقوتك وعزك وألبسهم ثوب العز وأتم لهم النصر على عدوهم وعدوك وإخرج عدوهم من بلادهم أذلة صاغرين

اللهم آمين .... اللهم آمين .... اللهم آمين ....

تم تعديل بواسطه كمال
رابط هذا التعليق
شارك

الأخ كمال

بالنسبة لسؤالك

هل بامكاني استخدام 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 ولكنها تحتاج إلى أوامر برمجية لملؤها بالبيانات ولكن الأسهل لك هو : النماذج التي يتم تغيير طريقة العرض فيها من نموذج إلى ورقة بيانات أو نموذج مستمر.

أرجو أن أكون قد أفدتك

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information