إخواني أعضاء المنتدى , السلام عليكم ورحمة الله وبركاته
أرجو مساعدتي في ايجاد كود يقوم بثتبيت بيانات بعض الحقول عند إضافة سجل جديد , وتكون الحقول المثبتة هي التي قد أشير عليها مسبقا بعلامة (صح) في Check Box Control
مثال:
تثبيت التاريخ , يقوم الكود بتثبيت التاريخ عند النقر على زر اضافة سجل بحيث اني لا أحتاج
الى كتابة التاريخ كلما أردت أن أضيف سجل , ارجو أن أكون قد وفقت في نقل ما اردته.
وجزاكم الله خيرا
على العموم أحبتي , جزاكم الله خيراَ , بعد تفكير وسحب جلنطات وريحة كفرات (نتيجة لأنني مبتدأ جدا) توصلت لحل , حتى وان كان هناك بعض النقص على الأقل توصلت لما أردت , ولربما احتاج احد ما لما احتجت اليه فأحببت أن أشارككم فيما توصلت اليه ومن كانت لديه فكرة أفضل (أكيد فيه) فليتفضل مشكورا:
ما قمت به هو:
صناعة زر أمر أسميته (CmdAddRecord) (سجل جديد)
صناعة صندوق اختيار و أسميته (ChkName)
صناعة صندوق النص و أسميته (TxtName)
ثم قمت بكتابة الكود البدائي جدا التالي: وسأقوم بشرحه (حسبما أفهم وان كان هناك غلط , يا مشرف الحقنا) فلربما احتاج ان يفهمه احد فيدعو لنا في ظهر الغيب:
Dim stName As String
هذا السطر يقوم بإنشاء متغير بإسم (stName) , وهذاالسطر كتبته في سطر الإجراءات العام يعني مو متعلق بأي كنترول
stName = Me.TxtName.Value , وهذا السطر والذي يليه كتبتهم في حدث (Click) لزر الأمر (سجل جديد)
هذا السطر يقوم بتعيين قيمة المتغير (stName) بقيمة الحقل الموجود في النموذج للسجل الحالي المعروض امام المستخدم (والمسمى هنا TxtName) والذي أريد أن أنقل بياناته الى السجل الجديد عند النقر على زر الأمر (سجل جديد) ,, وكلمة (Value) تعني (قيمة)
If Me.ChkName = True Then
DoCmd.GoToRecord , , acNewRec
Me.TxtName.Value = stName
End if
السطر الاول :if Me.ChkName = True Then ,,, يعني اذا كان صندوق الإختيار (ChkName) عليه علامة (صح) افعل التالي
السطر الثاني: DoCmd.GoToRecord , , acNewRec ,,, يقوم بإضافة سجل جديد
السطر الثالث: Me.TxtName.Value = stWajVal ,,, يقوم بتعيين قيمة صندوق النص (TxtName) في السجل الجديد بقيمة المتغير (stName) والتي كانت هي اصلا قيمة صندوق النص (TxtName) للسجل السابق.
ثم انهيت الشرط بعبارة (End if) , المعروفة لنهاية كل شرط يبدأ ب (IF)
هذا والله تعالى أعلم , وقد جربت هذه الطريقة و مشيت معي وانا متاكد ان فيه افضل منها , ويا مسهل سهلها
والسلام عليكم ورحمة الله وبركاته
مرفق ملف لتثبيت بيانات حقل ما , فكلما اضفت سجل جديد تبقى بيانات هذا الحقل ثابتة لا تتغير وهي
كما كانت في آخر سجل ادخلته
الله يعطيك الف عافية يابو عمار ....
والله يا هذي الشغلة لي اسبوع وانا ابحث عنها ولا احد راضي يبدع زيك (اولهم انا :( ) وذلك لامكانياتنا البرمجية المحدودة
ولكن مالها الا رجالها.....
والى الامام ومن تطوير الى احسن منه ان شاء الله....
الله يعافيك اخ زيودي ويبارك في ايامك
والله يخوي دخت فيها لأني مبتدأ في الأكسيس وقلت لعل مبتدي مثلي يبحث عنها , والحمد لله جهدي
(وان كان بسيط ) ماراح بوش والحمد لله فيه من استفاد منه
جزاك الله خير على دعائك
واطرائك الذي اخجلني :)
والى الأحسن لي ولك بإذن الله
والسلام عليكم ورحمة الله
تم تعديل هذه المشاركة بواسطة أبو عمّار في 19 مايو 2005 في 23:24
هذا الموضوع مغلق.