求助：代码出错，那位大虾帮忙看看

[desert185]

模块 modmain

Public dteSysDate As Date
Public intNumWindows As Integer
Public strConnect As String

Sub main() '黄色
frmLogin.Show vbModal '黄色
If Not frmLogin.LoginSucceeded Then
End
End If
Unload frmLogin
frmlogo.Show
Load frmMain
Unload frmlogo
frmMain.Show
FrmSysDate.Show vbModal
End Sub


设计器 dejxc

Option Explicit

Private Sub DataEnvironment_Initialize()
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist " & _
"Security Info=False;Data Source=" & App.Path & "\data\db_jxc.mdb"
Conjxc.ConnectionString = strConnect
End Sub

[射天狼]

我靠,I服了Y,出错信息呐,光写黄色有什么用啊!!

[didishu0807]

??代码呢？

[didishu0807]

把错误信息帖出来吧

[qingming81]

frmLogin出错，多半是这个窗体不存在!

[desert185]

实时错误“3001”：
变量或类型不正确，或者不再可以接受的范围之内，要不就是与其他数据冲突

Option Explicit
Private rsUser As ADODB.Recordset
Private blnIsSQL As Boolean

Private Sub CmdAct_Click(Index As Integer)
With rsUser
Select Case Index
Case 0
If Me.txtuser_name = "" Or Me.txtuser_pass = "" Then
MsgBox "姓名或密码不能为空!", vbCritical, "错误"
Me.txtuser_name.SetFocus
Exit Sub
End If
.UpdateBatch
.AddNew
.CancelUpdate
.MoveLast
Case 1
.CancelUpdate
If .RecordCount <> 0 Then
.MoveFirst
End If
End Select
End With
Call IsEdit(False)
Me.DataGrid1.Refresh
End Sub

Private Sub CmdDep_Click(Index As Integer)
Dim intAnswer As Integer
Select Case Index
Case 0
Call UserAddNew
Case 1
Call IsEdit(True)
Me.txtuser_name.SetFocus
Case 2
FrmSql.intNumField = 1
FrmSql.Show vbModal
Select Case FrmSql.intNumField
Case -1
blnIsSQL = False
CmdDep(0).Enabled = True
CmdDep(3).Enabled = True
rsUser.Filter = Me.DataGrid1.Columns.Item(0).DataField & _
"<>''"
Case -2
Case Else
blnIsSQL = True
CmdDep(0).Enabled = False
CmdDep(3).Enabled = False
rsUser.Filter = Me.DataGrid1.Columns.Item(FrmSql.intNumField).DataField & _
" like '*" & FrmSql.strSqlField & "*'"
End Select
Case 3
intAnswer = MsgBox("确认删除当前记录吗?", vbYesNo + vbQuestion, "删除确认")
If intAnswer = vbYes Then
With rsUser
.Delete
.UpdateBatch
If .RecordCount <> 0 Then
.MoveFirst
End If
End With
End If
Case 4

Case 5
Unload Me
End Select
End Sub

Private Sub Form_Load()
intNumWindows = OpenWindow(intNumWindows)
Me.Height = 6300
Me.Width = 4290
Call SetFormStu(Me, frmMain)
Set rsUser = DEjxc.rsComUsers
Call IsEdit(False)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If CmdDep(5).Enabled = False Then
MsgBox "请先退出编辑状态后再退出该程序!", , "提示"
Cancel = True
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
intNumWindows = Closewindow(intNumWindows)
rsUser.Filter = Me.DataGrid1.Columns.Item(0).DataField & "<>''" '黄色
rsUser.Close
Set rsUser = Nothing
End Sub

Private Sub UserAddNew()
Dim strSQL As String
With rsUser
.AddNew
Call IsEdit(True)
Me.txtuser_name.SetFocus
End With
End Sub

Private Sub IsEdit(blnIsEdit As Boolean)
Dim intNum As Integer
Me.txtuser_name.Enabled = blnIsEdit
Me.txtuser_pass.Enabled = blnIsEdit
For intNum = 0 To 1
Me.CmdAct(intNum).Enabled = blnIsEdit
Next
For intNum = 0 To 5

Next
If blnIsSQL = True Then
CmdDep(0).Enabled = False
CmdDep(3).Enabled = False
End If
If rsUser.RecordCount = 0 Then
For intNum = 1 To 4
Me.CmdDep(intNum).Enabled = False
Next
End If
End Sub

Private Sub txtuser_name_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Me.txtuser_pass.SetFocus
End Sub

[踏平扶桑]

qingming81(晴明) 说的对
你看看这个窗体存在吗？

[desert185]

存在阿

[flc]

up