我尝试过一种编码,它包含一个循环,在组合框中显示1到1000个数字。我只是一个学习Visual的人。所以我无法通过编码做到这一点。编码如下:
Private Sub Combo1_change()
Dim a As Integer
While (a <= 1000)
Combo1.AddItem(a, [1]) = a
a=a+1
Wend
End Sub
我经历了“没有错误”,但没有一个数字显示在组合框中运行。请帮助我修改上述代码或将我重定向到在组合框中插入元素的任何其他方法。
我有一个带有子表单的销售表单,但是我无法从组合框中选择数据。
Control cannot be edited , it is bound to autonumber field Item_ID
下面是SQL
SELECT [tblStockItem].[Stock_ID], [tblStockItem].[Item_ID] FROM tblStockItem ORDER BY [Item_ID];
我正在创建一个access数据库。我有一个组合框的表单,其中有37个项目可供选择。当用户填写表单时,数据会很好地进入一个表中,但是它不会显示组合框中的项,而是显示id号,而不是从Combo中选择。这个组合体从两个列的表中提取数据。一个是访问使您输入的ID,另一个是清洁类型,它是组合体中的选择。我想知道是否有一种方法可以在VBA中创建if / with语句,或者是否有一个函数可以准确地显示列中的信息,而不是与其关联的ID号。这是附加在“保存数据”按钮上的代码:
Private Sub Command33_Click()
Dim strSQL As String
Dim strName As
我是VBa的新手,最近遇到了以下问题:我将数据(行)从excel工作表复制到powerpoint中,我想为我复制的每一行(excel中的每一行)创建一个组合框。我所能找到的就是如何通过Powerpoint的菜单手动插入组合框,但我想避免手动添加这么多。有没有办法通过VBA代码添加组合框?
Here is some of the code I use:
'Loop through each worksheet
For Each objSheet In ActiveWorkbook.Worksheets
'Create new slide for the data
Set p
我正在创建两个组合框,并插入一些元素,如铃木,本田,activa到第一个组合和雷诺,Indica,奔驰到第二个组合框,我也创建了第三个组合,这是没有插入。我的问题是什么时候我将选择一个项目在第一,例如,如果我选择铃木在第一个组合和雷诺在第二,这两个铃木和雷诺应该出现在第三个组合框中,如果我改变了activa在第一和Indica在第二,然后第三个组合应该显示activa和Indica。像这样,第三个组合框应该动态地从第一个和第二个中获取所选的项目。
请帮帮我,谢谢和问候,-Chandrashekara Y D。
我想在组合框中显示插入到数据库中的ID。
但是,输入数据后,ID不会自动加载。
当我重新启动应用程序时,ID会出现。请帮帮我。
这是我的代码loadID
public void loadDistributorID()
{
perbaruiDistributor();
conn.Open();
cmd = conn.CreateCommand();
cmd.CommandText = "select id from distributor";
var reader = cmd.ExecuteReader();
while (r
我有一个组合框,我需要插入数据区域并选择一个字段来过滤sql server中的数据,以便将数据放到组合框中。为此,我使用了此代码,但数据不会显示在组合框中。我怎样才能以正确的方式做到这一点呢? stra="select cAcctNumber from MAS.dbo.vACP_Payments where cFtyCD=?thisform.cboFactory.value and dPaymentDate>= ?thisform.txtFromDate.Value "
stra=stra+" AND dPaymentDate<= ?thisform.tx
我有一个表单用于收集信息,这些信息将在Access 2016中插入到数据库表中。我的表单有一个多值组合框(称为cmbContacts),它从联系人表(ID和Name)中提取值。用户可以从组合框中选择0或多个联系人。当用户单击submit按钮时,button_click事件将触发VBA代码来格式化信息并将其插入表中。
我需要做的是从组合框中获取每个选定联系人的I。
到目前为止,我的情况如下:
If Me.cmbContacts.ItemsSelected.Count > 0 Then 'Only run code if there are contacts selected'