Dlookup困惑，求帮忙

liangyuehua123 2018-11-03 10:14:34

有两个表：
[GCDJ02工程做法单价表]，类似于所有工程造价文件库，数据唯一
[GCL02工程量]，特定工程量文件，数据可能有重复
需要做一查询，按照[GCL02工程量]中[工程做法ID]字段
在[GCDJ02工程做法单价表]中查询与[工程做法ID]字段对应的[单价]的值，
最好实现造价的计算
这个过程一直做不对，对dlookup的使用还是有点没掌握
求大师们帮忙，多谢多谢！！！

怎么添加附件呢？

...全文

31 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

liangyuehua123 2018-11-03

打赏
举报

回复

http://C:\Users\Administrator\Desktop\Dlookup问题.rar

关于simulink仿真中的1DLookup Table的使用及反向查表；视频教学

用ECXEL函数VLOOKUP做成的成绩查询实例，大家可以参照此函数通过变通做出自己想要的表格

ACCESS里自定义公式简单用法, 巧用Dlookup函数

Recordsource Recordset bookmark Option Compare Database Private Sub Form_Close() 'DoCmd.Quit acQuitSaveNone 'Application.Quit acQuitSaveNone End Sub Private Sub Form_Load() 'DoCmd.RunCommand acCmdAppMinimize Set Me.SUB.Form.Recordset = Me.Recordset End Sub Private Sub Image13_Click() Me.Recordset.MoveFirst Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image14_Click() On Error Resume Next Me.Recordset.MovePrevious Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image15_Click() 'Forms!main.Recordset.MoveNext 'Forms!main!SUB.Form!CM.SelLength = 0 '****************************************** On Error Resume Next Me.Recordset.MoveNext Me!SUB.Form!CM.SelLength = 0 '****************************************** 'Me.Recordset.MoveNext 'Me.SUB.Form.CM.SelLength = 0 End Sub Private Sub Image16_Click() Me.Recordset.MoveLast Me!SUB.Form!CM.SelLength = 0 End Sub Private Sub Image19_Click() On Error Resume Next Me.SUB.SetFocus End Sub Private Sub srch_AfterUpdate() 'Me.SUB.SetFocus If Nz(Me.srch) <> "" Then If IsNull(DLookup("CM", "Main", "CM LIKE '*" & Me.srch & "*'")) Then MsgBox "找不到包含[" & Me.srch & "]的成语" Me.srch = "" Exit Sub End If Me.RecordSource = "select * from main where CM LIKE '*" & Me.srch & "*'" Else Me.RecordSource = "main" End If Me.srch = "" 'Set Me.SUB.Form.Recordset = Me.Recordset Set Me!SUB.Form.Recordset = Me.Recordset Me.Requery 'Me.SUB.SetFocus Me.SUB.Form.CM.SelLength = 0 End Sub

Private Sub cmdClose_Click() On Error GoTo Err_cmdClose_Click If MsgBox("是否确定退出系统？", vbQuestion + vbYesNo, "系统提示") = vbYes Then DoCmd.Quit Else Exit Sub End If Exit_cmdClose_Click: Exit Sub Err_cmdClose_Click: MsgBox Err.Description Resume Exit_cmdClose_Click End Sub Private Sub cmdOK_Click() On Error GoTo Err_cmdOK_Click '第一步判断用户情况 Call cobUser_LostFocus If blnAsUser = True Then Me.cobUser.SetFocus Exit Sub Else Me.txtPwd.SetFocus End If '第二步判断密码情况 Call txtPwd_LostFocus If blnAsPwd = True Then Me.txtPwd.SetFocus Exit Sub Else Me.lblPwd.ForeColor = RGB(0, 100, 0) Me.lblPwd.Caption = "√" 'MsgBox "测试通过用户ID =" & userID MsgBox "测试通过！" Me.Visible = False End If Exit_cmdOK_Click: Exit Sub Err_cmdOK_Click: MsgBox Err.Description Resume Exit_cmdOK_Click End Sub Private Sub cobUser_LostFocus() On Error GoTo Err_cobUser_LostFocus blnAsUser = False Dim blnUser As Boolean blnUser = False If IsNull(Me.cobUser) Then Me.lblUser.ForeColor = RGB(255, 0, 0) Me.lblUser.Caption = "× 用户名不能为空" blnAsUser = True '当此处不退出，则会运行到用户不存在的错误提示 Exit Sub End If Set rsAs = New ADODB.Recordset strAsSQL = "SELECT tb_user.用户ID,tb_user.用户名 FROM tb_user" rsAs.Open strAsSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic rsAs.MoveFirst For iAs = 1 To rsAs.RecordCount If rsAs!用户名 = Me!cobUser Then blnUser = True iAs = rsAs.RecordCount + 1 '赋值给全局变量，适用于模块 Macro_modUsersLog Else rsAs.MoveNext End If Next iAs rsAs.Close Set rsAs = Nothing If blnUser = False Then Me.lblUser.ForeColor = RGB(255, 0, 0) Me.lblUser.Caption = "× 用户不存在" blnAsUser = True Exit Sub Else Me.lblUser.ForeColor = RGB(0, 100, 0) Me.lblUser.Caption = "√" End If Exit_cobUser_LostFocus: Exit Sub Err_cobUser_LostFocus: MsgBox Err.Description Resume Exit_cobUser_LostFocus End Sub Private Sub txtPwd_LostFocus() On Error GoTo Err_txtPwd_LostFocus blnAsPwd = False If IsNull(Me.cobUser) Then Me.lblPwd.Caption = "" Me.cobUser.SetFocus Exit Sub End If If IsNull(Me.txtPwd) Then Me.lblPwd.ForeColor = RGB(255, 0, 0) Me.lblPwd.Caption = "× 密码不能为空" blnAsPwd = True End If If DLookup("密码", "tb_user", "[用户名]=" & "'" & Me!cobUser & "'") <> Me!txtPwd Then Me.lblPwd.ForeColor = RGB(255, 0, 0) Me.lblPwd.Caption = "× 密码错误" blnAsPwd = True End If Exit_txtPwd_LostFocus: Exit Sub Err_txtPwd_LostFocus: MsgBox Err.Description Resume Exit_txtPwd_LostFocus End Sub

7,712

社区成员

28,799

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章