معرفة كود يمنع المستخدم من أدخال نفس المعلومه أكثر من مره

السلام عليكم

جرب الكود التالى

	Public Function Search(ByVal Table As String, ByVal field As String, ByVal Txt As String) As Object
		Dim Return_Object As Object = Nothing
		Try
			mSqlCommand.CommandText = "select * from " & Table & " where " & field & " = '" & Txt & "'"
			mSqlCommand.Connection = Me.SqlConnection
			ConnectDb()
			Return_Object = mSqlCommand.ExecuteScalar()
			Return Return_Object
		Catch ex As SqlException
			MessageBox.Show(ex.Message)
		Finally
			DisconnectDb()
		End Try
	End Function

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

مثال

	  Dim Return_Object As Object = .Search("Type", "TypeName", Me.txtTypeName.Text.Trim)
			If Not Return_Object = Nothing Then
				CMessageBox.Show(" تم حفظ بيانات نوع المعاملة  " & " ( " & Me.txtTypeName.Text.Trim & " )" & "  من قبل لا يمكن التكرار  ", " خطــأ فى إدخال البيانات  ", MessageBoxButtons.OK, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
							   Exit Sub
			End If