求医(朱中斌zz),求高手指正!!!!非常感谢

ZZBZZBZZZB

Private Sub 科目编码_BeforeUpdate(Cancel As Integer)
Dim cnnmx As ADODB.Connection
Dim rsmx As ADODB.Recordset
Dim mysql As String
    tyu = 科目编码.Value
    Set rsmx = New ADODB.Recordset
  
    mysql = "select 科目名称 AS RRR from 总账科目表  where  科目编码 = tyu "
    rsmx.Open mysql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
      总账科目.Value = RRR
  
End Sub

提示错误:至少一个参数没有指定值,我该怎么解决!!!

ZZBZZBZZZB

您是说更换"科目编码的事件吗"

Henry D. Sy

请更改标题