asked on # measure the distance between two points on a form in centimeter

Hi

Can I measure the distance between two points on a form in centimeter ?

I need when I click on a form the first click (I keep the first position value), then the second click(I keep the second position value) then get the distance between these two points in centimeter .

Is it possible to do so with ms access?

Please help

Can I measure the distance between two points on a form in centimeter ?

I need when I click on a form the first click (I keep the first position value), then the second click(I keep the second position value) then get the distance between these two points in centimeter .

Is it possible to do so with ms access?

Please help

Microsoft Access

The distance between points should be in twips. To convert, there are 567 twips in a centimeter

To handle either direction try:

ABS([StartPoint] - [EndPoint]) / 567 = centimeter

ABS([StartPoint] - [EndPoint]) / 567 = centimeter

ABS([StartPoint] - [EndPoint]) / 567 = centimeter

is this will fit to any direction on a form?

as you know the first click maybe at top left of form

and second click maybe at bottom right of form.

does this equation will work to any direction as long as i have to points?

is this will fit to any direction on a form?

as you know the first click maybe at top left of form

and second click maybe at bottom right of form.

does this equation will work to any direction as long as i have to points?

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

M_SOLAIMAN,

My example assumed you were doing a start line either vertical or horizontal. If it is a slanted line then you will need to to look at it as a right triangle triangle. You can calculate the sides for vertical and horizontal. Now you can calculate the third side. Remember the Right Triangle (90° corner) stuff from geometry class about The Pythagorean theorem?

a = horizontal distance

b= vertical distance

c (the distance you want) = square root of (a² + b ²)

My example assumed you were doing a start line either vertical or horizontal. If it is a slanted line then you will need to to look at it as a right triangle triangle. You can calculate the sides for vertical and horizontal. Now you can calculate the third side. Remember the Right Triangle (90° corner) stuff from geometry class about The Pythagorean theorem?

a = horizontal distance

b= vertical distance

c (the distance you want) = square root of (a² + b ²)

hi

pls try this method ..

1, get two points from cursor position in form.

2, and then apply the centimete calculation

by

kumaresan. v

pls try this method ..

1, get two points from cursor position in form.

2, and then apply the centimete calculation

by

kumaresan. v

```
Declare Function xFind_centimeter_twopoints Lib "user32" _
(lpPoint As POINTAPI) As Long
' Access the GetCursorPos function in user32.dll
Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
' GetCursorPos requires a variable declared as a custom data type
' that will hold two integers, one for x value and one for y value
Type POINTAPI
X_Pos As Long
Y_Pos As Long
End Type
' Main routine to dimension variables, retrieve cursor position,
' and display coordinates
Sub Get_Cursor_Pos()
' Dimension the variable that will hold the x and y cursor positions
Dim Hold As POINTAPI
' Place the cursor positions in variable Hold
GetCursorPos Hold
' Display the cursor position coordinates
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
"Y Position is : " & Hold.Y_Pos
End Sub
' Routine to set cursor position
Sub Set_Cursor_Pos()
' Looping routine that positions the cursor
For x = 1 To 480 Step 20
SetCursorPos x, x
For y = 1 To 40000: Next
Next x
End Sub
```

hi

please try this method also...

by

kumaresan

please try this method also...

by

kumaresan

```
Function Convert_Decimal() As Double
' Declare the variables to be longint.
Dim xStart_Points As longint
Dim xEnd_Points As longint
Dim xCentimeter As double
dim X_Pos As Long
dim Y_Pos As Long
'Read start position on first click event
xStart_Points := self.X_Pos;
'Read start position on first click event
xEnd_Points := self.Y_Pos ;
'calculate centimeter..
xCentimeter := xEnd_Points - xStart_Points;
xCentimeter := abs(xCentimeter/567)
' Display the centimeter value
MsgBox "centimeter between two points is : " & xCentimeter &
End Sub
End Function
```

OK Now i get the Start point (X,Y) = 6750,2565. and the End point (X,Y) = 7350,5550.

please, how to measure the distance in between "centimeters"?

please, how to measure the distance in between "centimeters"?

the values shown are in twips 1 cm = 567 twips

Start point (X,Y) = 6750,2565 'these values are in twips

Start point (X/567,Y/567) = values in cm

Start point (X,Y) = 6750,2565 'these values are in twips

Start point (X/567,Y/567) = values in cm

OK

but how to calculate the distance between these two Cartesian axis

but how to calculate the distance between these two Cartesian axis

Where:

Start point (**X1,Y1**) = 6750,2565.

and

End point (**X2,Y2**) = 7350,5550.

In VBA use:

which would be:

Start point (

and

End point (

In VBA use:

```
Sqr( ABS(X1- X2) * ABS(X1-X2)) + ( ABS(Y1-Y2) * ABS(Y1-Y2) ) / 567
```

```
Sqr((ABS((X1 - X2)/567) * ABS((X1 - X2)/567) ) + (ABS((Y1-Y2)/567) * ABS((Y1-Y2)/567)))
```

which would be:

```
? Sqr((ABS((6750 - 7350)/567) * ABS((6750 - 7350)/567) ) + (ABS((2565-5550)/567) * ABS((2565-5550)/567)))
5.36984906375906
```

View this solution by signing up for a free trial.

Members can start a 7-Day free trial and enjoy unlimited access to the platform.

wonderful