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: