تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتفاظ تكست بوكس بما فيه دون تعديله
#1
بسم الله الرحمن الرحيم
****
باختصار و بشكل واضح
انا مبتدئ في الفيجوال بيسك
و لكني قمت بتصميم اول برنامج
****
و طلبي كالتالي
البرنامج عبارة عن نموذجين فقط
مرتبط بقاعدة بيانات اكسس عن طريق اداة data
***
هذا هو الفورم الأول
[ATTACH=CONFIG]3339[/ATTACH]
و هذا هو الفورم الثاني
[ATTACH=CONFIG]3340[/ATTACH]

المشكلة أن قاعدة البيانات بها جدول واحد فقط يحتوي على حقوق النموذجين معا
الاول و الثاني
و لكني اريد
عندما يدخل الشخص البيانات في الفورم الاول
يتم الاحتفاظ بها لجميع المدخلات في الفورم الثاني في قاعدة البيانات لجميع مدخلات الفورم الثاني
أي للتوضيح اكثر
اريد أن تحفظ بيانات الفورم الاول و تكرر هذه البيانات في الفروم الثاني
طالما لم يتم اغلاق البرنامج أو أن الشخص مسجل مسبقا في قاعدة البيانات
و لكن في حالة ان يكون الموظف جديدا أو لم يسجل من قبل و فتح البرنامج فغن عليه ادخال بيانات الفورم الاول مرة أخرى
و سبب ذلك انني استخدم اداة
activereport
و عند الطباعة تظهر جميع بيانات السجل في الفورم الثاني فقط
أتمنى تكونوا فهمتوني
و اجد اجابة وافية من خبراء القسم
*******************
لحل هذه المشكلة او طرح حل آخر و تعديل
و جزاكم الله خيرا


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم
إقتباس :form2.text1.text=text1.text
حيث ان form2.text1.text هو صندوق النص في الفورم الثاني
text1.text وهي تكون في الفورم الاول
لكن لاحظ انك عندما تريد الاضافة سفرغ المحتويات لتهيئة صندوق النص للأضافة لذا انصحك بحفظهن بمتغير
لذا يصبح الكود داخل زر الفورم الاول هو
form2.text1.text=text1.text
form2.show
وفي زر الاضافة يكون هكذا
dim xx1 as string
xx1=text1.text
data1.recordset.addnew
text1.text=xx1
اذا لم تتضح الامور يرجى الاستفسار
:confused:
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خيرا أخي الفاضل
طبقت ما طرحته ، و لكن ظهر لي خطأ في كود الاضافة
ارفقت لحضرتك البرنامج لترى على الطبيعة


الملفات المرفقة
.rar   pro.rar (الحجم : 49.79 ك ب / التحميلات : 22)
الرد }}}}
تم الشكر بواسطة:
#4
نجحت الطريقة الآن بعد الضبط الصحيح
جزاك الله خيرا
و لكني اريد منع التعديل على التكست في الفورم الثاني ، أو عندما يضع الشخص الماوس داخل التكست في الفروم الثاني تظهر له رسالة أنه غير قاب للتعديل و لا يستطيع تعديله الا بغلق البرنامج و تعديله من الفورم الاول
علما بأني جعلت الخاصية Locked=true لمبرع النص
و الشئ الاخير
كيف اكرر هذا لعدد من المربعات النصية و هي بعدد مربعات الفورم الاول..
جزاك الله خيرا مرة اخرى
تحياتي
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم
اولا
تضع في القسم العام
dim xx as boolean
ثانيا
وعندما تريد التعديل او الاضافة تضع فيه هذا الكود
xx=true
Dim c As Control
For Each c In FORM1
If TypeOf c Is TextBox Then
C.READONLY=FALSE
Next c



ثالثا
وفي صناديق النص انصحك ان تجعلهم مصفوفة ستقول لي كيف ذلك اقول لك
عليك اولا تضع اول صندوق نص تسميه بخاصية الـ name تضع الاسم txt
ثم تنسخ صندوق النص الى العدد المطلوب فتظهر عند اول عملية لصق رسالة تنبيه تنبهك بانها ستعمل على صنع مصفوفة لذا وافق بالضغط على
yes
وبعد ترتيب صناديق النصوص وربطها بال
data1 ما عليك سوى الضغط على اي صندوق نص ثم تنتقل الى القائمة المنسدلة التي على اليمين في شاشة الكود وتختار gotfocus
if xx=false then
msgbox "this operator is not allowed right now"
exit sub
end if

رابعا
وفي حالة حفظ التعديل او الاضافة يتم جعل جعل خاصية
xx=true
و يتم تهيئة صناديق النصوص للكتابة
Dim c As Control
For Each c In FORM1
If TypeOf c Is TextBox Then
C.READONLY=TRUE
Next c

هناك ملاحظة قد لاتعمل READONLY
لذا استعمل
Locked
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الخطأفي الكود التالي ado كمبو بوكس المبرمج البسيط 12 1,122 27-04-13, 12:18 PM
آخر رد: تركي الحلواني
  كيفية تغيير قيم الكومبوكس وتتغير تبعا لها قيم التكست بوكس فى ado hosney 16 1,246 11-12-12, 09:55 AM
آخر رد: hosney
  مشكله في عدم تغير قيمة المبوبكس بتغير قيمة التكست بوكس رضو 3 512 10-12-12, 02:58 PM
آخر رد: رضو
  هل يمكن فتح وثيقة وورد ونقل محتوياتها فى تكست بوكس ؟ samy666 1 378 17-11-12, 09:28 PM
آخر رد: samy666

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم