إبراهيم ابوليله

الاخوه الافاضل تحيه طيبه وبعد شكرا لكم على متابعتكم لهذا الشيت وكن هل يوجد كود يمنع تكرار ادخال الاسم فى نموذج الادخال الموجود بشيت بيانات العملاء فققكم الله واياى لما يحبه ويرضاه اخوكم ابراهيم محمد 3-1.rar

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

الاخ الكريم هل ييوجد كود يمكننى من منع تكرار ادخال الاسم فى نموذج الادخال

الاخوه الكرام تحيه طيبه وبعد ارجو منك المحاوله فى حل هذا الخطا عندما اقوم بالبحث فى بيانات العملاء عن طريق الاسم ثم اقوام بالتعديل يقوم البرنامج بتغير الخليه الاولى الخاصه بالكود الى الاسم ارجو عمل الازم بحيث تظل الخليه الاولى كما هيا 3.rar

لقد قمت بعمل نوذج للبح مع التديع يكون البحث بالاسم فى العمود d ولكن عند استحدام الامر تعديل يقوم بنسخ الاسم فى العمود a هل يمكن تفادى ذلك حيث ان العمود على رقم العميل واليكم الكود المستخدم Private Sub CommandButton2_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("ÈíÇäÇÊ ÇáÚãáÇÁ") 'ááÚËæÑ Úáì Ãæá ÓØÑ ÝÇÑÛ Ýí ÞÇÚÏÉ ÇáÈíÇäÇÊ "ÕÝÍÉ ÈíÇäÇÊ ÇáãæÑÏíä iRow = ws.Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'ááÊÃßÏ ãä ÅÏÎÇá ßæÏ If Trim(Me.TextBox1.Value) = "" Then Me.TextBox1.SetFocus MsgBox ("ãä ÝÖáß .Þã ÈÅÏÎÇá ßæÏ") Exit Sub End If 'ÊÑÍíá ÇáÈíÇäÊ Åáì ÕÝÍÉ ÈíÇäÇÊ ÇáãæÑÏíä ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 9).Value = Me.TextBox8.Value ws.Cells(iRow, 10).Value = Me.TextBox9.Value ws.Cells(iRow, 12).Value = Me.TextBox10.Value ws.Cells(iRow, 13).Value = Me.TextBox11.Value ws.Cells(iRow, 15).Value = Me.TextBox12.Value 'ãÓÍ ÇáÈíÇäÇÊ ÇáÞÏíãÉ ãä Úáì ÇáÝæÑã ÈÚÏ ÇáÊÑÍíá ááÊÌåíÒ áÅÏÎÇá ÈíÇäÇÊ ÌÏíÏÉ Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox1.SetFocus End Sub

