نسخ سجل من جدول الى اخر مع امكانية التعديل على حقل معين

[النهر العطشان]

السلام عليكم 

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

حيث تقوم فكرة القاعدة عند كتابة رقم سجل في مربع (Text0) وعند الضغط على زر (نقل) يقوم بنسخ السجل من جدول (Students) الى جدول (Team) مع ابقاء السجل الاصلي .

ما احتاجه هو عند نقل السجل يضهر مربع ادخال من خلاله استطيع تغيير حقل واحد محدد كان يكون حقل (tel) ثم نسخه الى جدول (Team) مع ابقاء السجل الاصلي في جدول (Students) بدون تغيير .

وشكرا

 

test25.rar

[ابو ياسين المشولي]

شكرا اخي على هذا الاطراء

حسب فهمي لسوال اتفضل طلبك

هذا هو الكود

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]));"
DoCmd.SetWarnings True
Me.Text0 = ""

 

test25.rar

تم تعديل أكتوبر 2, 2018 بواسطه ابو ياسين المشولي

[النهر العطشان]

السلام عليكم استاذ ابو ياسين المشولي المحترم

وهو المطلوب جعلها الله في ميزان حسناتك ورفعك درجة فوق درجتك .

لكن هل يمكن جعل التعديل اجباري لان في الحالة اعلاه يمكنك الضغط على زر (ok) وبدون كتابة رقم الهاتف الجديد فيقوم بعملية نسخ القيد وترك حقل الهاتف فارغ .

اريد ان اجعله لزاما عملية الادخال .

وشكرا

[ابو ياسين المشولي]

اتفضل اخي النهر العطشان

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([ادخل رقم التلفون]) Is Not Null));"
DoCmd.SetWarnings True
Me.Text0 = ""

 

[النهر العطشان]

استاذي الفاضل الرسالة (ادخل رقم التلفون) تظهر لي مرتين وتلغى

اريد ان تلزمني على الادخال الا في حالة ضغط على زر (cancel) فتلغى عملية الادخال .

[ابو ياسين المشولي]

هل هذا يصلح معك

احذف الكود الاول

والصق هذا

On Error GoTo MyErr
If Me.Text0 = "" Then
MsgBox "  يجب ادخال رقم  ", vbInformation, " رسـالـه  "
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, [ادخل رقم التلفون] AS Expr1, Students.Degree, Students.class " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([اعاده رقم التلفون ])=[ادخل رقم التلفون]));"
MsgBox "  تـم الـنـسـخ بـنـجـاح ", 48, " رساله :  "
Exit Sub
MyErr:
MsgBox "  لم يتم النسخ يجب ادخال رقم التلفون ", vbInformation, " رسـالـه  "
DoCmd.SetWarnings True
Me.Text0 = ""
End If

 

[النهر العطشان]

استاذي الفاضل ابو ياسين المشولي المحترم

تم تجربة الكود وعند كتابة رقم الهاتف يتكرر طلب ادخال رقم الهاتف .

ما احتاجه انه عند ادخال رقم الهاتف اول مرة يتم نقل السجل فقط وتنتهي عملية النسخ بدون تكرار طلب ادخال رقم الهاتف .

اما اذا تم ترك الحق فارغ وتم الضغط على زر (ok) فتبقى تتكرر رسالة ادخال رقم الهاتف الى يتم كتابة رقم الهاتف او الضغط على زر (cancel).

لك كل الاحترام وشكرا

test30.rar

تم تعديل أكتوبر 3, 2018 بواسطه النهر العطشان
ارفاق ملف

[ابو ياسين المشولي]

12 ساعات مضت, النهر العطشان said:

استاذي الفاضل ابو ياسين المشولي المحترم

تم تجربة الكود وعند كتابة رقم الهاتف يتكرر طلب ادخال رقم الهاتف .

ما احتاجه انه عند ادخال رقم الهاتف اول مرة يتم نقل السجل فقط وتنتهي عملية النسخ بدون تكرار طلب ادخال رقم الهاتف .

