超市管理系统的注册界面怎么做

WANGYANHELEN · 发表于 2008-11-28 21:22:00

Private Sub Command14_Click()
If Trim(Me![Text20]) = "" Or Trim(Me![Text22]) = "" Then
MsgBox "您输入的用户名和密码不能为空，请重新输入！", vbOKOnly, " 警告信息"
  Else
With CodeContextObject
    rrr ="[用户信息表]！[姓名]="& Trim( Me! [text20]) &"'-
   [用户信息表]![密码] = "& Trim( Me! [text22]) &" '"    DoCmd.ApplyFilter "uuu", rrr
      If (.RecordsetClone.RecordCount > 0) Then
         DoCmd.Close
         DoCmd.OpenForm "系统界面", acNormal, "", "", acReadOnly, acWindowNormal
         Else
         MsgBox " 您输入的用户名称和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
         End If
         End With
         End If


         End Sub

为什么红色字的地方错了

WANGYANHELEN · 发表于 2008-11-28 21:23:43

Private Sub Command14_Click()
If Trim(Me![Text20]) = "" Or Trim(Me![Text22]) = "" Then
MsgBox "您输入的用户名和密码不能为空，请重新输入！", vbOKOnly, " 警告信息"
  Else
With CodeContextObject
   rrr ="[用户信息表]！[姓名]="& Trim( Me! [text20]) &"'-
   [用户信息表]![密码] = "& Trim( Me! [text22]) &" '"    DoCmd.ApplyFilter "uuu", rrr
      If (.RecordsetClone.RecordCount > 0) Then
         DoCmd.Close
         DoCmd.OpenForm "系统界面", acNormal, "", "", acReadOnly, acWindowNormal
         Else
         MsgBox " 您输入的用户名称和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
         End If
         End With
         End If


         End Sub

为什么在测试时，红色字体的地方老出错

WANGYANHELEN · 发表于 2008-11-28 21:24:43

求一小型超市信息管理系统

WANGYANHELEN · 发表于 2008-11-28 21:26:25

在小型超市管理系统中，怎样实现销售时修改库存

WANGYANHELEN · 发表于 2008-11-28 21:27:14

在小型超市管理系统中，怎样实现输入进货单时修改库存

tmtony · 发表于 2008-11-28 22:10:57

CodeContextObject
是什么控件
能否把整个程序传上来, 才好调试及找出问题

WANGYANHELEN · 发表于 2008-11-28 22:37:34

Private Sub Command14_Click()
If Trim(Me![Text20]) = "" Or Trim(Me![Text22]) = "" Then
MsgBox "您输入的用户名和密码不能为空，请重新输入！", vbOKOnly, " 警告信息"
  Else
With CodeContextObject
   rrr ="[用户信息表]！[姓名]="& Trim( Me! [text20]) &"'-
   [用户信息表]![密码] = "& Trim( Me! [text22]) &" '"    DoCmd.ApplyFilter "uuu", rrr
      If (.RecordsetClone.RecordCount > 0) Then
         DoCmd.Close
         DoCmd.OpenForm "系统界面", acNormal, "", "", acReadOnly, acWindowNormal
         Else
         MsgBox " 您输入的用户名称和密码不能为空，请重新输入。", vbOKOnly, "警告信息"
         End If
         End With
         End If


         End Sub

这是我写在vb模板中的程序，调试时红色部分老出错，不知原因

sedah-2002 · 发表于 2009-1-12 01:18:17

rrr ="[用户信息表]！[姓名]="& Trim( Me! [text20]) &"' And [用户信息表]![密码] = '"& Trim( Me! [text22]) &" '"

yangzhan1978 · 发表于 2009-1-22 08:33:23

很好

yangzhan1978 · 发表于 2009-1-22 08:33:37

很好，很强大

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access交流总群 (5004108)
Access中国官方群 (162780177)

主题相关群

地区相关群[您还没设置居住地]

超市管理系统的注册界面怎么做

怎样将系统用户信息与注册界面联系起来

求一超市信息管理系统

在小型超市管理系统中，怎样实现销售时修改库存

在小型超市管理系统中，怎样实现输入进货单时自动修改库存

群介绍
主题无相 (随机显示版	同地区群块其他地区)