我正在尝试在MS Access中创建一个表单,根据我们在文本框中输入的值,将自动创建许多文本框。对于ex,如果输入值3,则必须创建三个文本框。 代码的一部分: Dim box As Control
Set box = CreateControl("Form1", acTextBox) 但我得到运行时错误“您必须在设计或布局视图中创建或删除控件” 无法在MS Access中动态创建文本框。如果我们可以,请建议如何做。谢谢
先生,它就像搜索函数一样
我需要搜索有数据存储在ms access表中的表。我已经为合同号、用户名和日期创建了一个文本框,需要根据合同号或用户名或日期来搜索表。
为此,我需要一个解决问题的单一sql命令的编码。我已经尝试过了,其中help是一个表,search-test是表单。
当帮助(表格)测试(字段)等于search-.cont_no(表单名称).cont_no(文本框字段)
SELECT * FROM Help WHERE (((Help.cont_no)=[Forms]![search-test]![cont_no])) OR
(((Help.username)=[Forms]![se
添加:我在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
我正在设计一个小型医院数据库。
医生给了我一个可以应用于文本字段的各种值的列表。例如,可以在诊断文本框中应用多个疾病的20种疾病的列表。在那里,为整个数据库中的各个字段列出这样的列表。
Ms Access不允许编辑多个值列表,因此我设计的如下所示。首先,医生从组合框下拉列表中选择一个值,当LimitToList设置为YES时,可以添加更多的值。然后,链接列表附近的"ADD“按钮,它使用一段VBA代码onClick将新值连接到文本框的旧值。
Dim add As String
Dim past As String
past = [Forms]![Exam]![diagnosis]
add
我在MS ACCESS中执行的这个查询中的completion_metric字段始终为所有记录提供零百分比。我认为我的IIF声明有问题。另外,如何使用此查询填充ms access窗体上的文本框。对于文本框,似乎没有让我的记录源成为查询的选项。 SELECT
FORMAT(SUM(IIF (status='Completed',1,0)) / COUNT(Status),"percent") AS completion_metric
FROM promis_lt
GROUP BY Short_ID;
我一直在考虑启用html和javascript文件来读取MS Access数据库记录。我知道数据库必须放在客户端,让html/JS文件读取它。但是,在一些成功的测试之后,我注意到,只要MS Access前端可以访问表,客户端上就必须只有Access数据库的前端可供html/JS文件读取表,这些表将被拆分并位于联网的服务器上。
也就是说,我能够使用以下代码将记录添加到MS Access数据库:
function AddRecord()
{
var adoConn = new ActiveXobject("ADODB.Connection");
var adoRS = ne
我有85个文本框在我的形式MS ACCESS 2013,名称为inc_1,inc_2,inc_3等.
我需要使用循环来检索这些文本框的值。(当然,我不能单独访问所有文本框)如下所示:
dim a(1 to 85)
for i = 1 to 85
temp ="inc_" & i
a(i) = me.temp.value
next
这显然是行不通的。有什么建议吗?
我想从ms access数据库中读取日期时间。
该列的数据类型为DATETIME,值为: 1/27/12 5:10 PM
<html>
<body>
<%
Dim Conn
Dim Rs
Dim sql
Dim sConnection
Dim Today as Date //this gives error - unexpected end of file , i want to display current date and time ???
Set Conn = Server.CreateObject("ADODB.Connecti