Question

I am trying to update an Access database with a vb script by putting a soccer scoreline into a column dependent on when a goal is scored.

因此,我有一个表格,有一栏。

matchID 1 2 3 4.... 89 90

我写了这封信。

Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblScoreLinesByMinute", dbOpenTable)

Let us say there was a goal scored by the home team in the 3rd minute I have captured this with a variable numTime = 3 and created a variable strScoreline = 10. I wish to update the table something like

rst![numTime] = strScoreline

但是,如果我尝试这一或“CStr(numtime),则我会遇到一个错误,即“本收集中没有发现的情况”。硬编码

rst![3] =strScoreline 工作

我也渴望将其他各栏划入相关的记分线。让我们说,离队在88分钟平等。下面,我所看到的是这一特殊匹配的行文,显示0栏1 2、3栏至87栏、10栏88-90 11

如果有更简单的方法,我也可以使用ms。

Answer 1

如果我正确理解你问题的第一部分,我认为你应努力:

rst.Fields(numTime) = strScoreline

I have no clue about the second part of your question.

Edit: Your comment made me think your numTime text values were being interpreted as numbers rather than string values by rst.Fields. However, that doesn t appear to be the case here.

依据同一表格和外地名称开立记录单,这部法规有一处错误(“本收集中未发现的”):

numTime = "0"
Debug.Print rst.Fields(numTime)

但是,这部法典印刷了“2”栏的价值:

numTime = "2"
Debug.Print rst.Fields(numTime)

因此,我仍然不理解为什么不为你工作。但我从未使用过编号作为栏目;在我看来这是错误的。如果你把你的栏目改名为MatchID、f1、f2、f3,而且这种做法仍然不奏效,我会感到更加惊讶。

友情链接