我有一个名为country的字段,带有多值组合框。组合框中有10个值。我需要另一个字段是可见的,当从国家字段的值被选择,否则看不见。我尝试使用下面的VBA脚本,但它显示如下错误
错误:
运行时错误13
类型不兼容
我使用下面的代码,我得到了上面的错误:
Private Sub country_Click()
If country.Value = "11. OTHER" Then
Me.country_txt.Visible = True
Else
Me.country_txt.Visible = False
End If
End Sub
我是使用MS Access的
我正在尝试允许MS Access 2007数据库的用户从MS Outlook GAL中选择另一个用户。我目前有打开Outlook选择名称对话框的工作代码,但它隐藏在数据库窗口后面,直到用户单击Outlook。
如何在VBA中使对话框对用户可见?
下面是我的对话框代码(打字错误是手动复制的结果--此代码位于有空隙的网络上):
set OLApp = CreateObject("Outlook.Application")
set OLDialog = OLApp.Session.GetSelectNamesDialog
with OLDialog
.SetDefaultDi
如何突出显示MS-Access列表框行?我使用的是MS-Access 2007。我希望通过VBA突出显示多列列表框的第一行。我试过Me.LstSample.Selected(0) = True,但它不起作用。
代码:
Private Sub LstStation_AfterUpdate()
With Me.LstSample
If IsNull(Me.LstStation) Then
.RowSource = ""
Else
.RowSource = _
"SELECT * FROM Samples
我正在设计一个小型医院数据库。
医生给了我一个可以应用于文本字段的各种值的列表。例如,可以在诊断文本框中应用多个疾病的20种疾病的列表。在那里,为整个数据库中的各个字段列出这样的列表。
Ms Access不允许编辑多个值列表,因此我设计的如下所示。首先,医生从组合框下拉列表中选择一个值,当LimitToList设置为YES时,可以添加更多的值。然后,链接列表附近的"ADD“按钮,它使用一段VBA代码onClick将新值连接到文本框的旧值。
Dim add As String
Dim past As String
past = [Forms]![Exam]![diagnosis]
add
我有一个Access 2010数据库,它使用多值字段( Access内置的方式使两个表之间有m:n-关系)。
为了跟踪数据库的更改,每次更新相应的表单时,我都使用AuditTrail VBA过程,将所有更改保存到历史表中。
现在,当我更改ComboBox的值,循环到达绑定到多值字段的ComboBox时,由于数据类型不兼容,该过程抛出一个错误:
For Each ctl In Screen.ActiveForm.Controls
If ctl.Tag = "History" Then
If Nz(ctl.Value) <> Nz(ctl
添加:我在MS 2010的列表框中使用这个查询,在我的列表中选择不同的值(在本例中,用于AOM):
SELECT First([Exhibit Recording].ReferenceNo) AS FirstOfReferenceNo, [Exhibit Recording].AOM
FROM [Exhibit Recording]
GROUP BY [Exhibit Recording].AOM;
它工作得很好,只是我将它与AOM文本框连接,以便用此VB代码输入数据:
Private Sub txtAOM_AfterUpdate()
If (VBA.Strings.Len(txtAOM
我想知道是否有人知道如何为保存记录确认创建自定义消息,只使用宏,而不是用户编码的VBA。我以前在VBA中的一个项目中这样做过,但这次我尝试只使用Access的宏生成器。我正在使用Access 2010来构建这个项目。
到目前为止,我得到了
IF 6=MsgBox("Are you sure you want to delete this customer's information? WARNING, this is unrecoverable."),52 Then
RunMenuCommand DeleteRecord
MessageBox Message "
我在Access中开发了一个表单,允许用户搜索与其参数匹配的记录。该表单大约有五个组合框,其中包含用户可以搜索的值。将设置一个查询,从组合框中提取值。关联的表单"F_FilterResults“将查询结果作为显示搜索结果的数据表列出。我在"F_FilterResults“上的每个组合框上创建了一个F_FilterResults事件,以便在使用搜索参数更新组合框后,查询和表单将刷新自身。下面是“AfterUpdate”组合框中F_FilterResults事件的一些示例代码。
Private Sub CompanyState_AfterUpdate()
Forms![F_Filt
我可能会问一些愚蠢的问题,因为我在ms和VBA方面都很新,并且一直坚持这样做,
我的Access VBA中有一个SQL字符串,如下所示
select customer_id from customer_table where customer_name in ('Max','Jack')
我希望用户使用ms access未绑定文本框名添加/替换查询中的customer_name,作为txtCusName。我试着按下面的方式修改SQL字符串,但是得到编译错误,建议我在哪里做错误?
select customer_id from customer_table whe