اما اذا تم ترك الحق فارغ وتم الضغط على زر (ok) فتبقى تتكرر رسالة ادخال رقم الهاتف الى يتم كتابة رقم الهاتف او الضغط على زر (cancel).

لك كل الاحترام وشكرا

test30.rar

اخي الكريم اعتذر عن تنفيذ طلبك

ليس لدي فكرة في تكرار الرساله في حال عدم الادخال

 

[النهر العطشان]

شكرا استاذي الفاضل ابو ياسين المشولي المحترم

 

[النهر العطشان]

السلام عليكم

هل ممكن فضلا تغيير لغة الادخال لمربع تغيير الحقل الى لغة عربية بدون اللجوء الى الكيبورد وتغيير اعلى الرسالة الى تنبيه وكما بالصوره .

وشكرا

 

test35.rar

[النهر العطشان]

للرفع

[ابو ياسين المشولي]

21 ساعات مضت, النهر العطشان said:

للرفع

اتفضل هذا طلبك الاول اعاده طلب ادخال الرقم

وطلبك الاخير

الاثنين معا

دعوه صالحه تكفي

 

abo yaseen.accdb

[النهر العطشان]

شكر وتقدير الى الاستاذ ابو ياسين المشولي على تفضلة بتقديم الدعم والمساعدة

جعلها الله في ميزان حسناته ورفعه الله درجه فوق درجته .

استاذي الفاضل بقت لغة الادخال لمربع تغيير الحقل الى لغة عربية بدون اللجوء الى الكيبورد .

وشكرا

test36.accdb

[ابو ياسين المشولي]

8 ساعات مضت, النهر العطشان said:

شكر وتقدير الى الاستاذ ابو ياسين المشولي على تفضلة بتقديم الدعم والمساعدة

جعلها الله في ميزان حسناته ورفعه الله درجه فوق درجته .

استاذي الفاضل بقت لغة الادخال لمربع تغيير الحقل الى لغة عربية بدون اللجوء الى الكيبورد .

وشكرا

test36.accdb

اتفضل وهذا عربي

تم استخدام هذا الكود

Option Compare Database
'Option Explicit
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Sub Command2_Click()
On Error Resume Next
DoCmd.SetWarnings False
LoadKeyboardLayout "00000401", 1
retry:
TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه")
If TempVars!xv = "" Then
If MsgBox("  يـجـب ادخـال رقـم الـتـلـفـون  ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry
Exit Sub
Else
 MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10)
 End If
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.Degree, Students.class " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));"
DoCmd.SetWarnings True
Me.Text0 = ""
End Sub

 

test36 (1).accdb

تم تعديل أكتوبر 8, 2018 بواسطه ابو ياسين المشولي

[النهر العطشان]

شكر وتقدير الى الاستاذ ابو ياسين المشولي على تفضلة بتقديم الدعم والمساعدة

جعلها الله في ميزان حسناته ورفعه الله درجه فوق درجته .

وهو المطلوب

[ابو ياسين المشولي]

الان, النهر العطشان said:

شكر وتقدير الى الاستاذ ابو ياسين المشولي على تفضلة بتقديم الدعم والمساعدة

جعلها الله في ميزان حسناته ورفعه الله درجه فوق درجته .

وهو المطلوب

بالتوفيق اخي بارك الله فيك

الحمد لله انه طلع المطلوب

[النهر العطشان]

السلام عليكم استاذنا ابو ياسين المشولي المحترم

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

ويضهر لنا مربع الادخال واحد بعد الاخر .

[ابو ياسين المشولي]

2 ساعات مضت, النهر العطشان said:

السلام عليكم استاذنا ابو ياسين المشولي المحترم

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

ويضهر لنا مربع الادخال واحد بعد الاخر .

اتفضل

