Code:
select empno from mytable where empname=[enter employee name];
select empno from mytable where empname=[enter employee name];
Public Function Concat(strCOMPANY As String, _
strESI As String) As String
Static strLastCOMPANY As String
Static strESI
Private Sub CboMS_AfterUpdate()
With worksheets = ("C:\todays\Small Pricing.xls")
If Me.CboMS.ListIndex <> -1 Then
'MsgBox ("[" & Me.CboMonth & "]")
MsgBox ("[" & .range("D16").Value
Private Sub Upload_Click()
Dim MyFile
MyFile = Dir("Z:\Todays\*.xls")
Do While MyFile <> ""
On Error GoTo Err_Upload_Click
DoCmd.TransferSpreadsheet
Private Sub Upload_Click() On Error GoTo Err_Upload_Click DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Usage", "C:\Todays\*.xls"
Leave a comment: