Kako ustvariti lasten razdeljeni obrazec v Accessu z VBA

Razdeljeni obrazci v Accessu so izjemno uporabni. Na žalost ne delujejo, ko jih postavite v navigacijski obrazec. Naučite se, kako lahko ustvarite funkcijo VBA, ki bo simulirala Accessove funkcije razdeljenega obrazca in poskrbela, da bo delovala tudi znotraj navigacijskega obrazca.

Razdeljeni obrazec vam omogoča, da imate hkrati dva pogleda svojih zapisov – pogled obrazca in pogled podatkovnega lista. Omogoča vam pregled nad vsemi vašimi zapisi, hkrati pa vam omogoča ogled in urejanje enega za drugim.

Na žalost razdeljeni obrazci ne bodo delovali, če jih postavite v navigacijski obrazec – nekaj, kar me bega. Še dobro, da obstaja rešitev za to. Z uporabo VBA lahko ustvarite lastno funkcijo, ki bo simulirala razdeljeno obliko Accessa. Samo sledite spodnjim korakom.

Prenesi zdaj

Če želite funkcijo začeti uporabljati čim prej, lahko:

Zdaj prenesite vzorčno zbirko podatkov s kodami VBA

V nasprotnem primeru, če želite sami, lahko preberete spodnjo vsebino.

Koraki za ustvarjanje lastnega razdeljenega obrazca v Accessu z VBA

1. Odprite razdeljeni obrazec in posodobite privzeti pogled na enojni obrazec.

1. Odprite razdeljeni obrazec.
2. V pogledu oblikovanja izberite obrazec.
3. Pojdite na list z lastnostmi (ALT + Enter) > zavihek Obrazec.
4. Spremenite privzeti pogled na: En obrazec.
5. Zaprite obrazec in shranite.

2. Ustvarite kopijo obrazca. To bo služilo kot pogled podatkovnega lista.

1. Pojdite v navigacijsko podokno.
2. Desni klik na vaš obrazec in izberite Kopiraj.
3. Desni klik na prazno območje v podoknu za krmarjenje in izberite Prilepi.
4. Spremenite ime obrazca. Dodajte ga z »_Datasheet«.

primer:

• Oblika: Člani
• Kopija obrazca: Members_Datasheet

3. Odprite obrazec podatkovnega lista in posodobite njegove lastnosti pogleda obrazca.

1. Odprite obrazec podatkovnega lista.
2. V pogledu oblikovanja izberite obrazec.
3. Pojdite na List z lastnostmi > zavihek Obrazec.
4. Posodobite naslednje lastnosti:
   • Privzeti pogled: Tehnični podatki
   • Dovoli pogled podatkovnega lista: Da
   • Dovoli pogled obrazca: Ne
5. Zaprite obrazec in shranite.

4. Ponovno odprite glavni obrazec in dodajte obrazec podatkovnega lista kot podobrazec.

1. Odprite glavni obrazec (tisti, ki je bil kopiran) v pogledu načrtovanja.
2. Dodajte podobrazec.
   • Pojdite v meni Oblikovanje. Izberite Podobrazec/Podporočilo.
   • Kliknite na področje Podrobnosti obrazca.
   • Prikaže se čarovnik za podobrazec.

1. Kliknite 'Uporabi obstoječi obrazec'.

2. Izberite obrazec podatkovnega lista.

3. Kliknite Naprej.

4.Izberite »Določi svoje«.

5. Kliknite Dokončaj.

3. Obrazec podatkovnega lista je zdaj podobrazec vašega glavnega obrazca. Prilagodite ga na želeno velikost in položaj.

5. Na koncu dodajte kodo.

1. Odprite urejevalnik VBA (ALT + F11).
2. Izberite glavni obrazec in prilepite kodo, ki sledi.

'MAIN FORM
Option Explicit

Private Sub Form_AfterUpdate()
   Me.Members_Datasheet.Requery
End Sub

Private Sub Form_Current()
   If Me.NewRecord Then
     Me.Members_Datasheet.Form.Recordset.AddNew
   Else
     Me.Members_Datasheet.Requery
   End If
End Sub

3. Po kopiranju kode zamenjajte vse primerke besede Člani_Podatkovni list z dejanskim imenom obrazca podatkovnega lista.
4. Ko končate, izberite obrazec podatkovnega lista v meniju Projekt in kopirajte spodnjo kodo.

'SUBFORM/DATASHEET FORM
Option Explicit

Private Sub Form_AfterUpdate()
   Me.Parent.Form.Requery
End Sub

Private Sub Form_Current()

  Dim pk_field As String, pk_tbox As Control
  Dim primaryKey As String, strSearch As String
 
  Set pk_tbox = Me.Member_ID 'textbox containing primary key *
  pk_field = "Member_ID" 'primary key field name *

  primaryKey = Nz(pk_tbox.Value, 0) 'change value to 0 if null
  pk_field = "[" & pk_field & "]" 'enclose field name with brackets
 
  If primaryKey <> 0 Then 'if not null (or not a new record)
    strSearch = pk_field & "=" & primaryKey
    Me.Parent.Recordset.FindFirst strSearch
  Else
     Me.Parent.Form.Recordset.AddNew
  End If

End Sub

5. Posodobite vrednosti za naslednje spremenljivke:

• pk_tbox – se nanaša na besedilno polje, ki vsebuje primarni ključ.
• pk_field – se nanaša na polje primarnega ključa vira zapisa.

Vsak od njih ima zvezdico (*) v razdelku za komentarje, tako da jih zlahka najdete.

6. Ko končate, shranite spremembe (CTRL + S) in zaprite urejevalnik VBA.

Zdaj lahko znotraj navigacijskega obrazca dodate svoj lasten razdeljeni obrazec. Poskusi!

Popravi poškodovano dostopno zbirko podatkov (.accdb)

Obstaja veliko razlogov, zakaj se Accessova zbirka podatkov poškoduje. Žal nad večino od njih nimamo nadzora. Če se vam to zgodi, ne pozabite, da jo še vedno lahko obnovite. DataNumen Inc. je ustvaril programsko opremo, ki deluje popravilo. Preveri.

Uvod avtorja:

Jayme Stack je strokovnjak za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnovitev sql in excel programske izdelke za obnovitev. Za več informacij obiščite www.datanumen.com