为什么Me.Controls()中缺少控件
在云计算领域中，缺少控件可能是由于多种原因导致的。以下是一些可能的原因和解决方案：
- 控件未正确安装：请确保您已经正确安装了所需的控件。您可以通过访问腾讯云控制台并在相应的产品页面查找所需的控件，然后按照产品文档进行安装。
- 控件未正确配置：如果控件已经安装，但仍然缺少，可能是因为控件没有正确配置。请检查您的配置文件，并确保您已经正确配置了所需的控件。
- 控件版本不兼容：如果您的控件版本与您的云计算平台不兼容，可能会导致控件缺失。请检查您的控件版本，并确保它与您的云计算平台兼容。
- 控件未正确加载：如果您的控件已经安装并正确配置，但仍然缺少，可能是因为控件未正确加载。请检查您的代码，并确保您已经正确加载了所需的控件。
- 控件被阻止：在某些情况下，您的控件可能被阻止。这可能是由于安全策略或其他原因导致的。请检查您的安全策略并确保您的控件未被阻止。
总之，如果您在云计算领域中遇到控件缺失的问题，请确保您已经正确安装、配置、加载并且未被阻止所需的控件。如果问题仍然存在，请联系腾讯云技术支持以获得更多帮助。
相关·内容
我在Access中有一个表单，其中包含了一些VBA自动化，以防止垃圾数据被输入数据库。自动化的一部分是清除步骤下游的步骤，用户取消检查。它跟踪一个线性进程，因此如果步骤1、2、3和4已经完成，而用户取消检查2，则代码取消检查3和4。
这些步骤分散在多种可能的测试表单上。我想编写一个子程序，程序可以调用自动取消检查，并传递一个变量给子的基础上，用户点击测试表单。
这是我的代码，它不起作用。(“干”和“湿”是过程中的步骤，按顺序排列)：
Private Sub t2Dry_AfterUpdate()
Dim TFNum As String
TFNum = "t2"
浏览 1提问于2017-11-01得票数 0
回答已采纳
嗨
我有一个有几个按钮的表单。每个按钮运行几行code.the代码，其中也有类似"select * from table where number =6“这样的查询
现在，如果我想在表单中输入数字，我该怎么做呢？
浏览 0提问于2008-12-02得票数 2
回答已采纳
1回答
为什么不将复选框视为类型复选框？
、、、、
这个问题来源于前一个。
问题似乎实际上是这种无法识别复选框的问题--一旦这个难题解决了，更新数据库是否真的有问题还有待观察。
下面是代码：
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim connStr As String = "SERVER=PLATYPUS42;DATABASE=duckbilldata;UID=entenhausen;PWD=pondscum"
Dim upd8DML As String = "UPDATE
浏览 2提问于2017-03-22得票数 0
回答已采纳
我想在我的应用程序中生成一堆MultiPages并动态创建新页面，但是我得到了运行时错误'-2147417848 (80010108)'：被调用的对象与其客户端断开连接的自动化错误。
复制步骤
在一个名为TestClass的类模块中：
Public WithEvents TestMultiPage As MsForms.MultiPage
Sub createPage()
TestMultiPage.Add
End Sub
在一个名为UserForm的TestForm中：
Dim TestInstances as New Collection
Private Sub
浏览 0提问于2018-07-17得票数 2
回答已采纳
我想要创建一个弹出式表单，其中包含一个动态创建的子表单列表。子窗体的数量由父窗体中的用户确定。
这里有一个草图来说明我想做什么。用户可以将"Num分支“的值更改为2到10。这个数字反过来反映在以下可滚动框中创建的子窗体数量中。所有的子形式都是相同的，我用红色勾勒了它们。
关于如何做到这一点，我有几个问题
会有一个子形式的倍数吗？
如果上面的问题是否定的，并且我必须动态创建每个控件，那么是否需要关注这个答案中提到的754个动态创建的控件限制？
有人能给我一个循环的例子，演示如何在可滚动框中动态地创建这些子表单吗？我认为在每个for循环中唯一会更改的属性是"top“属
浏览 3提问于2017-11-03得票数 0
回答已采纳
2回答
我使用VBA创建控件，不能通过将它们作为控件来设置字体。我给它们命名，如果我用名称Me.(control variable name).Font来引用它们，就可以修改字体。
我需要知道合适的语法才能起作用。我想我试过每一个组合，但都没有成功。
For CountRecords = 0 To rs.RecordCount - 1
tempLeft = 6
For countfields = 0 To rs.Fields.Count - 1
tempname = rs.Fields.Item(countfields).Name & CountRecords
浏览 0提问于2019-01-27得票数 1
回答已采纳
我使用ctype将字符串转换为文本框。这些文本框存在于窗体上。转换后，我得到数据并显示在文本框中。第一次打开表单时，一切都很顺利。在退出并再次运行表单后，ctype抛出错误"NullReferenceException“。在调试时，我发现一个ctype没有返回任何内容。这一切为什么要发生？
代码如下：
Private Sub CompanyId_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CompanyId.SelectedIndexChanged, FundType.SelectedIndexChang
浏览 0提问于2013-04-29得票数 0
3回答
是否有像下面的代码那样的循环combobox_change的简单命令？
Private Sub ComboBox1_Change()
nkm = cmbslno.ListIndex + 1
Set wk = Sheets("kkm" & nkm)
TextBox1.Text = Application.WorksheetFunction.VLookup(ComboBox1, wk.Range("A33:B52"), 2, 0)
End Sub
Private Sub ComboBox2_Change()
nkm = cmb
浏览 3提问于2017-12-26得票数 0
回答已采纳
我尝试使用数组值循环不同的场景，动态地更改表单中标签的标题值。我正在插入一个片段的屏幕截图，在其中，我成功地将一个级联的值打印到“立即”窗口。其中的内容看起来与我的代码中所需要的完全一样。但是，虽然我可以debug.print这些连接的字符串值，但是一旦我删除了debug.print，代码中的所有内容都会发生横向变化。我在这里遗漏了一些东西，但我已经花了整个上午的大部分时间来思考它是什么，却没有结果。
我只是连接"Me.lbl“+ myProdArr + "Sales.Caption”+“=”销售/成本/应付数组的元素
我这样做是为了替代输入最后一个代码的需要，这样我就可以把代
浏览 3提问于2020-02-06得票数 1
回答已采纳
我有一个简单的for/next循环，用来计算33个表单备注字段(日历框) (Cal1...Cal33)和两个组合ctrls (cbofrom和cboto)。cbo值仅为1到33。其目的是简单地将文本从一个备注字段移动到另一个备注字段，如果备注字段(Cal1...Cal33)等于cboto： Dim i As Integer
For i = 1 To 33
i = 1
If Me.Cal&(i) = Me.cboto Then Me.Cal&(i) = me.cal & Me.cbofrom
Next I VBA似乎不想合并字段的名称(Cal1...Cal33)作为循环
浏览 38提问于2019-10-11得票数 1
我正在尝试用表单文本框中的数据填充报表上的所有文本框。窗体和报表上的文本框名称相同。我试过了，但是我卡住了： Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
ctl.ControlSource = "[Forms]![frmlisteannuelle]![ctl.name]"
End If
Next
浏览 44提问于2021-11-13得票数 1
回答已采纳
我需要一些帮助来优化数据输入的访问表单。在我的表单中，我有许多不同的字段，其中有7个文本字段。我想循环通过其中的6个，我已经按顺序命名，并做一些事情，如果它们不是空的。我正在使用access VBA
试图用伪代码显示：
for i = 1 to 6
if hardness_measurement_i > 0 then
<do something>
else
<do nothing>
end if
next i
我的问题是形成循环的这一部分："hardness_measurement_i“
是否有一种很
浏览 7提问于2022-06-30得票数 0
回答已采纳
1回答
这个SELECT CASE场景适用于我，但我认为代码可以更友好.任何建议都会很有帮助。
Select Case True 'select case where worker name and action is true then in each case RSworkhours.addnew
Case Me.Worker1.Value <> "" And Me.fw1a1 = 1
With RsWorkHours
.AddNew
!WorkerID = Me.Worker1
浏览 0提问于2017-06-19得票数 0
回答已采纳
1回答
我想检查我的用户表单中的所有图像，并检查工作表中某些单元格中的值。然后根据图像对象的值转换为19 (i1到i19)中的一幅。为了不检查每个图像，我想循环这个过程。有什么想法吗？所有图像对象都有从slot_1到slot_42的名称。
当然，我知道我做不到像我在这里(槽(A ) )。这可能吗？我是新来的。
编辑:我改变了你说的话，但错误仍然发生。看看是怎么回事。
Private Sub UserForm_Initialize()
name = Sheets("Player Data").Cells(2, 1).Value
inventory.Caption = name &
浏览 2提问于2022-10-11得票数 0
1回答
我有一个家庭作业，我需要从一个文本文件中提取名称并将它们添加到一个数组中。然后，对于数组中的每个索引，将其添加到特定的文本框中。
所以我把我的文本框命名为：txt_Name1，txt_Name2...诸若此类。
因此，我的数组中有5个项，我希望将索引0处的项添加到txt_Name1，将索引1添加到txt_Name2 (依此类推)，但我不知道如何使循环完成这一过程。
浏览 0提问于2015-11-24得票数 0
这个问题不是特别技术性的，它更多的是理论上的。
我正在Access中做“项目队列”的事情，我想我们都会时不时地这样做。我们有几个步骤要完成。我隐藏了在给定步骤中没有意义的按钮，并在最相关的选项卡中添加了一个星号。例如，如果我被分配了一个项目的开发，"move to production“按钮是隐藏和禁用的，因为我需要通过测试才能将项目转移到生产环境中。我还将development选项卡重命名为Development*，以便将其排入队列。
所有的东西都是用VBA硬编码的，现在仍然可以，但是维护起来越来越长，也越来越难看。我想知道是否有人有一个最佳实践或只是一般的建议。我有6个状态，但我将
浏览 10提问于2017-06-23得票数 0
1回答
我希望你能帮忙。由于某种原因，我想不出我做错了什么。也许一双新的眼睛会有帮助。
从查询中提取GL和它们的货币值。
每个GL都需要用顺序名称填充报表中的文本框。例: GL1，GL2，GL3等。
每个GL值(货币)都需要填充其他唯一命名的文本框。例: GLV1，GLV2，GLV3，GLV4等。
这是我的剧本-任何帮助都将不胜感激。
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM qry_GL_totals")
Dim GLField As Variant
If No
浏览 5提问于2014-11-12得票数 0
我试图为表单上的每个复选框设置一个注册表项，但是在下面的代码块中，我收到了错误'Checked' is not a member of 'System.Windows.Forms.Control'
有人能帮我找出为什么会出现这个错误吗？
' Create the data for the 'Servers' subkey
Dim SingleControl As Control ' Dummy to hold a form control
For Each SingleControl In Me.Controls
I
浏览 0提问于2013-04-08得票数 1
回答已采纳
我在UserForm上有4个ListViews。是否可以在下面的代码中检查哪个ListView处于激活/选中状态？ Private Sub CommandButton8_Click()
For i = 1 To 4
If me."ListView" & i) is selected Then
MsgBox me("ListView" & i ).Name
End If
Next i
End Sub 它不能与ListView.SelectedItem一起工作。我真的不明白为什
浏览 73提问于2021-10-22得票数 0
1回答
UserForm 2= 36个按钮(btn1到btn36)每个按钮上都有一个图像。当我点击“添加”按钮时，我希望按钮上的三个随机图像在UserForm 1中显示三个标签，其中显示随机图像1。
浏览 3提问于2011-04-12得票数 0
回答已采纳
如果我有一个字符串"cboEnoughMoney(0)"，是否可以从我的窗体cboEnoughMoney中的控件数组中检索该控件
在我的代码中，我试图以这样的方式引用控件：
frm.Controls(sControlName).ListIndex = -1
在本例中，sControlName是"cboEnoughMoney(0)“，我得到了一个没有找到控件的错误。
编辑:我正在处理的问题之一是像上面一样将.listindex设置为-1，另一个问题是我实际上试图获取并设置组合框的值。在函数中，我将表单名作为名为frm的参数传递。
在代码中所做的是.
dim ctlDat
浏览 5提问于2017-04-12得票数 1
回答已采纳
我有一个带有UserForm 1-8的ComboBoxes，每个人在UserForm_Activate上的ws上的指定单元格中获取文本。如果ComboBox1.Value = "“，我已经将ComboBoxes 2-8设置为.Visible=False。
是否有一种方法可以使用缩写代码为每个ComboBox设置.Visible=False，而不分别列出每个ComboBox？我在下面添加了我现在使用的内容，但我经常创建这样的表单，我宁愿使用"Dim i as Integer / For i =“类型，而只需在需要的地方复制和粘贴。提前谢谢你！
If ComboBox1.Value
浏览 3提问于2020-02-08得票数 0
回答已采纳
1回答
我有一个类似于的问题
但是，我尝试使用的不是标签，而是ListBox
Private Sub processLog(ByVal logFileName As String, ByVal logCateory As String)
Dim variableListBox As New ListBox
variableListBox = DirectCast(Me.Controls(logCateory), ListBox)
variableListBox.Items.Add("HELLO")
End Sub
上面的代码可能有什么问题，它
浏览 2提问于2013-11-28得票数 0
回答已采纳
我的表单上有一些动态创建的复选框，我想要一个函数将它们全部删除。
我有以下功能：
Sub delete_checkboxes()
Dim radios = Controls.OfType(Of RadioButton).AsQueryable()
For Each r As RadioButton In radios
Me.Controls.Remove(r)
Next
End Sub
由于某种原因，上面的函数只删除每秒钟的单选按钮，剩下的就剩下了。
作为一个测试，我将函数更改为删除勾选的单选按钮：
Dim radios
浏览 3提问于2015-11-20得票数 0
回答已采纳
我正在尝试创建一个函数(或某个表达式)，该函数可以从表单上的任何文本框中运行，它将返回textbox的名称作为该textbox的值，即每个文本框将在该框本身中显示其名称。
我正在寻找类似于Me.ActiveControl.Name的东西，但这只会为每个文本框返回相同的值。有可能像这样自我指代吗？我没能找到任何能做到这一点的东西。
浏览 3提问于2022-10-30得票数 0
我在更改运行时生成的组框中的运行时生成的复选框名称时遇到问题。我使用了多个分组框，然后获取数据库中的所有行，并为它们创建复选框。复选框名称如下：""chkClass“& intGroupBoxNumber & intCurrentRow”。在删除分组框时，我对所有当前分组框重新编号，并希望复选框名称也更改为新的分组框编号，如果这有任何意义的话。我的代码如下：
strControlName = "grpGroup" & strIBResult
Try
intGroupBoxOldYLocation =
浏览 1提问于2012-11-29得票数 0
回答已采纳
2回答
我知道如何循环圆括号中的数字，如
For i = 0 To (ComboBox4.ListCount - 1)
If ComboBox4.Value = ComboBox4.List(i) Then inList = True
Next i
但是，我如何循环没有括号内的数字呢？类似连续编号的名字：
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = ""
Me.ComboBox3.Value = ""
我试过：
for i=1 to 3
"Me.ComboBox"&i&"
浏览 0提问于2018-12-17得票数 3
回答已采纳
有办法将图像从一个PictureBox对象设置为另一个对象吗？例如：
pictureboxA1.image = pictureboxB1.image
pictureboxA2.image = pictureboxB2.image
pictureboxA3.image = pictureboxB3.image
我对TextBox控件也做了类似的事情，但是这段代码对我不起作用：
For i = 0 To 2
Me.Controls("picturebox" + "A" & i + 1).image = Me.Controls("picturebo
浏览 1提问于2012-11-11得票数 0
回答已采纳
我需要VBA编码方面的帮助:我有将近250个用户表单中的TextBox (是一个值的“矩阵”)，当用户完成填充这些框时，我想将它们写在excel表中。我可以把250行写成
WorkSheets(mysheet).Cells(x，y).Value = TextBox#.Value
但这需要很长时间。我想知道是否有一种方法来制作类似于时间的东西，并增加文本框的#。谢谢，也对不起我的英语。
浏览 1提问于2014-04-19得票数 1
回答已采纳
假设我有一个名为lstFruits的列表框，其中包含一些单词。现在假设我有一个包含"lstFruits“(列表框的名称)的字符串strString。
所以strString = "lstFruits“。
如何从字符串转到激活并将焦点放到lstFruit列表框中？我知道有lstFruits.Select或lstFruits.Focus....but，我希望能够从字符串strString....Eventually中激活列表框，我希望strString包含许多可能的列表框中的一个，并将焦点放在由strString拼写的列表框上。
浏览 0提问于2012-02-20得票数 2
回答已采纳
我试图使用变量名设置动态创建的文本框的Text属性，但是当我使用Me.Controls(变量名称).Text时，我收到一个错误，需要将其设置为"New“。文本框的name属性(使用变量)是在创建它时设置的，但我似乎无法使用相同的名称进行检索。
Private Sub Example(panposition As Integer)
Dim tbfile = New TextBox()
Dim lineExample As Integer = 2
' creating a text box with a variable name
Cont
浏览 1提问于2015-09-08得票数 1
我在我的项目中有一个用户控件，当我单击一个按钮将这个用户控件添加到表单中时，但是如果用户控件已经在表单中，我想要显示它。
这是我到目前为止编写的代码：
Using GstAbonnement As New GestionAbonnement
GstAbonnement.Dock = DockStyle.Fill
Me.Controls.Add(GstAbonnement)
End Using
如何测试用户控件是否已经处于窗体中?
浏览 1提问于2012-11-07得票数 1
回答已采纳
1回答
我在尝试创建一个滚动区域。我是通过创建一个框架来做到这一点的，其中包括另一个框架和一个滚动条。滚动条应该上下移动内部框架。
然而，当使用滚动条时，内部框架不是由滚动条移动的，而是在窗体上移动的。
对于滚动，我使用以下代码：
Private Sub scrollFrame()
Dim ctl As Control
Dim myFrame As Frame
For Each ctl In Me.Controls
If (TypeOf ctl Is Frame) Then
ctl.Top = ctl.Top + oldPos - VScroll1.Value
End If
Ne
浏览 2提问于2017-05-08得票数 1
回答已采纳
1回答
很难解释我的想法，但我会尽我最大的努力…
我有一个带有一大堆复选框的安装程序。每个复选框都是mod (游戏的修改)。有时mods会干扰游戏并导致游戏崩溃。因此，我必须更新安装程序与更新的mod(s)，或者我必须暂时禁用mod或导致崩溃的mod。
它将做的是连接到一个服务器，该服务器检查一个文件是否包含"true or false“，如果它包含"true”，它将执行执行以下操作的代码：
连接到不同的服务器，获取复选框的名称，并执行类似以下操作：
NameOfCheckBox.Enabled = False
问题是..。我知道怎么做，除了最后一部分。
如何告诉我的程序它从服务器获得
浏览 2提问于2015-06-09得票数 0
我创建了一个自定义日历窗体，以便将日期插入到工作表上的单元格或窗体上的文本框中。在调用表单时，我将目标对象(单元格或文本框)的名称存储在工作表上的单元格(例如，名为targetObject)中。然后，我希望日历窗体将选定的日期插入到该对象中。我的问题是我找不到一种方法来引用目标对象。代码看起来像这样：
(在调用代码中：)
-if to insert date into a cell:
[targetObject].Value="A1"
-if to insert date into a textbox:
[targetObject].Value="MyF
浏览 1提问于2015-10-14得票数 1
1回答
我必须对Access 2003上运行的程序做一些更改。
我有一个表单，点击一个特定的按钮将改变文本的文本框取决于什么是选择(图像研究)。最初，此文本框链接到另一个隐藏文本框，该文本框包含此图像的原始路径(数据库中的路径/未经编辑的路径)。
我的问题包括以下几个方面:当我希望链接到DB的textbox与另一个textbox (包含最新路径)相匹配，从而允许访问保存更改时，它就无法工作。链接到DB的文本框仅为空白。
下面是我在VBA中使用的代码：
Public Sub SearchForImage(ByVal txtName As String, ByVal txtAuto As String)
浏览 2提问于2014-01-09得票数 1
回答已采纳
注意:这与以前的问题和有关，但我认为我已经缩小了范围，以便更清楚地了解问题的所在。
我手动添加了一个复选框到一个Webforms应用程序中，并动态地生成了更多的复选框。
我想循环这些复选框，并有条件地做一些具有相关值的事情，但是循环根本找不到复选框，甚至没有在设计时从工具箱中删除的复选框。这是查找复选框的代码：
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim connStr As String = "SERVER=dishwasher;DATABASE
浏览 5提问于2017-03-23得票数 3
回答已采纳
1回答
检查用户控件类型的问题
、、、
我有一组ComboBoxs，我希望绑定到数据源。
将有超过200个ComboBoxs被绑定到同一个源，所以我将使用一个循环来遍历表单上的所有控件，找到适当的控件并执行绑定。
下面是我到目前为止掌握的代码：
For Each uxControl As UserControl In Me.Controls
If TypeOf (uxControl) Is ComboBox Then
Dim tbControl As ComboBox = DirectCast(uxControl, ComboBox)
If tbControl.Name
浏览 1提问于2018-10-23得票数 0
回答已采纳
我想概括一下这个子程序。该子程序在不需要对复选框进行测试的情况下，用于文本字段。复选框既没有.BackStyle，也没有.ForeColor属性。
我尝试了下面的代码：
Private Sub EnableEdit(strFieldname As String, Optional bUseRed As Boolean = False)
Me.Controls(strFieldname).Enabled = True
Me.Controls(strFieldname).Locked = False
If Not(TypeOf (Me.Controls(strFieldna
浏览 5提问于2020-12-10得票数 0
回答已采纳
为了获得更好的功能和外观，我试图以多种方式对NumericUpDown进行子类化。
由于NUD是由两个控件组成的，所以在属性"Increment“设置为0的情况下，我希望隐藏向上/向下的按钮。
此代码位于子类中：
Protected Overrides Sub OnTextBoxResize(ByVal source As Object, ByVal e As System.EventArgs)
Controls(0).Hide()
End Sub
..。而且效果还不错。但在这个函数中，我不能检查增量属性的值，如下所示：
Protected Overrides Sub
浏览 1提问于2013-10-22得票数 4
回答已采纳
1回答
在我的表单中，我有8个用连续数字命名的文本字段(tbx_MyID1 to tbx_MyID8)。我想循环遍历所有的8个文本字段，从文本字段的值中创建新的记录。因此，我试图将文本字段名称存储在一个变量中，并通过这个变量对文本字段进行寻址。这只会创建一个错误，表示该对象不存在。
Private Sub btn_Enter_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl")
Dim x As In
浏览 0提问于2019-07-02得票数 1
回答已采纳
2回答
我目前在2013中工作，使用sql后端。我试图在两个组合框和一个日期选择器中运行一个循环，对于任何实例，都会选中复选框。但是，我遇到一个错误，即"System.ArgumentException:从对象类型system.windows.forms.datetimepicker到已知的托管提供程序本机类型不存在映射“。在运行代码时，我已经对参数值进行了监视，在sql命令触发之前，它不会将数据保存到变量中。我认为我需要以一种不同的方式存储变量，以允许访问该变量。这是我的代码：
Try
Using conn1 As New SqlConnection(connstring)
con
浏览 1提问于2015-02-05得票数 1
回答已采纳
4回答
获取页面上的所有控件
、、、
我需要根据全局变量将窗体控件(文本框、单选按钮等)的readOnly属性设置为readOnly = true或false。
我希望我能像这样循环每种类型的控制：
For Each Ctrl In Me.Controls
Ctrl.ReadOnly = myGlobalTrueFalse
Next
但这是行不通的，因为每个Ctrl都没有ReadOnly属性。
有什么想法吗？
谢谢!
浏览 5提问于2013-04-22得票数 0
回答已采纳
1回答
该程序的目的是运行一系列图片框，并将其.image属性设置为特定的图像。我一直得到错误“对象引用没有设置为一个对象的实例”。从显示“DirectCast(Me.Controls(pic(I)，PictureBox).Image =My.Resources.glass_buttonred”的行来看，....Whats奇怪的是，如果我将代码移到for循环之外，它就运行得很好。
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim pic(2) A
浏览 1提问于2013-09-27得票数 3
回答已采纳
1回答
执行宏的复选框输入
、、、
我有一个Check-Boxes，上面有国家名称的标题，User-form上有一个OK按钮，
用户将需要Mark Check-Boxes并单击OK提交表单。
预期结果:对于每个选中的Box，都有一个要执行的。
如何使OK按钮对用户选中的国家执行宏操作？
和
以下代码是否正确处理此情况？还是有其他方法可以做到？
If ActiveDocument.CeemeaFinallist.EasternEurope("CheckBox1").CheckBox.Value = True Then
Application.Run MacroName:="Normal.NewMa
浏览 1提问于2016-05-18得票数 0
回答已采纳
在VBA中，我正在更改Access窗体中的一些控件的值。我喜欢在这样做之后运行这些控件的BeforeUpdate事件，因为它会检查字段之间的一致性：
Private Sub ExampleProc1()
Dim intCancel as Integer
intCancel = False
Me.Controls("Date1").Value=Null
Me.Controls("Textfield1").Value=Null
Call Date1_BeforeUpdate(intCancel)
Call Textfield1_Befo
浏览 0提问于2009-05-28得票数 3
回答已采纳
我在我的用户表单上有很多控件，我想在加载时禁用所有的控件，除了"login button“和"Shift Date”文本框，所以我使用以下代码：
Private Sub Form_Load()
Call GetValues
Me.WlcmLabel.Caption = "Hi " + GetUserName + " ! "
Dim ctrl As Control
For Each ctrl In Me.Controls
ctrl.Enabled = False
Next
Me.ShiftDate.Enabled = True
Me.L
浏览 4提问于2017-12-21得票数 0
回答已采纳
我有一个9行的表，每行有4个逻辑元素。每一行只能有一个“真”的条件(一个类比可以是:第一行-眼睛“蓝色”，“绿色”，“灰色”，“棕色”。第二行-头发“金发(E)”，“布鲁内特”，“红头”，“无”...and等。)这些实际上是“单选按钮”在用户表单上。它们目前工作正常，但100%手动-我需要保持这种功能。
我的问题是，我还希望能够使用在其他地方确定的“标准”配置将它们全部重置。这些按钮被标记为B11 - B49
在“别处”中，我有以下示例代码，它创建了我想要设置按钮的值：
`Sub bMostCommon() 'This is the most common profile
For iR
浏览 4提问于2012-08-31得票数 2
回答已采纳
2回答
我试图用代码更改多个标签的文本，但我一直收到错误：
对象引用未设置为对象的实例。
当我以空的形式尝试相同的代码时，它是有效的，但当我在我的项目上尝试相同的代码时，它就无效了。
我尝试过在代码中寻找变化，但在两个程序中都是完全相同的行。
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For i = 1 To 5
Dim l1 As Label = CType(Me.Controls("lbl" + CStr(i)), Lab
浏览 0提问于2019-08-22得票数 0
回答已采纳
1回答
我正在编程一些形式在Access 2010，并希望检查一些无线电按钮，如果他们被检查或没有。
我想使用一个直到循环，因为有38个问题，这将是要检查的每一行。
我用过这个，但不起作用
Me.OptionQ(lNum).Value
这是我想用的完整的IF语句。
Dim lNum AS Long
lNum = 1
Do Until lNum = 39
If Me.OptionQ(lNum).Value = 1 Then
MsgBox "Option 1 is selected"
ElseIf Me.OptionQ(lNum).Value = 2 Then
浏览 3提问于2014-02-06得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