الافاضل الكود رقم البطاقة الضريبى رقم الملف أسم الممول العنوان المأمورية المختصة تاريخ التعامل مأمورية كود الاخوه الافاضل تحيه طيبه وبعد الشكل السابق هو شكل شيت الاكسل عندى حيث اننى لا استطيع رفع الملف على المنتدى ولقد قمت بعمل نوذج للبحث مع امكانيه التعديل عليه ولكننى بصدد مشكله لم اعرف كيف اتخطاها وهى اننى باسم الممول وعند التعديل يتم تغير الخليه الاولى من الكود الى الاسم فهل هناك حل ارجو المساعده من اهل الخبره وهذا هو الكود المستخدم لدى End Sub Private Sub CommandButton1_Click() Beep Unload Me End Sub Private Sub CommandButton2_Click() Beep DataBase1.PrintForm End Sub Private Sub CommandButton4_Click() III = 7 Do Until Sheets("ÈíÇäÇÊ ÇáÚãáÇÁ").Cells(III, "B").Text = "" If Me.ComboBox1.Text = Sheets("ÈíÇäÇÊ ÇáÚãáÇÁ").Cells(III, "D").Text Then Cells(III, "A").Activate Me.TextBox2 = ActiveCell.Offset(0, 0).Text Me.TextBox3 = ActiveCell.Offset(0, 1).Text Me.TextBox4 = ActiveCell.Offset(0, 2).Text Me.TextBox5 = ActiveCell.Offset(0, 3).Text Me.TextBox6 = ActiveCell.Offset(0, 4).Text Me.TextBox7 = ActiveCell.Offset(0, 5).Text Me.TextBox8 = ActiveCell.Offset(0, 6).Text Me.TextBox9 = ActiveCell.Offset(0, 7).Text Me.TextBox10 = ActiveCell.Offset(0, 8).Text Me.TextBox11 = ActiveCell.Offset(0, 9).Text Exit Sub End If III = III + 1 Loop MsgBox ("!!! ÚÝæÇ .. ÇÎÊÑ ÑÞã ÇáÓÌá ") Me.ComboBox1.SetFocus Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.TextBox5.Text = "" Me.TextBox6.Text = "" Me.TextBox7.Text = "" Me.TextBox8.Text = "" Me.TextBox9.Text = "" Me.TextBox10.Text = "" Me.TextBox11.Text = "" End Sub Private Sub CommandButton3_Click() ActiveCell.Offset(0, 0).Value = ComboBox1 ActiveCell.Offset(0, 1).Value = TextBox3 ActiveCell.Offset(0, 2).Value = TextBox4 ActiveCell.Offset(0, 3).Value = TextBox5 ActiveCell.Offset(0, 4).Value = TextBox6 ActiveCell.Offset(0, 5).Value = TextBox7 ActiveCell.Offset(0, 6).Value = TextBox8 ActiveCell.Offset(0, 7).Value = TextBox9 ActiveCell.Offset(0, 8).Value = TextBox10 ActiveCell.Offset(0, 9).Value = TextBox11 ActiveCell.Offset(0, 10).Value = TextBox12 MsgBox "Êã ÊÓÌíá ÇáÊÚÏíáÇÊ" End Sub Private Sub Label51_Click() End Sub Private Sub Label8_Click() End Sub 'Private Sub TextBox5_Change() 'Me.TextBox5.Value = Format(Me.TextBox5.Value, "yyyy/mm/dd") 'End Sub Private Sub UserForm_Activate() ComboBox1.Value = "" Label1 = Cells(2, "A") Label2 = Cells(2, "B") Label3 = Cells(2, "C") Label4 = Cells(2, "D") Label5 = Cells(2, "E") Label6 = Cells(2, "F") Label7 = Cells(3, "G") Label8 = Cells(2, "H") Label9 = Cells(2, "I") Label10 = Cells(3, "J") Label11 = Cells(2, "K") Label51 = Cells(2, "D") End Sub

http://www.officena.net/ib/index.php?showtopic=36901 لقد وجت فى الموقع نموذج للبحث مع امكانيه التعديل فى البيانات باسم PROJECT3 ولكننى لم استطع فهمه او عمل نموذج مثله ارجو من اهل الخبره الشرح لى لكى اتمكن من عمل نموذج مثله وففقكم الله لما يحبه ويرضاه

الاخوه الافاضل وجدت هاذا الكود فى نموذج للبحث عن البيانات مع امكانيه التعديل عليها ولكننى حينما حاولت التطبيق فلم استطع ارجو شرح بعض المفاهيم لى Private Sub CommandButton4_Click() III = 6 'ـــــ ما ذا تشير اليه هذه Do Until ورقة1.Cells(III, "J").Text = "" ' كيف اقوم بتغير عمود البحث ليصبح Dبدلا من ت If Me.ComboBox1.Text = ورقة1.Cells(III, "B").Text Thenـ 'هل استطيع تغير كلمه ورقه1 لتصبح اسم معينATA Cells(III, "B").Activate Me.TextBox2 = ActiveCell.Offset(0, 0).Text Me.TextBox3 = ActiveCell.Offset(0, 1).Text Me.TextBox4 = ActiveCell.Offset(0, 2).Text Me.TextBox5 = ActiveCell.Offset(0, 3).Text Me.TextBox6 = ActiveCell.Offset(0, 4).Text Me.TextBox7 = ActiveCell.Offset(0, 5).Text Me.TextBox8 = ActiveCell.Offset(0, 6).Text Me.TextBox9 = ActiveCell.Offset(0, 7).Text Me.TextBox10 = ActiveCell.Offset(0, 8).Text Me.TextBox11 = ActiveCell.Offset(0, 9).Text Exit Sub End If III = III + 1 ' ما ذا يعنى ذلك MsgBox ("!!! عفوا .. اختر رقم السجل ") Me.ComboBox1.SetFocus Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.TextBox5.Text = "" Me.TextBox6.Text = "" Me.TextBox7.Text = "" Me.TextBox8.Text = "" Me.TextBox9.Text = "" Me.TextBox10.Text = "" Me.TextBox11.Text = "" End Sub

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

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

اريد ان اعمل قائمه منسدله باسما الشيت عن طريق الاكواد بحيث حينا اختار اسم الصفحه يتم الذهاب اليها ولكم جزيل الشكر