访问 VBA SQL 案例代码

Question

IM 尝试按序列号查找分配的项目，如果找到，则将表记录的名字和姓氏（分配给它的人）更改为存储并打印出错误消息 uf ut 没有。它还需要与 VBA 语法中的所有引号一起使用，这不适合我。代码很乱

strSQL = "SELECT FirstName,LastName Case [serialnumber] WHEN serialnumber = '& s' & _
"THEN FirstName = 'Storage' AND LastName = Null ELSE 'Record Not Found!'" & _
"FROM [Trial Invetory]"

s 是存储用户输入的变量

s = InputBox("Enter Unit Serial Number", "Add unit to storage", Default)

Answer 1

Access 支持 IIF 函数，可以在 SQL 查询中使用。

strSQL = "SELECT IIF([serialnumber]='& s','Storage', 'Record Not Found!') AS FirstName, IIF([serialnumber]='& s', NULL, LastName)" & vbcr & _
"FROM [Trial Invetory]" 

Answer 2

Access 不支持 case 语句。查看 IIf 函数，了解 Access 中的类似功能。