Detail.IGHT를 변경하여 MS 액세스로 양식을 조정하십시오

StackOverflow https://stackoverflow.com//questions/22021802

  •  21-12-2019
  •  | 
  •  

문제

단추를 클릭하여 양식보기에서 사용자가 양식의 높이를 변경할 수있게합니다. 

Private Sub btnChangeHeight_Click()

    booTall = Not booTall

    If booTall Then
        lngHeight = 12400   ' (twips)
    Else
        lngHeight = 1200
    End If

    Me.Detail.Height = lngHeight
    Me.Repaint

    Debug.Print Me.Detail.Height

End Sub
.

높이 변경 - Debug.Print는 booTall가 True 인 경우 세로 스크롤 막대가 나타납니다. 그러나 양식은 화면 상에 수직 차원을 변경하지 않습니다.

나는 또한 성공하지 않고 이것을 시도했다 (내 버튼이 양식 헤더에 있는지 확인) : 

    Me.Detail.Visible = booTall
.

솔루션은 양식의 특성 및 양식 상세 부분에 의존하는 것처럼 보이는 것처럼 보이는 것처럼 : 조정 가능한 , auto height , 아마도 은 성장할 수 있습니다 등 . 그러나 나는 그것들과 아무 것도 작동하지 않습니다.

겹치는 컨트롤과 다른 것들은 높이 조정을 방지 할 수 있으므로 양식을 최소한의 레이아웃으로 줄였습니다. 나는 액세스 버전 2007/2010을 사용하고 있습니다.

몇 가지 추가 정보 : 내가 실제로 일하는 것은 두 개의 하위 모이, (a) 위와 (b) 이하, 아래에서 독립적으로 붕괴되거나 확장 될 수 있습니다. 이것은 많은 데이터가 많은 의사 결정 양식을위한 것입니다. (a) 또는 (b)의 높이를 붕괴 한 것으로 생각하면 CanShrink의 Detail 속성이 전체 양식 차원이 변경되도록합니다. 사실, 몇 년 전 Access 2003을 사용하여 이렇게했습니다. 최대화를 사용하려면 ...이 양식을 다시 사용할 수 있으므로 여러 인스턴스가 열 수 있습니다.

도움이 되었습니까?

해결책

"... 버튼"

을 클릭하여 양식보기에서 양식의 높이 변경

양식의 .Move 메소드를 사용하여 양식의 크기를 변경하십시오.이 샘플은 4044와 8000 Tripps 사이의 양식의 높이를 토글합니다. 

Private Sub btnChangeHeight_Click()
    Dim lngHeight As Long

    If Me.WindowHeight = 4044 Then
        lngHeight = 8000
    Else
        lngHeight = 4044
    End If
    Me.Move Me.WindowLeft, Height:=lngHeight
End Sub
.

다른 팁

나는 비슷한 문제가 있고, 필드 (컨트롤)를 숨기지 않더라도, 세부 높이가 충분히 축소되지 않는 것을보고 싶지 않았습니다.나는 내가 숨기려고하는 컨트롤을 옮겼다는 것을 발견했다 (그래서 .visible 및 .top 속성 모두를 설정하십시오).숨겨진 액세스가 숨겨진 컨트롤을 무시하기를 거부 한 것과 같습니다.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top