Office中国论坛/Access中国论坛

标题: 问题：子窗体无法获得焦点？ [打印本页]

作者: li08hua 时间: 2010-3-28 00:52
标题: 问题：子窗体无法获得焦点？
各位老师，我在主窗体的"成为当前"中加入了一些代码后，子窗体就无法获得焦点、无法编辑了，不知什么原因？如何解决？敬请赐教？一鞠躬，再鞠躬......

作者: andymark 时间: 2010-3-28 09:37
加了些什么代码,你不会是把子窗体的锁定了吧

这样当然不能获取焦点

作者: li08hua 时间: 2010-3-28 14:03
andymark ，您好，因为文件大，无法上传。我把代码发上来，您能帮我看看么？

Private Sub Form_Current()

allowSave = False
If DCount("*", "报案人情况表") < 1 Then
Me.案件编号 = Right(Format(Date, "yyyymm"), 6) & 0 & 0 & 0 + 1
Exit Sub
End If
If Me.NewRecord Then
Me.案件编号 = Right(Format(Date, "yyyymm"), 6) & Format(Val(Right(DMax("ajID", "报案人情况表"), 2) + 1), "000")
End If

Me.保存.Enabled = True '使“保存”按钮可用
Me.添加新记录.Enabled = False ' '使“添加新记录”按钮不可用

Me.bjrq = Format(Date, "yyyy年mm月dd日") & Format(Time, "hh时mm分")
Me.fxrq = Format(Date, "yyyy年mm月dd日") & Format(Time, "hh时mm分")
Me.farq1 = Format(Date, "yyyy年mm月dd日") & Format(Time, "hh时mm分")
Me.farq2 = Format(Date, "yyyy年mm月dd日") & Format(Time, "hh时mm分")
Me.cjrq = Format(Date, "yyyy年mm月dd日") & Format(Time, "hh时mm分")
Me.bjrqsj = Val(Left(Format(bjrq, "yyyymmdd") & Format(Time, "hhmm"), 8))
Me.ajIDsz = Val(ajID)
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)