Office中国论坛/Access中国论坛

标题: 【求助】明明在ComboBox里面编辑，在change事件中提示未获得焦点【不完美解决】 [打印本页]

作者: doney88 时间: 2015-7-11 10:12
标题: 【求助】明明在ComboBox里面编辑，在change事件中提示未获得焦点【不完美解决】
本帖最后由 doney88 于 2015-7-11 11:18 编辑

源码如下：
Private Sub cbo物料编号_Change()
'

Dim strCriteria As String

strCriteria = Me.cbo物料编号.Text

Me.cbo物料编号.RowSource = "SELECT 表_采购_物料数据.物料编号, tblProduct.FProductCode, tblProduct_SKU.FColorCode, tblProduct_SKU.FColor, 表_采购_物料数据.单价" & _
" FROM 表_采购_物料数据 INNER JOIN (tblProduct INNER JOIN tblProduct_SKU ON tblProduct.FProductID = tblProduct_SKU.FProductID) ON 表_采购_物料数据.FMaterialID = tblProduct_SKU.FMaterialID" & _
" Where FProductCode Like '*" & strCriteria & "*' Or 物料编号 Like '" & strCriteria & "'"
Me.cbo物料编号.Dropdown

End Sub

这是一个很诡异的情况！就刚刚还好的，当我加了一个代码就出问题了！

尝试过在新建一个窗体，将代码复制进去，测试没问题！可能跟窗体有关系！
之后索性就重新做一遍窗体，控件自己创建，代码复制。结果还是出现这样的问题！！真是见鬼了！！

用最笨的方法，重建窗体了，先确保ComBobox空间的可行性。然后一个个从旧窗体复制过来，复制一个检查一次！步步为营，居然就可以了！

而且发现，原来出现错误的窗体也好了！！

这是什么鬼。。

作者: doney88 时间: 2015-7-11 10:17
本帖最后由 doney88 于 2015-7-11 10:19 编辑

一下是我现在窗体中所有的代码！

Private Sub cboBillType_AfterUpdate()
Dim strBillType As String
Dim strBillNum As String
Dim strBillNumIni As String    '单据首字母

'自动生成单号
If Nz(Me.cboBillType) = "" Then Exit Sub
strBillType = Me.cboBillType
If strBillType = "出库" Then '单据首字母
      strBillNumIni = "OT"
Else
      strBillNumIni = "IN"
End If

strBillNum = Nz(DMax("Mid(FBillNum,3)", "tblPdtIvtData", "FBillType Like '" & Me.cboBillType & "'"), 0)
strBillNum = strBillNumIni & Format(strBillNum + 1, "000000")
Me.txtBillNum = strBillNum

'自动导入日期
Me.txtDate = DATE

End Sub

‘=====================================================================================================================

Private Sub cbo物料编号_AfterUpdate()
Dim intListIndex As Integer
Dim strPdtCode As String
Dim strColCode As String

      intListIndex = Me.cbo物料编号.ListIndex
      With Me.cbo物料编号
         strPdtCode = Nz(.Column(1, intListIndex))
         strColCode = Nz(.Column(2, intListIndex))

         Me.txtProductCode = strPdtCode
         Me.txtColorCode = strColCode
         Me.txtColor = .Column(3, intListIndex)
         Me.txtPrice = .Column(4, intListIndex)
      End With
' '添加图片
' gf_GetPicPath Me.Pic, strPdtCode, strColCode

End Sub

’================================================================================================================================
Private Sub cbo物料编号_Change()
'

Dim strCriteria As String

strCriteria = Me.cbo物料编号.Text

Me.cbo物料编号.RowSource = "SELECT 表_采购_物料数据.物料编号, tblProduct.FProductCode, tblProduct_SKU.FColorCode, tblProduct_SKU.FColor, 表_采购_物料数据.单价" & _
                  " FROM 表_采购_物料数据 INNER JOIN (tblProduct INNER JOIN tblProduct_SKU ON tblProduct.FProductID = tblProduct_SKU.FProductID) ON 表_采购_物料数据.FMaterialID = tblProduct_SKU.FMaterialID" & _
                  " Where FProductCode Like '*" & strCriteria & "*' Or 物料编号 Like '" & strCriteria & "'"
Me.cbo物料编号.Dropdown

End Sub

Private Sub cbo物料编号_KeyDown(KeyCode As Integer, Shift As Integer)
ArrowSelectList Me.cbo物料编号, KeyCode

End Sub

