请各位前辈帮忙解决程序中的两个问题！

stvent · 发表于 2009-8-31 15:18:18

沉了

Henry D. Sy · 发表于 2009-8-31 15:36:35

请更改标题，
没有看懂您的意思

djt · 发表于 2009-8-31 16:18:58

本帖最后由 djt 于 2009-8-31 16:20 编辑

按照你的思路写的
Private Sub 采购单号_DblClick(Cancel As Integer)
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Dim Sql As String
Sql = "select * from 入库单明细 where 事务号='" & Me.事务号 & "' and 采购单行号=" & Me.采购单行号
Rs.Open Sql, Conn, adOpenKeyset, adLockReadOnly
If Rs.RecordCount >= 1 Then
MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
Exit Sub
End If
Rs.Close
With Forms![入库单_录入].[入库单明细_子窗体].Form.RecordsetClone
.MoveFirst
.FindFirst "采购单ID='" & Me.采购单号 & "' and 采购单行号=" & Me.采购单行号
If .NoMatch = False Then
   MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
      Exit Sub
End If

End With

Sql = "select * from 入库单明细 where 事务号='" & Me.事务号 & "'"
Rs.Open Sql, Conn, adOpenDynamic, adLockOptimistic
If Not Rs.EOF Then
MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
Exit Sub
End If
'Set Rs = Nothing
'Set Conn = Nothing

