小编Cur*_*che的帖子

我试图选择一个不同的列表,在几个字段上创建重复项.例如,

SELECT tablename.field1Date, 
       tablename.field2Number, 
       tablename.field3Text 
FROM tablename;

将分别在日期,数字和文本字段上选择重复记录.

现在,当我选择不同的记录来提供我正在寻找的东西时,性能似乎会急剧下降.

SELECT DISTINCT tablename.field1Date,
                tablename.field2Number, 
                tablename.field3Text 
FROM tablename;

这有什么原因吗？我必须承认我正在使用MS Access 2003,这可能是个问题.

我想迭代引用库中任何类的成员,就像使用对象浏览器一样.如何使用VBA完成？

我试图获得当前用户的RAM配置.我想用VBA来查看它,然后将它存储在一个表中.我需要芯片的数量以及每个芯片上的RAM量.这可以使用VBA以编程方式查找吗？我需要使用Windows脚本宿主吗？

我想隐藏或显示基于用户选择的可变数据的列.如何在MS-Access 2003中将列设置为隐藏？

例如,

用户更改活动后......

For Each ctl In Me.FormNameHere.Form.Controls
    If (TypeName(ctl) = "Textbox") Then
        If InStr(GetTextList(), ctl.Name) > 0 Then
            ctl.hidden = True
        Else
            ctl.hidden = False
        End If
    End If
Next ctl

• 这种挑战的最佳方法是什么？
• 有更明显的解决方案吗？

将变量标注在函数的开头并且在它们被使用之前声明它们是否有性能优势？

我在MS Access 2003中使用VBA.

例,

 Function f(y As Long) As Long
      Dim x As Long
      If y <> 0 Then
           x = 1000000
      End If
 End Function

经文

 Function f(y As Long) As Long
      If y <> 0 Then
           Dim x As Long
           x = 1000000
      End If
 End Function

首先,我通过这样做删除控件可见性:

For Each ctl In Me.MySubform.Controls
    ctl.Visible = False
Next ctl

然后,我返回并使用标题和控件源名称数组绑定我将用于当前字段列表的控件.

For i = 0 To UBound(MyArray) Step 2
    Me.MySubform.Controls(i).ControlSource = MyArray(i)
    Me.MySubform.Controls(i + 1).Caption = MyArray(i + 1)
    Me.MySubform.Controls(i).Visible = True
    Me.MySubform.Controls(i + 1).Visible = True
Next i

我遇到的问题是,如果用户点击其中一个字段为其提供焦点,我似乎将控件visible属性设置为false或在下一个刷新事件期间将字段重新绑定到另一个字段.

我认为通过删除控件焦点,我将能够实现这一点; 但是,我有两个问题.

1. 这在VBA(MS Access 2003)中是否可行？如果是这样的话？
2. 在这种环境中有没有更好的理想方法来实现这一目标？如果是这样,可以选择哪些选项以及选择解决方案需要考虑哪些因素？

谢谢,

我正在尝试创建一个Login弹出窗口.例如,如果有人点击登录按钮,将显示一个弹出窗口,它将改变主页面的不透明度并将焦点放在弹出窗口上.

这是一个利用我想要实现的网站的例子.