‘========================================================================================================================
Private Sub cmdInsert_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSql As String

      Set db = CurrentDb
      Set rst = db.OpenRecordset("tblPdtIvtData_Temp")

      rst.AddNew
         rst!物料编号 = Me.cbo物料编号
         rst!FQty = Me.txtQty
         rst!FPrice = Me.txtPrice
         rst!FNote = Me.txtNote
      rst.Update

      rst.Close: Set rst = Nothing
      db.Close: Set db = Nothing

      Me.Requery

End Sub

’==============================================================================================================

Private Sub cmdOpenBill_Click()

Me.txtBillNum = Null
Me.cboBillType = Null
Me.txtDate = Null

CurrentDb.Execute "Delete From tblPdtIvtData_Temp"
Me.Requery

End Sub

‘===============================================================================================================

Private Sub cmdSave_Click()
Dim strBillNum As String
Dim strBillType As String
Dim datePdtIvt As Date
Dim strSql As String

On Error GoTo HandleError
strBillNum = Me.txtBillNum
strBillType = Me.cboBillType
datePdtIvt = Me.txtDate
strSql = "Update tblPdtIvtData_Temp Set FBillNum='" & strBillNum & "',FBillType='" & strBillType & "'," & _
            "FDate=#" & datePdtIvt & "#"
CurrentDb.Execute strSql
strSql = "Insert Into tblPdtIvtData(FBillNum,FBillType,FSKUID,物料编号,FQty,FPrice,FDate,FNote)" & _
            " Select FBillNum,FBillType,FSKUID,物料编号,FQty,FPrice,FDate,FNote From tblPdtIvtData_Temp"
CurrentDb.Execute strSql

If IsLoaded("frmPdtIvt") Then Forms!frmPdtIvt.Requery

MsgBox "保存成功！", vbInformation

Exit_Sub:
Exit Sub

HandleError:
If Err.Number <> 0 Then
      If Err = 94 Then
         MsgBox "单号、单据类型、日期不能为空！", vbCritical
      Else
         MsgBox Err & vbCrLf & Err.Description
      End If
End If

GoTo Exit_Sub

End Sub

’=====================================================================================================================

Private Sub Form_Current()
Dim strPdtCode As String
Dim strColCode As String

If Me.NewRecord Then Exit Sub

strPdtCode = Me.FProductCode
strColCode = Me.FColorCode
gf_GetPicPath Me.Pic, strPdtCode, strColCode

End Sub

作者: tmtony 时间: 2015-7-11 10:28
你是加了什么代码才会出现这样？

作者: roych 时间: 2015-7-11 10:35
strCriteria = Me.cbo物料编号.Text改为strCriteria = Me.cbo物料编号.value试试。印象中，有些控件是不能用text的。

作者: doney88 时间: 2015-7-11 10:36

tmtony 发表于 2015-7-11 10:28
你是加了什么代码才会出现这样？

最后一次编辑好像是自动产品型号去提取照片路径，并将路径分配给名字为 Pic 的Image图片框

作者: doney88 时间: 2015-7-11 10:37

roych 发表于 2015-7-11 10:35
strCriteria = Me.cbo物料编号.Text改为strCriteria = Me.cbo物料编号.value试试。印象中，有些控件是不能 ...

我这样就不能自动更新 ComboBox的rowsource属性了，这样是为了方便录入出入库信息。

作者: 盗梦 时间: 2015-7-11 10:44
估计损坏了，压缩修复一下

作者: roych 时间: 2015-7-11 10:45
供参考：
http://www.office-cn.net/thread-116593-1-1.html
http://www.office-cn.net/thread-96512-1-1.html
http://www.office-cn.net/thread-107647-1-1.html
http://www.office-cn.net/thread-116568-1-1.html

作者: doney88 时间: 2015-7-11 10:47

盗梦发表于 2015-7-11 10:44
估计损坏了，压缩修复一下

压缩了，还是一样

作者: tmtony 时间: 2015-7-11 11:03
这是一个很诡异的情况！就刚刚还好的，当我加了一个代码就出问题了！

你找到是加了哪句代码导致这样的
1.临时去掉这个代码
2.找到以前的备份对比代码

作者: doney88 时间: 2015-7-11 11:15

tmtony 发表于 2015-7-11 11:03
这是一个很诡异的情况！就刚刚还好的，当我加了一个代码就出问题了！

你找到是加了哪句代码导致这样的
...

用最笨的方法，重建窗体了，先确保ComBobox空间的可行性。然后一个个从旧窗体复制过来，复制一个检查一次！步步为营，居然就可以了！

而且发现，原来出现错误的窗体也好了！！

这是什么鬼。。

作者: zpy2 时间: 2015-7-12 06:52

doney88 发表于 2015-7-11 11:15
用最笨的方法，重建窗体了，先确保ComBobox空间的可行性。然后一个个从旧窗体复制过来，复制一个检查一次 ...

会这样？？？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)