子窗体中的数据录入在窗体中形成一人Excel表格式的形态出现问题，如何应用其数据...

YXH_YXH

窗体代码为：
Private Sub Form_Current()

Dim frm As Form, intRC As Integer
'Dim intRC As Integer

    Set frm = [Form_费用报销单明细]
With frm
   intRC = .RecordsetClone.RecordCount
    If intRC < 4 Then
    .Form.InsideHeight = 1038 + 519 * intRC
    Else
    .Form.InsideHeight = 2545
    End If


End With
End Sub

子窗体代码为：
Option Compare Database
Option Explicit
Dim intRC As Integer
Private Sub Form_AfterInsert()
   intRC = Me.RecordsetClone.RecordCount
    If intRC < 4 Then
    InsideHeight = 1038 + 519 * intRC
    Else
    InsideHeight = 2595
    End If

End Sub
Private Sub Form_Current()
   intRC = Me.RecordsetClone.RecordCount
    If intRC < 4 Then
    InsideHeight = 1038 + 519 * intRC
    Else
    InsideHeight = 2595
    End If

End Sub


问题是：当我应用在其他时修改其数据窗体与子窗体显示会不同步。请指出其参数使用如何同步。见图片！

灰太郎

文件发出来

YXH_YXH

灰太郎 发表于 2024-1-26 08:17
文件发出来

已上传，谢谢！！

灰太郎

你发的文件没有如上图，少发一个1，重发下

灰太郎

主窗体
Private Sub Form_Current()
Dim frm As Form, intRC As Integer
Me.Label145.Top = Me.费用报销单明细.Top + Me.费用报销单明细.Height
Set frm = [Form_费用报销单明细]
With frm
   intRC = .RecordsetClone.RecordCount
   If intRC <= 4 Then
    Me.Label145.Top = 2830
    Else
    Me.Label145.Top = Me.费用报销单明细.Top + Me.费用报销单明细.Height
    End If
   End With
End Sub
子窗体
Private Sub Form_AfterInsert()
   intRC = Me.RecordsetClone.RecordCount
    If intRC <= 4 Then
     Me.Parent!费用报销单明细.Height = 730 + 300 * (intRC + 1)
     Me.Parent!Label145.Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    Else
   Me.Parent!费用报销单明细.Height = 3470
   Me.Parent!Label145.Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    '1641
    End If
End Sub
Private Sub Form_Current()                      'InsideHeight = 1544 这是调整子窗体高度的参数
   intRC = Me.RecordsetClone.RecordCount
    If intRC <= 4 Then
     Me.Parent!费用报销单明细.Height = 730 + 300 * (intRC + 1)
     Me.Parent!Label145.Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    Else
    Me.Parent!费用报销单明细.Height = 3470  '1641
     Me.Parent![Label145].Top = Me.Parent!费用报销单明细.Top + Me.Parent!费用报销单明细.Height
    End If
End Sub
1.但是要把完整的窗体发出来才能全部弄好
2.最终要的效果图发出来

灰太郎

改后的部分效果图，需完善

灰太郎

见图

灰太郎

YXH_YXH，人、你完整的程序发出来，我完善好后发出来源码

YXH_YXH

灰太郎 发表于 2024-1-28 13:51
改后的部分效果图，需完善

你好！搞了好一阵子还是有问题。不知道什么原因，估计文件或数据出现问题，出现连接不上。如DAO的加载失败。完整图是这样的，就是一个表格式的。我觉得我发你的代码没有问题，是显示问题。视图中的行距是0.899CM的，你看看问题存在那。谢谢！！

YXH_YXH

看到你上的二图片，第一张图片的正常显示是不正常的，第二张图片不确定。问题应出自窗体与子窗体间的高度不协调吧。我觉得我发的代码没有问题，是显示问题。