我的目標：我在表單中有一個子表單，我想在子表單中的用戶選擇記錄中獲取一個欄位的值，并使用該值填充我的表單中的一個欄位。我正在使用 .Selheight 來確定子表單中選擇的記錄數。代碼是這樣的：
If Me.Frm_ICD10CMCodes.Form.SelHeight = 0 Then
MsgBox "Please select one record. You have selected " & Me.Frm_ICD10CMCodes.Form.SelHeight & " records.", vbOKOnly, "Dr Talking:"
ElseIf Me.Frm_ICD10CMCodes.Form.SelHeight = 1 Then
'Copy the diagnosis in the diagnosis box
ElseIf Me.Frm_ICD10CMCodes.Form.SelHeight > 1 Then
MsgBox "Please select only one record.", vbOKOnly, "Dr Talking:"
End If
現在的問題是，無論我在運行代碼時選擇了多少條記錄，Form.SelHeight 屬性都會不斷回傳值 0。
我一定做錯了什么。，但我沒有收到錯誤。
uj5u.com熱心網友回復：
離開子表單后，所選記錄將被取消選擇。
這適用于我的主表單來顯示所選記錄的計數：
Option Compare Database
Option Explicit
Private Sub Form_Current()
Me!txtSelected.Value = Me.SelHeight
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Me!txtSelected.Value = Me.SelHeight
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.NewRecord = True Then
Me!txtSelected.Value = 0
Else
Me!txtSelected.Value = Me.SelHeight
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/479960.html