Хандалтынхаа бүртгэлийг хэрхэн хурдан хуулбарлах вэ

Та товчлуур дээр дарснаар өмнөх бичлэгүүдээс тодорхой өгөгдлийг хуулах боломжийг олгодог VBA функцийг хэрхэн үүсгэж болохыг олж мэдээрэй. Нэг зүйлийг дахин дахин бичих шаардлагагүй.

Та Access-д нэг талбараас бусад өмнөх бүртгэлтэй яг ижил утгатай шинэ бичлэг оруулах хэрэгтэй болж байсан туршлагатай юу? Энэ нь уйтгартай байж болно, тийм үү? Энэхүү заавар нь та товчлуур дээр дарснаар өмнөх бичлэгийн тодорхой утгыг хуулж, дахин бичихээс цаг хэмнэх функцийг хэрхэн үүсгэхийг заах болно. Доорх алхмуудыг дагана уу.

Одоо Татах

Хэрэв та энэ функцийг аль болох хурдан ашиглаж эхлэхийг хүсвэл дараах зүйлсийг хийж болно:

VBA кодтой мэдээллийн сангийн дээжийг одоо татаж аваарай

Үгүй бол, хэрэв та DIY хийхийг хүсвэл доорхи агуулгыг уншиж болно.

Access-д "Бичлэгийн хуулбар үүсгэх" функцийг нэмэх алхамууд

1. Маягтыг дизайны харагдацаар нээнэ үү.
2. Командын товчлуур нэмнэ үү. Тушаалын товчлуурын хөтөчийг алгасах.
3. Нэмэх Дээр дарна уу товчлуур дээр үйл явдал.

• Дизайн дээр байхдаа товчлуурыг сонгоно уу.
• Үл хөдлөх хөрөнгийн хуудсыг нээх (ALT + Enter)
• Үйл явдал таб > Товчлуур > … руу очно уу.
• Үед Builder-ийг сонгоно уу цэс гарч ирэхэд Code Builder-ийг сонгоно уу.
• OK дарна уу.
• Энэ нь VBA редакторыг нээх болно.

4. 1. Дараах кодыг хуулж өөрийн хэрэгцээнд нийцүүлэн өөрчилнө үү. Сэтгэгдэлийг гарын авлага болгон ашиглаарай.

   Private Sub Command24_Click()
       Dim currentID As Long
    
       'TO DO: change all instances of 'BookID' with the actual name of your table's ID or primary key
    
       If IsNull(BookID) Then
           MsgBox prompt:="Please select the record to copy first.", buttons:=vbExclamation
           Exit Sub
       End If
    
       currentID = BookID
       DoCmd.GoToRecord record:=acNewRec
    
       'TO DO: set the fields to be copied (those that most likely will have the same values)
       'FORMAT: fieldName = Dlookup("fieldname", "tableName", "primaryKeyField=" & currentID)
    
        Author = DLookup("Author", "Books", "BookID=" & currentID)
        Country = DLookup("Country", "Books", "BookID=" & currentID)
        Language = DLookup("Language", "Books", "BookID=" & currentID)
        Genre = DLookup("Genre", "Books", "BookID=" & currentID)
        Publisher = DLookup("Publisher", "Books", "BookID=" & currentID)
    
        Title.SetFocus ‘TO DO: change 'Title' with name of field that is going to be edited by the user
    
   End Sub

5. Одоо код ажиллаж байгаа эсэхийг шалгана уу.

Кодыг тайлбарлав

Дээрх кодыг номын дэлгүүрийн мэдээллийн санд ашигласан. Номын цувралын улмаас нэг талбар болох Гарчигаас бусад бүх номын дэлгэрэнгүй мэдээлэл (жишээ нь: Зохиогч, Улс, Хэл гэх мэт) ижил байх тохиолдол байдаг. Тиймээс код хэрэгтэй.

Доорх жагсаалт нь хөтөлбөрийн урсгалыг харуулж байна.

1. Хэрэглэгч хуулах бичлэг сонгосон эсэхийг шалгана уу. Хэрэв хэрэглэгч "Шинэ бичлэг нэмэх" товчийг дарсны дараа товчлуур дээр дарвал алдааны мэдэгдэл гарч ирэх бөгөөд энэ нь ID-г хүчингүй болгоно.

If IsNull(BookID) Then
     MsgBox prompt:="Please select the record to copy first.", buttons:=vbExclamation
     Exit Sub
End If

2. Одоогийн бичлэгийн ID эсвэл үндсэн түлхүүрийг авч, үүнийг утга болгон онооно уу одоогийн ID Үүнийг хуулбарлах утгуудын үндэс болгон ашиглах болно.

currentID = BookID

3. Шинэ бичлэг нэмнэ үү.

DoCmd.GoToRecord record:=acNewRec

4. дээр үндэслэн тодорхой талбаруудын утгыг тохируулна уу одоогийн ID Энд сонгосон бичлэгээс өгөгдлийг хуулж авдаг.

'FORMAT: fieldName = Dlookup("fieldname", "tableName", "primaryKeyField=" & currentID)

Author = DLookup("Author", "Books", "BookID=" & currentID)
Country = DLookup("Country", "Books", "BookID=" & currentID)
Language = DLookup("Language", "Books", "BookID=" & currentID)
Genre = DLookup("Genre", "Books", "BookID=" & currentID)
Publisher = DLookup("Publisher", "Books", "BookID=" & currentID)

5. Хэрэглэгч хамгийн түрүүнд засварлах магадлалтай талбарт фокусыг тохируулна уу. Энэ нь хэрэглэгч шинэчлэх шаардлагатай талбарыг гараар сонгох шаардлагагүй тул хэрэглэгчийн туршлагыг сайжруулдаг.

 Title.SetFocus      ‘TO DO: change 'Title' with name of field that is going to be edited by the user

Эвдэрсэн мэдээллийн санг засах

Хэрэв та харамсалтай шалтгааны улмаас нэг өдөр сэрээд мэдээллийн сангаа нээж чадахгүй бол гуравдагч талын хэрэгслүүдийг ашиглаж болно. Нэвтрэх засвар. Энэ нь гайхамшгийг бүтээдэг.

Зохиогчийн танилцуулга:

Jayme Stack бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх болон excel сэргээх програм хангамжийн бүтээгдэхүүнүүд. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com