Please start any new threads on our new site at https://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

 All Forums
 General SQL Server Forums
 New to SQL Server Programming
 automating data entry into TM.PTA.00 or any other

Author  Topic 

racinghart
Starting Member

49 Posts

Posted - 2007-04-10 : 18:42:32
question... i heard a bit about Control Macro Generator but have not found much reading material on it. here at our company we have employees fill out a weekely timesheet and typically have clerks enter the information into the TM.PTA.00 (Project Timesheet with Rate/Amount Entry) and submit it that way. say we have this timesheet in a nice little excel sheet with columns that match the input boxes on the form, how can we get it to automatically input the data instead of having a person sit there and type it all in?

racinghart
Starting Member

49 Posts

Posted - 2007-04-10 : 18:46:08
currently reading: http://www.systematicsol.com/importing_data.htm
Go to Top of Page

simmark333
Starting Member

5 Posts

Posted - 2007-04-10 : 18:53:19
If your familiar with visual basic, you can create a simulator in MSACCESS. Here is a sample script:


Option Compare Database
Option Explicit

Private Sub Detail_Click()

End Sub

Private Sub Form_Timer()

If IsNull([Loan Number]) Then
AppActivate "fhlmc Updates"
Forms!dbf_Main.Visible = False
MsgBox "All updates have been completed.", vbInformation, "Status"
DoCmd.Close acForm, Me.Name
Else
AppActivate "AS400CF - A"
SendKeys [Account], True
SendKeys "{ENTER}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys [CODE], True
SendKeys "{ENTER}", True
SendKeys "{ENTER}", True
'SendKeys "{DEL 2}"
'SendKeys [CILING], True
'SendKeys "{F10}", True
'SendKeys "{DEL 30}"

DoCmd.GoToRecord acDataForm, "dbf_Main", acNext
End If

End Sub

Private Sub Stop_Click()

Me.TimerInterval = 0

End Sub

Private Sub Upload_Click()

Me.TimerInterval = 600

End Sub
Private Sub Close_Click()
On Error GoTo Err_Close_Click

DoCmd.Close

Exit_Close_Click:
Exit Sub

Err_Close_Click:
MsgBox Err.Description
Resume Exit_Close_Click

End Sub

Private Sub Verification_Click()
On Error GoTo Verification_Err

DoCmd.SetWarnings False
DoCmd.OpenQuery "dbq_Verification"
DoCmd.Close acForm, Me.Name
DoCmd.OpenReport "Verification", acViewPreview
DoCmd.SetWarnings True

Verification_Exit:
Exit Sub

Verification_Err:
MsgBox Error$
Resume Verification_Exit

End Sub
Go to Top of Page

racinghart
Starting Member

49 Posts

Posted - 2007-04-10 : 19:50:20
i remember sendkeys! lol thanks for the reminder... it was never 100% effiecient for me but it does have its use. i was hoping of a more sure-safe method where if the program lags when tabbing over certain fields it wont mistakengly "sendkeys" into the wrong data field. hope that makes sense. i will definetly consider it but if there is a safer way to input data from an excel sheet automatically that would be better. basically we are going to have a form in excel with all the necessary columns to be filled out and approved by someone before automatically dumping into the correct solomon screen;

employee name, job#, subaccount, regular hours, ot hours, etc. (trying to get rid of the clerical process)
Go to Top of Page
   

- Advertisement -