الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أبحث عن سجل وأكتب سجل جديد في نفس الوقت

مغلقمُجاب
بدأه أبوشهد1 في 3 يونيو 2013 · 6 رد · 881 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع
السلام عليكم ورحمة الله وبركاته

 

 

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

 

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

 

إذا كان الرقم موجود سابقاً فلن يقبل البرنامج هذا الرقم والمطلوب

 

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

 

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

 

 

أرجوا المساعدة

 

 

za-Test.zip

تم تعديل هذه المشاركة بواسطة أبوشهد1 في 3 يونيو 2013 في 14:15

#2

تفضل اخي الكريم

 

post-15367-0-71299200-1370262877_thumb.g

 

اذا كان الرقم المدخل موجود مسبقا ستظهر لك رسالة تخبر بذلك فإن اخترت نعم سيتم فتح النموذج الثاني على نفس الرقم لكي تقوم بالتعديل على السجل

 

وإن اخترت لا سيتم انهاء الإجراء ولا يتم فتح النموذج الثاني

 

 

 

za-Test-UP.rar

 

 

بالتوفيق

#3

شكراً

 

ولكن للأسف لايمكنني تسجيل سجل جديد 

 

ممكن شرح الأوامر

تم تعديل هذه المشاركة بواسطة أبوشهد1 في 3 يونيو 2013 في 16:15

#4 أفضل إجابة
أبوشهد1 كتب:

شكراً

 

ولكن للأسف لايمكنني تسجيل سجل جديد 

 

ممكن شرح الأوامر

 

تفضل اخي الكريم

 

تم اضافة نموذج ثالث لإدخال سجلات جديده واصبح لديك الآن النماذج التالية

 

1. نموذج البحث ( الواجهه )

 

2. نموذج تعديل البيانات للسجل المختار فقط من نموذج البحث  ( جدول1 )

 

3. في حالة كنت ترغب في تسجيل سجل جديد غير موجود في سجلات الجدول فكل ما عليك هو كتابة رقم السجل الجديد في نموذج البحث ثم الضغط على زر الأمر سجل جديد

 

وسيفتح لك نموذج اضافة سجل جديد (  frmADD )  لتقوم بإدخال البيانات الجديده وسيكون رقم السجل هو نفسه الذي تم ادخاله في نموذج البحث ولا يمكن اضافة

 

اي سجلات جديده في النموذج frmADD كما في السابق

 

 

 

za-Test-END.rar

 

 

 

 

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 27 ديسمبر 2013 في 22:37

#5

ِأشكرك جزيل الشكر لكن في حالة كان الحقل نص هل يقبل نفس الأمر DLookup أم يتغير 

 

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

 

If DLookup("[ÇáÑÞã]", "ÌÏæá1", "[ÇáÑÞã]=" & Forms![ÇáæÇÌåÉ]![ÇáÑÞã]) Then
If MsgBox(" ÚÐÑÇ ÃÎí ÇáßÑíã .... åÐÇ ÇáÑÞã ãÓÌá ãÓÈÞÇ .. åá ÊÑíÏ ÊÚÏíáå ", vbCritical + vbYesNo) = vbNo Then
DoCmd.CancelEvent
Else
    
  Dim stLinkCriteria As String
  stLinkCriteria = "[ÇáÑÞã] =" & Me![ÇáÑÞã]
  DoCmd.OpenForm "ÌÏæá1", , , stLinkCriteria
 
 
وهناك مشكلة في التقرير  عندما أقوم بطباعة صفحة فيها تاريخ هكذا تصير 
 
 
umk3H.jpg
 
 
هل لها حل ؟
 
وشكراً
#6

اخي الفاضل

 

بالنسبة للكود فإن الدالة  DLOOKUP تبحث عن نفس الرقم في الجدول فإن كان موجود تضهر لك رساله وهذه الرسالة بها اختيارين اما عدم المتابعة للتعديل بإختيار  لا

 

او بإختيار نعم لفتح النموذج للتعديل على البيانات .

 

بالنسبة للتاريخ في التقرير 

 

ضع في خصائص الحقل الخاص بالتاريخ  عند التنسيق هذه العباره   yyyy/mm/dd

 

post-15367-0-54191100-1370271577_thumb.g

 

 

بالتوفيق

1
#7

شكرا وجزاكي الله خيرا

هذا الموضوع مغلق.

مواضيع مشابهة