تبلیغات
آموزش نرم افزار های تخصصی - ممانعت از ورود داده تکراری در فرم به همراه صدور پیغام مناسب

ممانعت از ورود اطلاعات تکراری در اکسس


در این مطلب فرا خواهیم گرفت که چگونه در حین ورود اطلاعات خاص به عنوان مثال لیست کالاهای یک فروشگاه ، اسامی دانش آموزان یک مدرسه و یا وارد نمودن مشخصات مربوط به کتابهای یک کتابخانه به همراه نام نویسنده هر کتاب ، از ورود مشخصات تکراری که قبلا در جدول مربوطه وارد شده اند با صدور پیغام مناسب جلوگیری به عمل آوریم .


در ادامه مطلب همراه من باشید .
1. جدول خود را در نمای طراحی باز نموده و آیتم های زیر را درون آن وارد نمایید .

پیغام داده تکراری در اکسس

2. فرم خود را با توجه به فیلدهای جدول بالا  ایجاد نمایید . اطلاعات مربوط به نام کتابها ی مورد نظر خود را به همراه نویسنده هر کتاب درون این فرم وارد نمایید تا درون جدول مربوطه ذخیره شوند .

3. برای پیمایش بین رکوردها دکمه های مربوط برای رفتن به رکوردهای قبلی و بعدی و نیز ایجاد رکورد جدید ایجاد نمایید .

4.اکنون در حالتی که در نمای طراحی فرم قرار دارید  تکس باکس مربوط به نام نویسنده را انتخاب نموده و در رویداد After update  مربوط به این تکس باکس کدهای زیر را وارد نمایید .


Private Sub author_AfterUpdate()
Dim Newbook, Newauthor As String
Dim stLinkCriteria As String
Dim bookNo As Integer

Newbook = Me.bookname.Value
Newauthor = Me.author.Value
stLinkCriteria = "[bookname] = " & "'" & Newbook & "' and [author]  = " & "'" & Newauthor & "'"
If Me.bookname = DLookup("[bookname]", "tblbooks", stLinkCriteria) Then

   MsgBox "این کتاب با عنوان  " & " " & Newbook & " " & "به نویسندگی " & Newauthor _
  & vbCr & "در حال حاضر در پایگاه داده ثبت شده است " & vbCr & "لطفا دوباره بررسی نمایید .", vbInformation, "اطلاعات تکراری"
                
     Me.Undo

     bookNo = DLookup("[bookcode]", "tblbooks", stLinkCriteria)
     Me.DataEntry = False
     DoCmd.FindRecord bookNo, , , , , acCurrent
End If
End Sub
5. حال کافی است که یک کتاب را از یک نویسنده واحد دوبار وارد نمایید که به محض این کار پیغام مربوطه برای شما صادر خواهد شد .


طبقه بندی: آموزش ACCESS، ترفند Access ،
برچسب ها:جلوگیری از ورود اطلاعات تکراری، فرم اکسس، پیغام برای اطلاعات تکراری،
تاریخ : دوشنبه 27 آذر 1396 | 11:10 ب.ظ | نویسنده : امید شهری | نظرات()
.: Weblog Themes By Bia2skin :.