On Error Resume Next
DoCmd.SetWarnings False
LoadKeyboardLayout "00000401", 1
retry:
TempVars.Add "xv", InputBox(Space(5) & " ادخـل رقـم الـتـلـفـون ", Space(5) & " تنبيه")
If TempVars!xv = "" Then
If MsgBox("  يـجـب ادخـال رقـم الـتـلـفـون  ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry
Exit Sub
Else
TempVars.Add "mv", InputBox(Space(5) & " ادخـل الـمـعـدل ", Space(5) & " تنبيه")
If TempVars!mv = "" Then
If MsgBox("  يـجـب ادخـال الـمـعـدل  ", vbInformation + vbRetryCancel, "تنبيه") & Space(50) = vbRetry Then GoTo retry
Exit Sub
Else
 MsgBox "تـم الـنـسـخ بـنـجـاح ", vbInformation + vbOKOnly, Space(10) & "تنبيه" & Space(10)
 End If
 End If
DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, class,Degree ) " & vbCrLf & _
"SELECT Students.ID, Students.Fullname, [TempVars]![xv] AS Expr1, Students.class, [TempVars]![mv] AS Expr2 " & vbCrLf & _
"FROM Students " & vbCrLf & _
"WHERE (((Students.ID)=[Forms]![Form]![Text0]) AND (([TempVars]![xv])IS NOT NULL));"
DoCmd.SetWarnings True
Me.Text0 = ""
End Sub

 

[النهر العطشان]

شكر وتقدير وكل الاحترام الى الاستاذ ابو ياسين المشولي 

كود في قمة الروعه جعلها الله في ميزان حسناته ورفعه الله درجه فوق درجته .

وهو المطلوب .

[ابو ياسين المشولي]

19 دقائق مضت, النهر العطشان said:

شكر وتقدير وكل الاحترام الى الاستاذ ابو ياسين المشولي 

كود في قمة الروعه جعلها الله في ميزان حسناته ورفعه الله درجه فوق درجته .

وهو المطلوب .

بارك الله فيك اخي

[النهر العطشان]

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

هل يمكن ان يكون مربع الادخال الثاني عباره عن اختيارات للجدول (classroom) .

ولك جزيل الشكر والتقدير

[ابو ياسين المشولي]

38 دقائق مضت, النهر العطشان said:

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

هل يمكن ان يكون مربع الادخال الثاني عباره عن اختيارات للجدول (classroom) .

ولك جزيل الشكر والتقدير

 ليس لدي خبرة ان الحق من جدولين

لعل احد الاخوة الخبراء من سوف يقوم بذلك

تم تعديل أكتوبر 16, 2018 بواسطه ابو ياسين المشولي

[النهر العطشان]

للرفع

[النهر العطشان]

للرفع

[ابوخليل]

مع الشكر  للاستاذ ابو ياسين ، خبرة في التفصيل ، فهو  اعطى حلول رائعة حسب طلب السائل

الفكرة من البداية غير صحيحة ، ودائما اعقب على مثل هذه المشاركات

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

قاعدة : 

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

كيف يتم التعامل معها  ؟ 

يتم  باضافة حقول ضمن السجل تكون كأشارات مرجعية لوصف حالة السجل

مثل 1- حقل  نعم/ لا  لاظهار السجل من عدمه

      2- حقل لادراج السنة ( من اجل التصفية مستقبلا )

      3- حقل  كذا  من اجل كذا ........ وهكذا

هذه الطريقة اقوى واشمل وتجعل جميع الاحداث ضمن دائرة واحدة  ومن خصائصها اختصار الكائنات داخل المشروع

اتمنى ان يكون الشرح واضح ومفهوم

اي شخص  يتعامل مع فكرة القص والنسخ والترحيل ، سيذكر كلامي هذا عندما يعمل على قواعد كبيرة كــ sql مثلا

في حالاات ضيقة يمكن اللجوء الى ترحيل النتائج النهائية في جداول جديدة منفصلة عن المشروع وتطبيقاته وهي لا تبعد كثيرا عن التصدير الى ملفات اكسل ، وتختلف الحاجة الى هذه العمليات من مشروع الى آخر

 

احبتي : انا اكتب للفائدة العامة ولمن يمر من هنا

فلربما صاحب السؤال قد شارف على نهاية مشروعه