2015-05-06 124 views
0
strSQL = " SELECT W.wrhID, " & _ 
     " W.wrhName AS WName " & _ 
     " FROM tblWarehouse AS W " & _ 
     " WHERE W.wrhID IN (" & Forms.frmStockControl.Form.txtwrhIDs & ")" 
Set rst = CurrentDb.OpenRecordset(strSQL) 
Do Until rst.EOF 
    Dim strlbl$, strlblV$ 
    For i = 1 To rst.Fields.count 
     strlbl = "Me.lblWarehouse" & i 
     strlblV = "Me.lblWarehouse" & i 
     Me.Controls(strlbl).Caption = rst!WName 
     Me.Controls(strlblV).visible = True 
    Next 
    rst.MoveNext 
Loop 

我收到错误味精2465 - Can not find the Field name找不到字段名称

但场名称在我的形式存在。
请帮忙。

+0

哪条线调试高亮?我想你应该参考'txtwrhIDs'的不同。也许使用这个约定:'Forms!Mainform!ControlName'我也不认为你可以通过'Me.Controls(Me.myControl)'方法获得标题或可见性属性。 –

回答

2

正确语法ADDRES在VBA表单控件可以是:

Forms![YourFormName]![YourControlName] 

如果名称包含空格的括号才是必需的。

Forms("YourFormName").Controls("YourControlName") 
0

我改变

strlbl = "Me.lblWarehouse" & i 
strlblV = "Me.lblWarehouse" & i 

到:

strlbl = "lblWarehouse" & i 
strlblV = "lblWarehouse" & i 

和工作正常