我正在创建一个MS Access 2010数据库,以允许用户输入一系列将在查询中使用的数据。
我有一个名为"Entry“的主窗体和一个名为"SubEntry”的绑定子窗体(用于查看输入的记录)。主窗体(Entry)由文本/组合框控件组成,允许用户键入值,例如:
**Controls ControlSource**
Date "Entered by the user"
CompanyID "Entered by the user"
TicketID "Entered by
我目前正在使用Access 2007创建一个窗体,其中的组合框可以过滤可编辑子窗体。
该子窗体基于一个查询,该查询从组合框中获取一个Project_ID,并根据该Project_ID号过滤子窗体表。在窗体视图中,我可以更改组合框,并在手动刷新后过滤子窗体。但是,子窗体不会随着组合框的更改而自动过滤。
我不知道哪里出了问题。我尝试了多种VBA变体,但都不起作用。我目前正在使用更改后的VBA脚本来加载子窗体。
Private Sub cboProjectSelect_AfterUpdate()
Me!Project_Tracker_Subform.Form.Requery
End Sub
我有一个方法,在给定VBComponent的情况下,我可以访问.Designer,并从那里访问.Controls集合:
private void DeclareControlsAsMembers(VBComponent form)
{
var designer = form.Designer;
if (designer == null)
{
return;
}
// using dynamic typing here, because not only MSForms could have a Controls col
我有一个数据库设置在MS Access 2007上。在表单属性的BeforeUpdate选项中,我放置了下面的宏:
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Changes have been made to this record." & vbCrLf & vbCrLf & "Do you want to save these changes?", vbYesNo, "Save?") = vbYes Then
D
在MS Access 2019专业+2019年工作。不过,这并不重要。
我的设置可以缩小到这个层次结构,它可以很好地独立工作:
'------> Hierarchy of objects :
"myMainForm" contains :
"select_client" (ComboBox based on "client" table)
"select_status" (ComboBox based on "status" table)
' and some mul
今天的赞美。根据先前收到的反馈,
在MS Access中创建票务数据库之后。我希望使用单个表单来查询特定月份特定票证的价格,并将价格显示在表单中的文本字段或标签中。
下面是示例表和使用的查询
CompanyTable
CompID CompName
A Ann
B Bahn
C Can
KK Seven
- --
TicketTable
TicketCode TicketDes
10 Two people
11 Monthly
12
我有一个包含大量表单(300+)和VBA代码的Access数据库。此访问数据库的后端位于MS中。
当我在窗体中的控件上时(在formview中),我希望直接跳到此表单的VBA代码,而不关闭或将表单置于设计模式。我可以用我分配给函数的快捷键来完成这个任务。
当控件不是子窗体时,这很好地工作。但是,在这种情况下,代码会遇到一个错误,告诉我无法找到表单模块。
这是我使用的代码:
Dim sFrmName As String
sFrmName = Screen.ActiveControl.Parent.Name
If Nz(sFrmName, "") = "" The
我在MS Access中创建了一个窗体,其中有10个按钮模拟数字键盘(只有0..9的值)。 每次单击这些按钮时,我都想更改子窗体中的combobox控件的值。组合框控件名为"projectID“ 我试过了,但它不同于在键盘上按相同的键。 Private Sub Buton3_Click()
Call Me.frmServDedicacion_Subformulario.Form.projectID_KeyPress(51) 'Ansii code for 3
end sub 我将此过程作为按键事件来验证是否执行了combobox方法,它确实执行了(消息框是ok的),但是c
我是MS的初学者,这是我的问题;)
mainformlevisite的名称是subformCasellaCombinata0的名称,是组合框的名称。
下面是与单击combobox上的事件相关联的代码(VBA),我在其中调用名为LastVisit的查询
Private Sub CasellaCombinata0_Click()
Dim Variable1 As Date
Variable1 = DLookup("reservationdate", "LastVisit")
Me.DisSelected.Caption = "The las