怎么把输入的数据固定在最后一行？

snowmoonzzb

原帖由 cuxun 于 2007-9-28 19:13 发表
把库传上来帮你看看.

DoCmd.GoToControl "雇员ID"
    End If
End Sub
Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me![工时卡片子窗体].Form![项目ID].Requery
    Me![工时卡片开支子窗体].Form![项目ID].Requery
Exit_Form_Activate:
    Exit Sub
Err_Form_Activate:
    MsgBox Err.Description
    Resume Exit_Form_Activate
End Sub
Private Sub 雇员ID_NotInList(NewData As String, Response As Integer)
    MsgBox "双击此字段将增加一个入口到此列表。"
    Response = acDataErrContinue
End Sub
Private Sub 雇员ID_DblClick(Cancel As Integer)
On Error GoTo Err_雇员ID_DblClick
    Dim lngEmployeeID As Long
    If IsNull(Me![雇员ID]) Then
        Me![雇员ID].Text = ""
    Else
        lngEmployeeID = Me![雇员ID]
        Me![雇员ID] = Null
    End If
    DoCmd.OpenForm "雇员", , , , , acDialog, "GotoNew"
    Me![雇员ID].Requery
    If lngEmployeeID <> 0 Then Me![雇员ID] = lngEmployeeID
Exit_雇员ID_DblClick:
    Exit Sub
Err_雇员ID_DblClick:
    MsgBox Err.Description
    Resume Exit_雇员ID_DblClick
End Sub
Private Sub 工时卡片子窗体_Enter()
    If IsNull(Me![雇员ID]) Then
        MsgBox "请在输入工时或开支之前输入雇员。"
        DoCmd.GoToControl "雇员ID"
    End If
End Sub
Private Sub 工时卡片开支子窗体_Enter()
    If IsNull(Me![雇员ID]) Then
        MsgBox "请在输入工时或开支之前输入雇员。"
        DoCmd.GoToControl "雇员ID"
    End If
End Sub
Private Sub 预览时间卡片_Click()
    On Error GoTo 预览时间卡片_Err
    If IsNull(Me![时间卡片ID]) Then
        MsgBox "请在预览工时卡报表之前输入工时卡片信息。"
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        DoCmd.OpenReport "时间表", acPreview, , "[时间卡片ID]=" & [时间卡片ID]
    End If
预览时间卡片_Exit:
    Exit Sub
预览时间卡片_Err:
    MsgBox Err.Description
    Resume 预览时间卡片_Exit

End Sub
Me.工时卡片.SetFocus
DoCmd.GoToRecord , , acLast
End Sub
这个就是了

snowmoonzzb

原帖由 cuxun 于 2007-9-29 08:56 发表
从你现在的语句上来看，肯定是错的：

End Sub
....这里少了函数或过程名定义呀。
Me.工时卡片.SetFocus
DoCmd.GoToRecord , , acLast
End Sub

呵呵那要怎么改？能不能把改好的发上来我复制过去？谢谢了哦辛苦辛苦

snowmoonzzb

原帖由 cuxun 于 2007-9-29 12:32 发表
做了个例子,其实在论坛里就有的,你多看看论坛吧.

谢谢哦，就是不知道怎么在论坛上搜索～～还有就是我用你的那些代码都不是我不是我要的效果，不是人物名字跑到最后一个就是其他的不是我要的录入结果跑到最后一个，我把我的放上来，你帮我改一下了哦，辛苦辛苦谢谢哦，国庆节快乐

snowmoonzzb

晕，太大了不能上传，郁闷了

小宜

学习学习学习学习学习

yjs_ks

路过，学习学习，好好学习，天天向上。