显示ODBC 调用是失败
Public Function InputOK() As Boolean
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
InputOK = False
Dim st As Recordset
Set st = DB.OpenRecordset("Checkmpfmonth '" & Format(mskMPFMonth, " yyyy-mm-01") & "'", 4, 64)
If Not st.EOF And optType(0) Then
MsgBox GL("dsadfasdf")
st.Close
Exit Function
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If DBMode = "A" Then
If IsDate(mskMPFMonth) = False Then
MsgBox GL("@DSL353"), vbExclamation, GL("@DSL353")
mskMPFMonth.SetFocus
Exit Function
End If
Set rs = DB.OpenRecordset("CheckSalaryPayDate '" & Format(cmbPayDate, gSaveDateFormat) & "'", 4, 64)
If Not rs.EOF Then
MsgBox GL("@DSL10243"), vbExclamation, GL("@DSL10238")
cmbPayDate.SetFocus
Exit Function
End If
rs.Close
End If
Call cmbPayDate_Change
InputOK = True
End Function
'''''''''''''''''''''''''''''
显示ODBC 调用是失败
是不是不可以同时用两个 openrecordset
[解决办法]
DB是什么？
sql不对
