Avatar billede mansoor Nybegynder
22. november 2000 - 12:14 Der er 10 kommentarer og
1 løsning

Splitte et felt op i 2

Hej

Jeg sidder med et problem, som jeg håber at nogen kan hjælpe mig med.

Jeg har et klub-nr som består at amt-nr. + klub-nr. f.eks. 00-561

Mit problem er følgende at jeg skal have access-formularen til når jeg forlader feltet klub-nr. at splitte feltet klub-nr op og lægge de 2 første ciffer over i feltet amt-nr.

Hvis 60 point ikke er nok, kan vi godt forhandle os frem til flere.

Håber på en hurtig reaktion
Avatar billede cktarget Nybegynder
22. november 2000 - 12:18 #1
i den hændelsesprocedure der hedder afterupdate() skal du lægge følgende kode.

amt-nr.text = left(\"streng du vil bruge\",2)

mvh Kedde
Avatar billede privaten Nybegynder
22. november 2000 - 12:21 #2
Dim a, b, c
a = \"00-561\"
b = Left(a, InStr(a, \"-\") - 1)
c = Mid(a, InStr(a, \"-\") + 1)
Avatar billede mansoor Nybegynder
22. november 2000 - 13:51 #3
Skal .text med i  den streng jeg bruger
Avatar billede privaten Nybegynder
22. november 2000 - 14:15 #4
amt-nr.text = left(klub-nr.text,Instr(klub-nr.text,\"-\"-1)
Ideen med at anvende Instr skulle være at du ikke nødvendigvis behøver at begrænse dig til to karakterer i amt-nr, hvis det er underordnet kan du skrive:
amt-nr.text = left(klub-nr.text,2)
Avatar billede mansoor Nybegynder
22. november 2000 - 15:10 #5
Jeg får en run-time error 2185:
Du kan ikke referere til en egenskab eller metode for et kontrolelement, hvis det ikke har forkus.

Mit spørgsmål er så hvad er det der skal være i fokus, og  hvordan.

Håber en vil hjælpe
Avatar billede privaten Nybegynder
22. november 2000 - 15:12 #6
amt-nr.setfocus
Avatar billede privaten Nybegynder
22. november 2000 - 15:13 #7
(inden du tildeler feltet ny værdi)
Avatar billede mansoor Nybegynder
22. november 2000 - 15:25 #8
Hej Privaten,

Jeg har prøvet følgende:

Private Sub Klub_Nr_AfterUpdate()
  Amts_Nr.SetFocus
  Amts_Nr.Text = Left(Klub_Nr.Text, 2)
End Sub

Men ligemeget hjælper det, kan du se hvad der er galt?
Avatar billede privaten Nybegynder
22. november 2000 - 15:42 #9
Prøv med
Private Sub Klub_Nr_AfterUpdate()
    Dim a As String
    a = Klub_Nr.Text
    Amts_nr.SetFocus
    Amts_nr.Text = Left(a, 2)
End Sub

Avatar billede mansoor Nybegynder
22. november 2000 - 23:04 #10
Hej Privaten,

Tak  for din hjælp, men jeg håber du vil hjælpe mig igen.

Nu får jeg følgende fejl:

Run-Time Error 2115:
Den makro eller funktion, der er angivet for egenskaben FørOpdatering eller Valideringsregel for dette felt, forhindre Microsoft Access i at gemme dataene i dette felt.

Jeg er villig til at give dig flere point for dette.

På forhånd tak
Avatar billede privaten Nybegynder
23. november 2000 - 08:37 #11
Hej,

Hvad mener du med flere, jeg har da ikke fået nogle point ;-)

Prøv med Amts_nr.Value = Left(a, 2)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester