Paano Mabilis na Duplicate ang Mga Tala sa Iyong Access

Matutunan kung paano ka makakagawa ng VBA function na nagbibigay-daan sa iyong kopyahin ang ilang partikular na data mula sa mga nakaraang tala sa isang pag-click lang ng isang button. Hindi na kailangang paulit-ulit na i-type ang parehong mga bagay.

Nakaranas ka na ba ng karanasan kung saan kailangan mong magpasok ng bagong tala sa Access na may eksaktong parehong hanay ng mga halaga sa isang nakaraang tala maliban sa isang field? Nakakapagod naman diba? Ang tutorial na ito ay magtuturo sa iyo kung paano ka makakagawa ng isang function na sa isang pag-click ng isang pindutan, maaari mong kopyahin ang ilang mga halaga ng isang nakaraang tala - na nakakatipid sa iyo ng oras mula sa muling pag-type. Sundin lamang ang mga hakbang sa ibaba.

Download na Ngayon

Kung gusto mong simulan ang paggamit ng feature sa lalong madaling panahon, maaari mong:

I-download ang Sample Database na may VBA Codes Ngayon

Kung hindi man, kung nais mong DIY, maaari mong basahin ang mga nilalaman sa ibaba.

Mga Hakbang para Magdagdag ng 'Gumawa ng Record Copy' Functionality sa Access

1. Buksan ang iyong form sa view ng disenyo.
2. Magdagdag ng command button. Laktawan ang command button wizard.
3. Magdagdag ng isang Sa Pag-click kaganapan sa pindutan.

• Habang nasa view ng disenyo, piliin ang button.
• Buksan ang Property Sheet (ALT + Enter)
• Pumunta sa tab na Kaganapan > Sa Pag-click > …
• Kapag ang Piliin ang Tagabuo menu pop up, piliin ang Tagabuo ng Code.
• -Click ang OK.
• Bubuksan nito ang VBA Editor.

4. 1. Kopyahin ang sumusunod na code at baguhin ito upang umangkop sa iyong mga pangangailangan. Gamitin ang mga komento bilang gabay.

   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. Ngayon subukan ang code kung ito ay gumagana.

Ipinaliwanag ang Code

Ang code sa itaas ay ginamit para sa database ng isang bookstore. Dahil sa mga serye ng libro, may mga pagkakataon kung saan ang lahat ng mga detalye ng aklat (hal. May-akda, Bansa, Wika, atbp.) ay pareho maliban sa isang field – ang Pamagat. Kaya, ang pangangailangan para sa code.

Ipinapakita ng listahan sa ibaba ang daloy ng programa.

1. Suriin kung ang user ay pumili ng isang tala na kokopyahin. May lalabas na mensahe ng error kung mag-click ang user sa button pagkatapos i-click ang button na Magdagdag ng Bagong Record – ginagawang null ang ID.

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

2. Kunin ang ID o pangunahing key ng kasalukuyang tala at italaga ito bilang halaga para sa kasalukuyangID Ito ay gagamitin bilang batayan para sa mga halagang makokopya.

currentID = BookID

3. Magdagdag ng bagong record.

DoCmd.GoToRecord record:=acNewRec

4. Magtakda ng mga halaga para sa ilang partikular na field batay sa kasalukuyangID Dito kinokopya ang data mula sa napiling tala.

'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. Itakda ang pokus sa field na malamang na unang i-edit ng user. Pinahuhusay nito ang karanasan ng user dahil inaalis nito ang pangangailangang manu-manong piliin ng user ang field na kailangan pang i-update.

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

Ayusin ang isang Sirang Database

Kung sa isang hindi magandang dahilan, magising ka isang araw na hindi mo mabuksan ang iyong database, maaari mong subukan ang mga tool ng third-party na gumaganap Pag-aayos ng access. Gumagawa ito ng mga kababalaghan.

Panimula ng May-akda:

Si Jayme Stack ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang sql paggaling at excel mga produkto ng pagbawi ng software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa