13. december 2003 - 16:49Der er
6 kommentarer og 1 løsning
Setfocus på andet end første post
Hej
Jeg har en underformular med felterne "hævet" og indsat" når jeg forlader disse feleter (ved udgang) opdateres et felt i hovedformularen.
Private Sub Hævet_Exit(Cancel As Integer) Forms!Saldotrans!Saldo.SetFocus Forms!Saldotrans.Requery Forms!Saldotrans!Transaktioner!Indsat.SetFocus End Sub
feltet hævet er først og som det ses sættes der focus på næste felt "indsat" når saldo er opdateret. Problemet er at når jeg forlader "hævet" sættes der focus på "indsat", men altid den første post, i dataarket og ikke den post jeg befinder mig i. Kan dette løses ?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Det er fordi du bruger Requery. Denne vil genforespørge i den underliggende forespørgsel og dermed stille markøren i den første post. I stedet for kan du prøve:
Forms!Saldotrans.Refresh
som opdaterer den underliggende forespørgsel, men kan ikke tilføje nye poster. Hvis ikke denne fungerer skal du udvide din kode:
Private Sub Hævet_Exit(Cancel As Integer) Dim bookm Forms!Saldotrans!Saldo.SetFocus bookm = Me.Bookmark Me.Requery Me.Bookmark = bookm Forms!Saldotrans.Requery Forms!Saldotrans!Transaktioner!Indsat.SetFocus End Sub
Ellers kan du også benytte dig af 'GoToRecord' efter du har lavet din Requery...
Private Sub Hævet_Exit(Cancel As Integer) curRec = Me.CurrentRecord 'Gemmer det nuværende record nr. Forms!Saldotrans!Saldo.SetFocus Forms!Saldotrans.Requery DoCmd.GoToRecord acActiveDataObject, "DinForm", acGoTo, curRec 'går til record Forms!Saldotrans!Transaktioner!Indsat.SetFocus End Sub
Nej ikke mere end man kunne forvente. Har dog et mindre et nu, men ved ikke helt hvor jeg skal placere spørgsmålet. Jeg har en underformular der er baseret ud fra en beregnet forespørgelse. Når der ikke fremkommer nogle resultater, forsvinder felterne i formen og den er bare grå.
Denne er ikke afprøvet, men burde fungere indsat i Parentform VedAktuel:
If IsNull(Me.Underordnet_objekt10) Then Me.Underordnet_objekt10.Visible = False Me.Etiket1.Visible = True Else Me.Underordnet_objekt10.Visible = True Me.Etiket1.Visible = False End If
Me.Etiket1 er navnet på en etiket i Paretnform for at fortælle at der ikke er nogen poster.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
