VBA-kode til åbning af form i designvisning

access 97

Indsæt følgende kode:

DoCmd.DoMenuItem acFormBar, 2, 0, , acMenuVer70

Åbner formularen i design visning

Dette skulle også virke ved flytning

Me.DitObjekt.Left = 5000 'Her bliver den flyttet 5 cm fra toppen
Me.DitObjekt.Top = 1000  'Her bliver den flyttet 10 cm fra venstre

eller

DoCmd.OpenForm "frmKalender", acDesign

Okay det med at åbne formen er INTET problem, men at få sat fokus på eksempelvis en tekstboks efter åbning og derefter flytte denne 1 mm mofd højre og 1 mm ned, det kan jeg ikke få til at virke efter hensigten.
Er det endnu en gang problematikken omkring !(BANG) kontra .(DOT), der her spiller ind ??
Håber på endnu et godt bud på en løsningsmodel..
mvh

Martens

Du skal bare aflæse textboxens placering på siden, ved at bruge dens navn som henvisning. Derefter kan du vel addere med 1 mm. Prøver lige selv først.

Følgende kode skifter til Designvisning og flytter txtbox "Flyt"

'Desingvisning og aflæser position
DoCmd DoMenuItem A_FORMBAR, 2, 0, , A_MENU_VER20
TopPos = Me!Flyt.Top
LeftPos = Me!Flyt.Left

'Beregner ny position - her kan su sætte flytningen ind.
Ntoppos = TopPos * 2
Nleftpos = LeftPos * 2

'Her flyttes txtboxen til ny position
Me!Flyt.Top = Ntoppos
Me!Flyt.Left = Ntoppos


BEMÆRK: positionen af txtboxen beregnes i twips, 567 twips = 1 cm.

Ovenstående kode er lavet til Access 2.0 - for at den skal virke, skal du bare tilpasse koderne i designvisning linien til access 97.

tester det lige....
mvh martens

Hej Martens

Da jeg kan se at spørgsmålet stadig er åbent, har jeg lige et løsningsforslag til dig.

--- Start ---

Function MoveElement(strForm, strElement As String, intTwips)

Dim x, y As Integer

DoCmd.OpenForm strForm, acDesign

x = Forms(strForm)(strElement).Left
y = Forms(strForm)(strElement).Top

Forms(strForm)(strElement).Left = x + intTwips
Forms(strForm)(strElement).Top = y + intTwips

End Function

--- Stop ---

Funktionen tager formular- og elementnavnet, samt antal "twips" du flytte elementet som parametre (567 twips = 1 cm).

Håber at du kan bruge svaret.

Med venlig hilsen

LKP

Checker lige

mvh martens

lukker