Office中国论坛/Access中国论坛

标题: 能不能手动的设置文本框的默认值？ [打印本页]

作者: hmilkhmily 时间: 2005-10-26 18:57
标题: 能不能手动的设置文本框的默认值？
能不能手动的设置文本框的默认值？因为默认值可能经常变化，因此能不能设个

按钮手动的设置该值，而不进入设计界面来设置？

[attach]13805[/attach]

作者: 一点通 时间: 2005-10-26 19:24
对于哪些经常变化的默认值,我的方法的建一个临时记录表,这样就可以随时改变默认值了.

作者: hmilkhmily 时间: 2005-10-26 20:19
具体怎么操作阿？

作者: j13583 时间: 2005-10-27 01:01
标题: 完成了：用表存储默认值，并可自动加载
完成了:

'Copyright 2005.10 by j13583@www.office-cn.net

'联系：j13583@sohu.com

  Dim CT As Integer 'ControlType

Function SetCtlDefaultValue(ctl As Control, Optional GetOrSet As Boolean = True) As Boolean

On Error Goto Er

  Dim ctlStr As String '连接符

  Dim ctlValue As String  '值

   ctlValue = Nz(ctl, "")

  Dim rst As Recordset

  Set rst = CurrentDb.OpenRecordset("SELECT * FROM ctlDefaultValue " & _

         "WHERE [ctlForm]=""" & ctl.Parent.Name & """ AND [ctlName]=""" & ctl.Properties("name") & """;", DB_OPEN_DYNASET)

'中间部分代码省略

ToGetDefaultValue:

If ctl.Properties("ControlSource") = "" Then

   CT = VarType(ctlValue)

Else

   CT = VarType(ctl)

End If

  Select Case CT

Case vbString

If InStr(1, ctlValue, """") Then

      ctlStr = "'"

   Else

      ctlStr = """"

End If

Case vbDate

   ctlStr = "#"

Case Else

ctlStr = ""

  End Select

ctl.Properties("DefaultValue") = ctlStr & ctlValue & ctlStr

rst.Close

Ex:  Exit Function

Er:

  MsgBox Error$

  Resume Ex

End Function

'遍历所有控件

Function FormCtlScan(Frm As Form) As Boolean

On Error GoTo Er

   Dim FrmCtl As Control

For Each FrmCtl In Frm.Controls

   CT = FrmCtl.Properties("ControlType")

  If CT = acCheckBox Or CT = acComboBox Or CT = acListBox Or CT = acOptionGroup Or CT = acTextBox Or CT = acToggleButton Then

SetCtlDefaultValue FrmCtl

  End If

Next

Ex:  Exit Function

Er:

MsgBox Error$

Resume Ex

End Function

'如果要遍历窗体所有控件，在[打开]事件设置 =FormCtlScan([Form])

'如果要完整源码，请与我联系

[attach]13817[/attach]

[此贴子已经被作者于2005-10-26 17:26:05编辑过]

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