向煮江品茶老师求教

雪山麒麟　发表于：2011-09-27 16:01:24 　

复制

煮江品茶老师：在附件窗体中我要导入以前的资料，更改后另存为现有资料，请帮忙解决一下，谢谢

点击下载此附件

Top

dbaseIIIer 发表于：2011-09-27 18:46:20

煮江品茶老师, 用 TransferDatabase 可以吗?

Top

煮江品茶发表于：2011-09-27 21:52:50

着实没看懂哪个是历史哪个是现实。呵呵。

能阐述明白点吗？

Top

雪山麒麟发表于：2011-09-28 11:09:43

谢谢煮江品茶老师，在附件窗体中有说明。

点击下载此附件

Top

煮江品茶发表于：2011-09-28 13:47:07

Private Sub CmdInputHstry_Click()
Dim ssql As String
If IsNull(Me.导入月份.Value) = False And IsNull(Me.当前月份.Value) = False Then
    ssql = "delete * from 当月工资表"
    CurrentDb.Execute ssql
    ssql = "INSERT INTO 当月工资表 ( 日期, 薪资ID, 员工ID, 其他补贴, 其他代扣, 个税, [过节/高温/年终], 发放否, 备注 ) "
    ssql = ssql & "SELECT #" & DateSerial(Left(Me.当前月份.Value, 4), Right(Me.当前月份.Value, 2), 15) & "#,'"
    ssql = ssql & Me.当前月份.Value & "',"
    ssql = ssql & "员工ID,其他补贴,其他代扣,个税,[过节/高温/年终],发放否,备注 "
    ssql = ssql & "FROM 薪资记录表 "
    ssql = ssql & "WHERE 薪资ID='" & Me.导入月份.Value & "'"
    CurrentDb.Execute ssql
    Me.子窗体.Form.Requery
End If
End Sub

Top

煮江品茶发表于：2011-09-28 13:55:27

Private Sub CmdPay_Click()
Dim ssql As String
If IsNull(Me.导入月份.Value) = False And IsNull(Me.当前月份.Value) = False Then
    ssql = "delete * from 薪资记录表 where 薪资ID='" & Me.导入月份.Value & "'"
    CurrentDb.Execute ssql
    ssql = "INSERT INTO 薪资记录表 ( 日期, 薪资ID, 员工ID, 其他补贴, 其他代扣, 个税, [过节/高温/年终], 发放否, 备注 ) "
    ssql = ssql & "SELECT 日期,薪资ID,员工ID,其他补贴,其他代扣,个税,[过节/高温/年终],-1 as 已发,备注 "
    ssql = ssql & "FROM 当月工资表 "
    ssql = ssql & "WHERE 薪资ID='" & Me.当前月份.Value & "'"
    CurrentDb.Execute ssql
End If
End Sub

Top

雪山麒麟发表于：2011-09-28 16:06:50

谢谢煮江品茶老师，在点击导入工资历史时，无法操作，显示“Me.子窗体.Form.Requery”

Top

煮江品茶发表于：2011-09-28 16:13:45

就是个刷新嘛，看看子窗体的控件名称是不是不对。自己琢磨一下。

Top

雪山麒麟发表于：2011-09-28 17:18:12

更改过了啊，大哥，显示数据和方法成员未找到

Top

煮江品茶发表于：2011-09-28 19:28:48

那就把这句删除