问下这个子窗体按主窗体的按指定日期怎么连续编号

如果是"委托单号"在模块中添加：

Function bh() As String
  Dim a
  a = DMax("委托单号", "样品流转单", "委托单号 LIKE '" & Format(Date, "YYYY-MMDD-") & "*'")
  Debug.Print a
  If IsNull(a) Then
    bh = Format(Date, "YYYY-MMDD-") & "001"
    Debug.Print bh
  Else
    bh = Format(Date, "YYYY-MMDD-") & Format(CLng(Right(a, 3)) + 1, "000")
    Debug.Print bh
  End If
End Function

把窗体的"委托单号"的默认值设为：=BH()