Kā izveidot savu sadalīto veidlapu programmā Access, izmantojot VBA

Dalītās formas programmā Access ir ļoti noderīgas. Diemžēl, ja jūs tos ievietojat navigācijas veidlapā, tie nedarbojas. Uzziniet, kā jūs varat izveidot VBA funkciju, kas simulēs Access sadalītās formas funkcijas un padarīs to darbīgu pat navigācijas formā.

Sadalītā forma ļauj vienlaikus izmantot divus ierakstu skatus - formas skatu un datu lapas skatu. Tas ļauj jums iegūt visu savu ierakstu pārskatu, vienlaikus dodot iespēju tos skatīt un rediģēt pa vienam.

Diemžēl sadalītās veidlapas nedarbosies, ja tās ievietosiet navigācijas formā - kaut kas mani mulsina. Labi, ka tam ir kāds risinājums. Izmantojot VBA, varat izveidot savu funkciju, kas imitēs Access sadalīto formu. Vienkārši izpildiet tālāk norādītās darbības.

Lejupielādēt tagad

Ja vēlaties sākt lietot šo funkciju pēc iespējas ātrāk, varat:

Lejupielādējiet paraugdatu bāzes ar VBA kodiem tūlīt

Pretējā gadījumā, ja vēlaties DIY, varat izlasīt tālāk sniegto saturu.

Darbības, lai izveidotu savu sadalīto veidlapu programmā Access, izmantojot VBA

1. Atveriet sadalīto veidlapu un atjauniniet noklusējuma skatu uz Vienota forma.

1. Atveriet sadalīto veidlapu.
2. Atrodoties noformējuma skatā, atlasiet formu.
3. Atveriet cilni Īpašuma lapa (ALT + Enter)> Veidlapa.
4. Mainīt noklusējuma skatu uz: Viena veidlapa.
5. Aizveriet veidlapu un saglabājiet.

2. Izveidojiet veidlapas kopiju. Tas kalpos kā datu lapas skats.

1. Atveriet navigācijas rūti.
2. Ar peles labo pogu noklikšķiniet uz veidlapas un atlasiet Kopēt.
3. Ar peles labo pogu noklikšķiniet uz tukša apgabala navigācijas rūtī un atlasiet Ielīmēt.
4. Mainiet veidlapas nosaukumu. Pievienojiet to ar “_Datasheet”.

Piemērs:

• Forma: deputāti
• Veidlapas kopija: Members_Datasheet

3. Atveriet datu lapas veidlapu un atjauniniet tās formas skata rekvizītus.

1. Atveriet datu lapas formu.
2. Atrodoties noformējuma skatā, atlasiet formu.
3. Dodieties uz cilni Īpašuma lapa> Veidlapa.
4. Atjauniniet šādus rekvizītus:
   • Noklusējuma skats: Datu lapa
   • Atļaut datu lapas skatu: Jā
   • Atļaut veidlapas skatu: Nē
5. Aizveriet veidlapu un saglabājiet.

4. Atkārtoti atveriet galveno veidlapu un pievienojiet datu lapas veidlapu kā apakšformu.

1. Dizaina skatā atveriet galveno veidlapu (kopēto).
2. Pievienojiet apakšformu.
   • Dodieties uz izvēlni Dizains. Atlasiet Subform / Subreport.
   • Noklikšķiniet uz veidlapas sadaļas Detalizēti.
   • Parādīsies apakšformas vednis.

1. Noklikšķiniet uz Lietot esošu veidlapu.

2. Atlasiet datu lapas veidlapu.

3. Noklikšķiniet uz Tālāk.

4. Atlasiet “Definēt savu”.

5. Noklikšķiniet uz Pabeigt.

3. Datu lapas forma tagad ir jūsu galvenās veidlapas apakšforma. Pielāgojiet to vēlamajam izmēram un pozīcijai.

5. Visbeidzot pievienojiet kodu.

1. Atveriet VBA redaktoru (ALT + F11).
2. Atlasiet galveno veidlapu un ielīmējiet sekojošo kodu.

'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. Pēc koda kopēšanas nomainiet visus vārda gadījumus Dalībnieku_datu lapa ar faktisko datu lapas veidlapas nosaukumu.
4. Kad esat pabeidzis, izvēlnē Projekts atlasiet datu lapas veidlapu un nokopējiet zemāk esošo kodu.

'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. Atjauniniet šo mainīgo vērtības:

• pk_tbox - attiecas uz tekstlodziņu, kurā ir galvenā atslēga.
• pk_field - attiecas uz ieraksta avota primārās atslēgas lauku.

Katram no tiem komentāru sadaļā ir zvaigznīte (*), lai jūs varētu tos viegli atrast.

6. Kad esat pabeidzis, saglabājiet izmaiņas (CTRL + S) un aizveriet VBA redaktoru.

Tagad navigācijas veidlapā varat pievienot savu sadalīto veidlapu. Izmēģini!

Labot bojātu piekļuves datu bāzi (.accdb)

Access datu bāzes bojājumam var būt daudz iemeslu. Diemžēl mēs nevaram kontrolēt lielāko daļu no tiem. Ja tas ar jums notiek, atcerieties, ka joprojām ir veids, kā to atgūt. DataNumen Inc. ir izveidojis programmatūru, kas darbojas accdb remonts. Pārbaudi.

Autora ievads:

Džeims Steks ir datu atkopšanas eksperts DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sql atgūšana un Excel atkopšanas programmatūras produkti. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar