15. februar 2017 - 14:28Der er
4 kommentarer og 1 løsning
Bookmark
Hej
Jeg bruger denne funktion
if not isnull(me.parent.openargs) then Dim auto As long Dim rs As Object
Set rs = Me.Recordsetclone auto = Val(Me.Parent.OpenArgs) rs.FindFirst "[auto]=" & auto If not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
Jeg kunne godt tænke mig at bruge 2 felet istedet for det ene nu som er auto. Jeg vil gerne bruge Dato og Klok felt istedet, men hvordan ligger jeg dem ind i rs.FindFirst?
Jeg har prøvet "[Dato] & [Klok]=" & auto og "[auto]=" & Dato & Klok
Hm. Som udgangspunkt kan du kun overføre én værdi i OpenArgs; men du kan jo pakke de to værdier i et enkelt felt, f.eks. x=format(Dato+Klok,"ddmmyy_hhnn") Ovenstående forudsætter at Dato og Klok er af typen Date. Hvis det er tekster, kan du f.eks. bruge: x=Dato & "_" & Klok Så overfører du x som argument til din form.
I din kode i selve formen kan du så sammenligne en sammensat værdi (sammensat af Dato og Klok på samme måde som ovenfor) med OpenArgs. Det kræver formodentlig at du skyder en forespørgsel ind, hvor du beregner den sammensatte værdi. Det giver altså: auto = Val(Me.Parent.OpenArgs) rs.FindFirst "[DenSammensatte]=" & auto
if auto is one field then you just need to combine the date and time into openargs, dont see any reason why you should try passing two over and then combining them.
Det Terry ganske rigtigt pointerer som overflødigt, ville svare til, hvis man havde en tabel med skonumre, så at bruge 2 felter - et til enerne 'skod0' og et til tierne 'skod1' og så beregne nummeret som 10*d1+d0 - fikst!
En tabel med formular:
tidspunkt program ----------------------------------- 14-02-2017 09:00:00 Milionærklubben 14-02-2017 10:00:00 Det røde kabinet 16-02-2017 10:00:00 Spørge Jørgen 16-02-2017 16:00:00 Rene ord for pengene 17-02-2017 11:00:00 Det vi taler om
Private Sub Form_Open(Cancel As Integer) If Not IsNull(OpenArgs) Then With RecordsetClone .FindFirst "cdbl(tidspunkt)=" & Replace(OpenArgs, ",", ".") If Not .NoMatch Then Bookmark = .Bookmark End With: End If End Sub
Bemærk at openArgs ikke overfører en streng som er formateret som tidspunkt - det er heller ikke det som har været tilfældet med vba stumpen i spørgsmålet (... as long)
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.