Question

尝试使用数组从两个文本框中提取输入，并使用列表构建一个消息框。打开表单后会询问“要添加多少名称”，然后保留该号码。然后单击“添加名称”直到名称计数达到5.然后它应该弹出一个消息框，说明列表已满。

Option Compare Database
Option Explicit

Dim intItems As Integer

Dim strFName() As String, strLName() As String



Private Sub Form_Load()
intItems = Val(InputBox("How many names?", "Name  Count"))
Do While intItems <= 0
MsgBox "Please provide a number greater than 0", vbCritical, "Correct Value 
Required"
intItems = Val(InputBox("How many names do you have?", "Name List"))
Loop
ReDim strFName(intItems - 1)
End Sub


Private Sub cmdAddName_Click()
Dim intI As Integer
If IsNull(Me.txtFirstName.Value) Or IsNull(Me.txtLastName.Value) = True Then
MsgBox "There must be values for both First and Last names", vbCritical, 
"Data Entry Error"
Else
If strFName(intItems - 1) <> "" Then
MsgBox "Sorry, the list is full!"
Me.txtFirstName.Value = Null
Me.txtLastName.Value = Null
Else
For intI = 0 To intItems - 1
If strFName(intI) = "" Then
strFName(intI) = Me.txtFirstName.Value
strLName(intI) = Me.txtLastName.Value
Me.txtFirstName.Value = Null
Me.txtLastName.Value = Null
Exit For
End If
Next
End If
End If
End Sub

我在'如果strFName（intItems - 1）＆lt;＆gt;上遇到运行时错误“脚本超出范围” “那么任何人都有任何关于为什么的想法？

Answer 1

你忘了重新调整另一个数组并重置数组的数据类型

继续获取运行时错误 - 脚本超出访问VBA范围

1 个答案: