附件加不上去，实在抱歉
我可否把代码贴上去
代码如下：
Private Sub denglu_Click()
On Error GoTo Err_denglu_Click
'ｶｨﾒ袮ﾖｷ鋗ﾍｱ菽ｿ
Dim STemp As String
'ｶｨﾒ衞ｾﾝｼｯｱ菽ｿ
Dim Rs As ADODB.Recordset
'ﾎｪｴｪﾊｾﾝｱ悅ｰｲ鰉ｯﾓ・茖ｱﾗﾖｷ﨣菽ｿｸｳﾖｵ
STemp = "Select * From daily "
'ｴｪ｡ｰﾏ鍗ｿﾐﾅﾏ｢｡ｱﾊｾﾝｱ
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If IsNull(Me![toujituseisaku1]) = True Then
MsgBox "ﾇ・｡ﾔｰｵｱﾈﾕﾗｵ1｡ｱ｣ｬﾋ・ｻｿﾉﾒﾔﾎｪｿﾕ｣｡", vbOKOnly, "ｵｱﾈﾕﾗｵ1"
Me![toujituseisaku1].SetFocus
ElseIf IsNull(Me![nyuuryokudate]) = True Then
MsgBox "ﾇ・菠・ｰｵﾇﾂｼﾊｱｼ茖ｱ｣ｬﾋ・ｻｿﾉﾒﾔﾎｪｿﾕ｣｡", vbOKOnly, "ｵﾇﾂｼﾊｱｼ・
Me![nyuuryokudate].SetFocus
ElseIf MsgBox("ﾇ・ｷﾈﾏﾊﾇｷﾇﾂｼ", vbYesNo) = vbYes Then
If IsNull(Me![kojincheck]) = True Then
Me![kojincheck] = 0
End If
If IsNull(Me![subleadercheck]) = True Then
Me![subleadercheck] = 0
End If
If IsNull(Me![leadercheck]) = True Then
Me![leadercheck] = 0
End If
If IsNull(Me![Schedulercheck]) = True Then
Me![Schedulercheck] = 0
End If
If IsNull(Me![kannryoucheck]) = True Then
Me![kannryoucheck] = 0
End If
STemp = "INSERT INTO daily "
STemp = STemp & "( procedureID1,procedureID2,procedureID3,procedureID4,procedureID5,kojincheck,subleadercheck,leadercheck,Schedulercheck,"
STemp = STemp & " ennkiriyuu,taiouhouhou,shuqkinntime,taikinntime,kannseido,kannryoucheck,nyuuryokudate)"
STemp = STemp & " VALUES (" & "'" & Me![toujituseisaku1] & "','" & Me![toujituseisaku2] & "','" & Me![toujituseisaku3] & "','" & Me![toujituseisaku4] & "',"
STemp = STemp & "'" & Me![toujituseisaku5] & "','" & Me![kojincheck] & "','" & Me![subleadercheck] & "',"
STemp = STemp & "'" & Me![leadercheck] & "','" & Me![Schedulercheck] & "',"
STemp = STemp & "'" & Me![ennkiriyuu] & "','" & Me![taiouhouhou] & "',"
STemp = STemp & "'" & Me![shuqkinntime] & "','" & Me![taikinntime] & "',"
STemp = STemp & "'" & Me![kannseido] & "','" & Me![kannryoucheck] & "',"
STemp = STemp & "'" & Me![nyuuryokudate] & "')"
MsgBox STemp
DoCmd.RunSQL STemp
DoCmd.OpenForm "SD-CG0002"
Forms![SD-CG0002].Requery
End If
Exit_denglu_Click:
Exit Sub
Err_denglu_Click:
MsgBox Err.Description
Resume Exit_denglu_Click
End Sub
