编辑对话框不自动加载已有数据问题

那一枪的风流　发表于：2017-02-15 09:52:18 　

求教各位，进销存管理系统教程3.2.3节，作业二中，在窗体frm商品信息里，点击编辑按钮后，弹出的对话框中未能自动加载数据，如下图所示，且此时如果输入数据，保存后直接新增

编辑按钮的代码如下

Public Sub btnEdit_Click()
On Error GoTo ErrorHandler

If Me.sfrList.Form.CurrentRecord < 1 Then
Exit Sub
End If

Me.sfrList.SetFocus
RunCommand acCmdSelectRecord
DoCmd.OpenForm FormName:=Me.Name & "_Edit", _
DataMode:=IIf(Me.btnEdit.Enabled, acFormEdit, acFormReadOnly), _
OpenArgs:=Me.sfrList![商品ID]

ExitHere:
Exit Sub

ErrorHandler:
Select Case Err.Number
Case errOpenActionWasCanceled, errOperationCanceledByUser
Case Else
RDPErrorHandler Me.Name & ": Sub btnEdit_Click()"
End Select
Resume ExitHere
End Sub

请教一下问题出在哪里了，谢谢

Top

MDZZ 发表于：2017-02-15 10:03:03

需要看下edit窗体的加载代码这个没问题

Top

那一枪的风流发表于：2017-02-15 10:15:06

On Error GoTo ErrorHandler
Dim strSQL As String
Dim cnn As Object 'ADODB.Connection
Dim rst As Object 'ADODB.Recordset

ApplyTheme Me
LoadLocalLanguage Me

If IsNull(Me.OpenArgs) Then
Me.DataEntry = True
End If
If Me.DataEntry Then
Me!分类编号 = Me.OpenArgs

Exit Sub
End If
GoTo ExitHere

Me.btnSave.Enabled = Me.AllowEdits

Set cnn = CurrentProject.Connection

strSQL = "SELECT * FROM [商品信息表] WHERE [商品ID]=" & Nz(Me.OpenArgs, 0)
Set rst = OpenADORecordset(strSQL, , cnn)
Me![商品ID] = rst![商品ID]
Me![商品编码] = rst![商品编码]
Me![品名规格] = rst![品名规格]
Me![拼音码] = rst![拼音码]
Me![分类编号] = rst![分类编号]
Me![单位] = rst![单位]
Me![库存数量] = rst![库存数量]
Me![最新进价] = rst![最新进价]
Me![成本价] = rst![成本价]
Me![售价] = rst![售价]
Me![库存下限] = rst![库存下限]
Me![库存上限] = rst![库存上限]
Me![备注] = rst![备注]
Me![已停用] = rst![已停用]
rst.Close

ExitHere:
Set rst = Nothing
Set cnn = Nothing
Exit Sub

ErrorHandler:
RDPErrorHandler Me.Name & ": Sub Form_Load()"
Resume ExitHere
End Sub

Top

MDZZ 发表于：2017-02-15 10:22:19

On Error GoTo ErrorHandler
Dim strSQL As String
Dim cnn As Object 'ADODB.Connection
Dim rst As Object 'ADODB.Recordset

ApplyTheme Me
LoadLocalLanguage Me

If IsNull(Me.OpenArgs) Then
Me.DataEntry = True
End If
If Me.DataEntry Then
Exit Sub
End If

Me.btnSave.Enabled = Me.AllowEdits

Set cnn = CurrentProject.Connection

strSQL = "SELECT * FROM [商品信息表] WHERE [商品ID]=" & Nz(Me.OpenArgs, 0)
Set rst = OpenADORecordset(strSQL, , cnn)
Me![商品ID] = rst![商品ID]
Me![商品编码] = rst![商品编码]
Me![品名规格] = rst![品名规格]
Me![拼音码] = rst![拼音码]
Me![分类编号] = rst![分类编号]
Me![单位] = rst![单位]
Me![库存数量] = rst![库存数量]
Me![最新进价] = rst![最新进价]
Me![成本价] = rst![成本价]
Me![售价] = rst![售价]
Me![库存下限] = rst![库存下限]
Me![库存上限] = rst![库存上限]
Me![备注] = rst![备注]
Me![已停用] = rst![已停用]
rst.Close

ExitHere:
Set rst = Nothing
Set cnn = Nothing
Exit Sub

ErrorHandler:
RDPErrorHandler Me.Name & ": Sub Form_Load()"
Resume ExitHere
End Sub

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]编辑对话框不自动加载已有数据问题