Private Sub frm_child_iamge_properties(ByVal imagename As String) Dim CtlA As Access.Control '循环处理活动窗体的所有控件 For Each CtlA In Me.Controls If CtlA.ControlType = acImage Then '针对 图像 控件进行遍历设置 If CtlA.n ...
可以将20040510数字格式,转换为2004-5-10的日期格式的函数 Public Function 日期格式(rd1) Dim day1 As Date Dim rdy1 As String Dim nn1, yn1, dn1 As Integer rdy1 = Trim(rd1) If Len(rdy1) 8 Then 日期格式 = " ...