كود عدم تشابة ثلاث في نفس القمية عند ادخالهم في المره التانية
مثلا . الوقت التاريخ والمكان لا اريد التكرار نفس القيم في حقول اخرى
اكسس
عند تصميم الجدول
حدد الحقل المراد عدم تكرار البيانات به
وغير خاصية ( مطلوب ) الى نعم ( بدون تكرار ) بدلا من لا
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
اخي الكريم اعتقد ان تضع للحقول الثلاثة مفتاح اساسي
قم بتعليمهم ثم ضع المفتاح الاساسي
بالتوفيق
شكرا على الرد
لكن اريد الثلاث حقول مع بعض
يعني مثلا اليوم الوقت من الى المكان
الاحد الثلاثاء 10 -20 س لا اريد تكرار القيمة نفسها كاملة في الثلاث حقول بينما في حقول اخرى نستطيع ادخال المعلومات لكن بتغير المكان مثلا ابو بتغير الوقت .
سؤالك غير مفهوم
ضعي مثال مع التوضيح اكثر
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
ضع مثال قاعدة بيانات حتى يمكن التطبيق عليه
اخي الكريم جرب الطريقة التي سرتها لك
الملف حجمة كبير لا يقبل رفعة
اختي الكريمة اختاري الجدول والنموذج وكل ما يختص بالنموذج في قاعدة مستقلة وارفعيها
مابزبط
noor2011 كتب:مابزبط
=====
السلام عليكم ورحمة الله وبركاته
حاولوا ان تصنعو ملف قاعدة بيانات جديد يحتوي فقط الجدول المراد اجراء المطلوب عليه مع النموذج فقط
وكما قال الاخوة حاولي تحديد الحقول الثلاثة وان تنقري على مفتاح اساسي ستلاحظين علامة المفتاح على الحقول المختارة ظاهرة
وبالتالي تكون هذه الحقول ذات قيم غير متكررة مهما حاول المستخدم ان يكررها سيعترض البرنامج
وبالتوفيق
اللهم لك الحمد كما ينبغي لجلالك وعظيم سلطانك
يعطيكم العافية جميعا
انا اريد عدم تكرار القيمة في الثلاث حقول مع بعض ليس كل حقل لوحده
الثلاث حقول معا بحيث لا تكرر الثلاث حقول
مثلا
حقل 1---في محمد
حقل 2------ في 20
الحقل الثالث في اداري
او كان هناك شخص اخر يحمل نفس الحقل الاول والثاني لكن في الاخير مختلف وهذا ما اريده
هي فاعدة بيانات لجدول مواد قسم في جامعه
ما بدي بصير تعارض بين الوقت والمكان واليوم بس
أريد كود للتححق من عدم تكرار البيانات في 3حقول مع بيانات مدخلة سابقا
وجدت كود لاحد الاعضاء لكن معمول لحقل واحد فقط
If Not check() Then
Exit Sub
End If
Select Case (test)
Case 1
CreateConn()
Dim SQLString As String = "SELECT * FROM main WHERE MOB='" & Me.mob.Text & "'"
Dim objCommand As OleDbCommand = New OleDbCommand(SQLString, getConn())
OpenConn()
Dim objDataReader As OleDbDataReader
Try
objDataReader = objCommand.ExecuteReader()
If objDataReader.HasRows Then
has_row = 1
Else
has_row = 2
End If
objDataReader.Close()
Catch OleDbExceptionErr As OleDbException
MessageBox.Show(OleDbExceptionErr.Message, "eeee Access SQL")
End Try
objCommand.Dispose()
objCommand = Nothing
objDataReader = Nothing
CloseConn()
If has_row = 2 Then
If MsgBox(" هل تريد حفظ السجل الحالي ؟ ", MsgBoxStyle.OkCancel, "تأكيد الحفظ") = MsgBoxResult.Cancel Then
Exit Sub
End If
Try
Dim SavInto As New OleDb.OleDbCommand
CreateConn()
SavInto.Connection = getConn()
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO main(sr,name,tel,mob,mob1,email,gover,rigon,part,str,sst,home,vip,zk_date,sex)" & _
"values ('" & Me.Txt_id.Text & "','" & Me.Txt_nam.Text & "','" & Me.tel.Text & "','" & Me.mob.Text & "' " & _
",'" & Me.mob1.Text & "','" & Me.mail.Text & "','" & Me.gover.SelectedValue.ToString & "','" & Me.rgon.SelectedValue.ToString & "' " & _
",'" & Me.part.Text & "','" & Me.street.Text & "','" & Me.s_street.Text & "','" & Me.txt_home.Text & "', '" & Me.vip.SelectedValue.ToString & "','" & Me.MaskedTextBox1.Text & "','" & Me.Comb_sex.SelectedValue.ToString & "') "
OpenConn()
If SavInto.ExecuteNonQuery() Then
SavInto.Dispose()
SavInto = Nothing
CloseConn()
ts.Text = "تمت الإضافة بنجاح"
fill_ds()
NavigateRecords()
MyCurrencyManager.Position = MyCurrencyManager.Count - 1
record_count()
btn_enable(True)
Else
MsgBox("فشلت عملية الإضافة", MsgBoxStyle.MsgBoxRight, "رسالة خطأ")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
MsgBox("البيانات المدخلة مكررة ... من فضلك تأكد من البيانات ", MsgBoxStyle.Critical, "خطـــأ")
End If
Case 2
If MsgBox(" هل تريد حفظ التعديل على البيان الحالي ؟ ", MsgBoxStyle.OkCancel, "تأكيد الحفظ") = MsgBoxResult.Cancel Then
Exit Sub
End If
Try
Dim intPosition As Integer = MyCurrencyManager.Position '
Dim SavInto As New OleDb.OleDbCommand
CreateConn()
SavInto.Connection = getConn()
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "update main set " & _
"name='" & Me.Txt_nam.Text & "'," & _
"tel='" & Me.tel.Text & "'," & _
"mob='" & Me.mob.Text & "'," & _
"mob1='" & Me.mob1.Text & "'," & _
"email='" & Me.mail.Text & "'," & _
"gover='" & Me.gover.SelectedItem.ToString & "'," & _
"rigon='" & Me.rgon.SelectedItem.ToString & "'," & _
"part= '" & Me.part.Text & "'," & _
"str='" & Me.street.Text & "'," & _
"sst=" & Me.s_street.Text & "'," & _
"home=" & Me.txt_home.Text & "'," & _
"vip='" & Me.vip.SelectedItem.ToString & "'," & _
"zk_date=" & Me.MaskedTextBox1.Text & "'," & _
"SEX='" & Me.Comb_sex.SelectedItem.ToString & "'," & "' where sr = " & CType(Me.Txt_id.Text, Integer)
OpenConn()
If SavInto.ExecuteNonQuery() Then
SavInto.Dispose()
SavInto = Nothing
CloseConn()
ts.Text = "تم التعديل بنجاح"
fill_ds()
NavigateRecords()
MyCurrencyManager.Position = intPosition
record_count()
btn_enable(True)
Else
MsgBox("فشلت عملية التعديل", MsgBoxStyle.MsgBoxRight, "رسالة خطأ")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Select
Me.btn_add.TabIndex.ToString()
End Sub
اخى الكريم اعتقد ان افضل طريقة عن اقتناع هى عمل استعلام تكرار للثلاثة حقول ثم عمل استعلام حذف فهى اسهل طريقة