Avatar billede jobless Nybegynder
30. januar 2002 - 19:45 Der er 6 kommentarer og
1 løsning

Dan feltnavn vha. variabel

Hej.

Jeg forsøger at sætte bredden på nogle felter ved hjælp af en løkke, men har problemer med at danne et korrekt feltnavn:
For a = 1 To b
felt = "me![navn" & a & "]"
felt.Width = 3500
next a

problemet er åbentbart at 'felt' kommer ud som f.eks '"me![navn1]"', altså med "" omkring.

Hvad gør jeg galt?

MVH

JoBless
Avatar billede terry Ekspert
30. januar 2002 - 21:40 #1
thats because felt is a string!

felt = "navn" & a

Me(fld).Width = 3500
Avatar billede jobless Nybegynder
31. januar 2002 - 12:43 #2
Ja, det hjalp mig. Mit næste problem er så at jeg gerne vil oprette elementet først. Jeg skriver følgende:
Dim ctlText As Control
Set ctlText = CreateControl("Planlægning", acTextBox, , "", "", intDataX, intDataY)
Jeg før en fejlmeddelelse, at access ikke kan oprette, flytte eller slette pågældende kontrolelement.

Hvad er der nu galt?
Avatar billede terry Ekspert
31. januar 2002 - 12:48 #3
that wasnt in the original question!
Avatar billede jobless Nybegynder
31. januar 2002 - 12:57 #4
Hvis du går efter flere points, er dette ok med mig. Ønsker du at jeg skal oprette et nyt spøgsmål, eller????
Avatar billede terry Ekspert
31. januar 2002 - 13:03 #5
I WOULD prefer it that you created a new question, because I AM really pushed at the moment and I also think others should have the chance to answer too, if that sOK with you? :o)
Avatar billede terry Ekspert
31. januar 2002 - 13:09 #6
well I have received a mail stating that you have accepted my answer, even though I cant see that it is! But thanks anyway :o)
Avatar billede Slettet bruger
10. august 2005 - 14:45 #7
createcontrol kræver, at formen er åbnet i designmode. Følgende kode opretter 100 små tekstbokse

Private Sub Kommandoknap0_Click()  '*** Denne kommandoknap er IKKE på formular4

Dim frm As Form
Dim ctlText As Control
Dim vPos, tPos, Høj, Bred As Integer
Dim I As Integer

  DoCmd.OpenForm "Formular4", acDesign, , , , acHidden

  Set frm = Forms("Formular4")    '*** Set frm= Form_Formular4 virker ikke - og giver den fejl du nævner ovenfor.
 
  tPos = 1000
  Bred = 48
  Høj = 120
 
  For I = 1 To 100
 
      vPos = Bred * I + 2
 
      Set ctlText = CreateControl(frm.Name, acTextBox, , , , vPos, tPos, Bred, Høj)
      ctlText.Properties.Item("name") = "Tb" & I
 
  Next I
 
  DoCmd.Close acForm, "Formular4", acSaveYes

End Sub
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