Forms![入库单_录入].SetFocus
DoCmd.GoToRecord , , acNewRec
If Forms![入库单_录入].[入库单明细_子窗体].Form.Recordset.RecordCount <= 2 Then
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单ID = Me![采购单号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库日期 = Me![入库日期]
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单行号 = Me![采购单行号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库数量 = Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.单价 = Me![采购单价]
   Forms![入库单_录入].[入库单明细_子窗体].Form.总价 = Me![采购单价] * Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.事务号 = Me![事务号]

Else
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单ID = Me![采购单号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库日期 = Me![入库日期]
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单行号 = Me![采购单行号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库数量 = Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.单价 = Me![采购单价]
   Forms![入库单_录入].[入库单明细_子窗体].Form.总价 = Me![采购单价] * Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.事务号 = Me![事务号]
End If
Dim rs1 As New ADODB.Recordset
rs1.Open "select * from 物料信息表 where 物料编号='" & Me.物料编号 & "'", Conn, adOpenKeyset, adLockReadOnly
If rs1.RecordCount >= 1 Then
      Forms![入库单_录入].[入库单明细_子窗体].Form.物料编号 = rs1("物料编号")
      Forms![入库单_录入].[入库单明细_子窗体].Form.物料名称 = rs1("物料名称")
      Forms![入库单_录入].[入库单明细_子窗体].Form.类别 = rs1("类别")
      Forms![入库单_录入].[入库单明细_子窗体].Form.上级ID = DLookup("[ID号]", "入库单明细", "[物料编号]='" & rs1("类别") & "'")
      Forms![入库单_录入].[入库单明细_子窗体].Form.单位 = DLookup("[单位]", "物料信息表", "[物料编号]='" & rs1("物料编号") & "'")

End If
End Sub

stvent · 发表于 2009-8-31 16:36:27

沉了

stvent · 发表于 2009-8-31 19:13:04

按照你的思路写的
Private Sub 采购单号_DblClick(Cancel As Integer)
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Dim Sql As String
Sql = "sel ...
djt 发表于 2009-8-31 16:18

谢谢djt的帮忙，但还是不成功！双击后，没反应！

stvent · 发表于 2009-8-31 19:14:01

本帖最后由 stvent 于 2009-8-31 19:16 编辑

是不是我表达不清的问题啊？

stvent · 发表于 2009-9-1 08:25:34

继续顶起

djt · 发表于 2009-9-1 08:54:48

本帖最后由 djt 于 2009-9-1 09:08 编辑

能用类模块，应该可以自己改代码了
Private Sub 采购单号_DblClick(Cancel As Integer)
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Dim Sql As String
Sql = "select * from 入库单明细 where 事务号='" & Me.事务号 & "' and 采购单行号=" & Me.采购单行号
Rs.Open Sql, Conn, adOpenKeyset, adLockReadOnly
If Rs.RecordCount >= 1 Then
MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
Exit Sub
End If
Rs.Close

With Forms![入库单_录入].[入库单明细_子窗体].Form.RecordsetClone
If .RecordCount > 0 Then
      .MoveFirst
      .FindFirst "采购单ID='" & Me.采购单号 & "' and 采购单行号=" & Me.采购单行号
      If .NoMatch = False Then
         MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
         Exit Sub
      End If
End If

End With

Sql = "select * from 入库单明细 where 事务号='" & Me.事务号 & "'"
Rs.Open Sql, Conn, adOpenDynamic, adLockOptimistic
If Not Rs.EOF Then
MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
Exit Sub
End If
'Set Rs = Nothing
'Set Conn = Nothing

Forms![入库单_录入].SetFocus
DoCmd.GoToRecord , , acNewRec
If Forms![入库单_录入].[入库单明细_子窗体].Form.Recordset.RecordCount <= 2 Then
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单ID = Me![采购单号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库日期 = Me![入库日期]
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单行号 = Me![采购单行号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库数量 = Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.单价 = Me![采购单价]
   Forms![入库单_录入].[入库单明细_子窗体].Form.总价 = Me![采购单价] * Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.事务号 = Me![事务号]

Else
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单ID = Me![采购单号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库日期 = Me![入库日期]
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单行号 = Me![采购单行号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库数量 = Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.单价 = Me![采购单价]
   Forms![入库单_录入].[入库单明细_子窗体].Form.总价 = Me![采购单价] * Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.事务号 = Me![事务号]
End If
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acLast
Dim rs1 As New ADODB.Recordset
rs1.Open "select * from 物料信息表 where 物料编号='" & Me.物料编号 & "'", Conn, adOpenKeyset, adLockReadOnly
If rs1.RecordCount >= 1 Then
      Forms![入库单_录入].[入库单明细_子窗体].Form.物料编号 = rs1("物料编号")
      Forms![入库单_录入].[入库单明细_子窗体].Form.物料名称 = rs1("物料名称")
      Forms![入库单_录入].[入库单明细_子窗体].Form.类别 = rs1("类别")
      Forms![入库单_录入].[入库单明细_子窗体].Form.上级ID = DLookup("[ID号]", "入库单明细", "[物料编号]='" & rs1("类别") & "'")
      Forms![入库单_录入].[入库单明细_子窗体].Form.单位 = DLookup("[单位]", "物料信息表", "[物料编号]='" & rs1("物料编号") & "'")

End If

End Sub

stvent · 发表于 2009-9-1 09:17:50

能用类模块，应该可以自己改代码了
Private Sub 采购单号_DblClick(Cancel As Integer)
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Dim Sql As St ...
djt 发表于 2009-9-1 08:54

那个类是引用论坛上的前辈的，非本人写的！见笑了！

ly · 发表于 2009-9-1 15:44:28

1# stvent

请尝试，不知符合楼主的要求。
1、
Private Sub 采购单号_DblClick(Cancel As Integer)
'Dim Rs As New ADODB.Recordset
'Dim Conn As New ADODB.Connection
'Set Conn = CurrentProject.Connection
'Dim Sql As String
'Sql = "select * from 入库单明细 where 事务号='" & Me.事务号 & "'"
'Rs.Open Sql, Conn, adOpenDynamic, adLockOptimistic
'If Not Rs.EOF Then
' MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
'Exit Sub
'End If
With Forms![入库单_录入].[入库单明细_子窗体].Form.RecordsetClone
If .RecordCount > 0 Then
.MoveFirst
.FindFirst "事务号='" & Me.事务号 & "'"
      If .NoMatch = False Then
      MsgBox "该条记录已存在！", vbInformation + vbOKOnly, "重复提示"
      Exit Sub
      End If
End If
End With
'Set Rs = Nothing
'Set Conn = Nothing
Forms![入库单_录入].SetFocus
DoCmd.GoToRecord , , acNewRec
' If Forms![入库单_录入].[入库单明细_子窗体].Form.Recordset.RecordCount <= 1 Then
'    Forms![入库单_录入].[入库单明细_子窗体].Form.采购单ID = Me![采购单号]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.入库日期 = Me![入库日期]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.采购单行号 = Me![采购单行号]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.入库数量 = Me![数量]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.单价 = Me![采购单价]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.总价 = Me![采购单价] * Me![数量]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.事务号 = Me![事务号]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.物料编号 = Me![物料编号]
'    Forms![入库单_录入].[入库单明细_子窗体].Form.物料名称 = Me![物料名称]
' Else
  Forms![入库单_录入].[入库单明细_子窗体].Form.采购单ID = Me![采购单号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库日期 = Me![入库日期]
   Forms![入库单_录入].[入库单明细_子窗体].Form.采购单行号 = Me![采购单行号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.入库数量 = Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.单价 = Me![采购单价]
   Forms![入库单_录入].[入库单明细_子窗体].Form.总价 = Me![采购单价] * Me![数量]
   Forms![入库单_录入].[入库单明细_子窗体].Form.事务号 = Me![事务号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.物料编号 = Me![物料编号]
   Forms![入库单_录入].[入库单明细_子窗体].Form.物料名称 = Me![物料名称]
   DoCmd.GoToRecord , , acNext

' End If

End Sub

2、
将"采购单行号查询子窗体"中的记录源修改为：
SELECT Sheet1.采购单号, Sheet1.采购单行号, Sheet1.物料编号, Sheet1.数量, Sheet1.采购单价, Sheet1.事务号, Sheet1.单位, Sheet1.收贷日期, 物料信息表.物料名称
FROM Sheet1 LEFT JOIN 物料信息表 ON Sheet1.物料编号 = 物料信息表.物料编号;

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

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

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

[Access本身] 请各位前辈帮忙解决程序中的两个问题！

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