Replies

Thanks a million. I just found out that our Access install was Customized, so some features does not included. They will reinstall MS Office now. Good Day and thanks again

THANKS it does work!!!

THANKS it does work!!!

I would love to but impossible task.
There is Excel file that gets modified and I am pulling datat from this file and it is Text.
Data is very abnormal as user gets to it easily, so I have to do it as simple as possible. all fields are text.
Thanks

I would love to but impossible task.
There is Excel file that gets modified and I am pulling datat from this file and it is Text.
Data is very abnormal as user gets to it easily, so I have to do it as simple as possible. all fields are text.
Thanks

Can you please scren shot last 2 fields? Those are the problemed 2. I will have to show it to ppl to make them reinstall my Access.

THANKS so much, HansV

Can you please scren shot last 2 fields? Those are the problemed 2. I will have to show it to ppl to make them reinstall my Access.

THANKS so much, HansV

Hi!
Trying to send mdb. Open form and insert 37988 in search. Click Search button
Thanks a lot

Hi!
Trying to send mdb. Open form and insert 37988 in search. Click Search button
Thanks a lot

I’ve tried and it crashed.
Should I be yelling to reinstall my Access?
As far as I know there is a lady next to me who CAN import Excel into Acess. Does this mean it is corrupted on my PC?
I’ve tried another one of my team-mate and it crashed.

I’ve tried and it crashed.
Should I be yelling to reinstall my Access?
As far as I know there is a lady next to me who CAN import Excel into Acess. Does this mean it is corrupted on my PC?
I’ve tried another one of my team-mate and it crashed.

Hi
I edited my post. The error I am getting at line DoCmd.RunSQL mSQL is “Datatype mismatch in criteria expression”
So my code can not insert those fields Pay Date, Amount Charged and manual Check.
All of those are mapped exactly as in master-data-charges. Text, Number, Number

Without those fields I were able to insert.
THANKS

Hi
I edited my post. The error I am getting at line DoCmd.RunSQL mSQL is “Datatype mismatch in criteria expression”
So my code can not insert those fields Pay Date, Amount Charged and manual Check.
All of those are mapped exactly as in master-data-charges. Text, Number, Number

Without those fields I were able to insert.
THANKS

Edited by HansV to present data in table form – see post 164109

Hi!

Here is another problem I am dealing with.
I am running code
Private Sub cmd_Search_Click()

Dim mSQL As String, ListSQL As String, StrRS As String, txtStr As String

Set dbR = CurrentDb()
DoCmd.SetWarnings False

dbR.Execute “Delete from Search_Result”
mSQL = “INSERT INTO Search_Result” _
& “([Pay date],[EC Member], [Supervisor], [Last Name],[First Name], [Business Unit],” _
& “[Cost Center], [Amount Charged], [Manual Check Date])” _
& “SELECT [master-data-charges].[Pay date],[master-data-charges].[EC Member],” _
& “[master-data-charges].[Supervisor], [master-data-charges].[Last Name],” _
& “[master-data-charges].[First Name], [master-data-charges].[Business Unit],” _
& “[master-data-charges].[Cost Center], [master-data-charges].[Amount Charged],” _
& “[master-data-charges].[Manual Check Date]” _
& “FROM [master-data-charges] WHERE” _
& “[master-data-charges].[Pay date]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[EC Member]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Supervisor]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Last Name] = ([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[First Name]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Business Unit]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Cost Center]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Amount Charged]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Manual Check Date] = ([Forms]![frm_Find_User]![txt_Search]);”
DoCmd.RunSQL mSQL

‘———————————————————
Set rsResp = dbR.OpenRecordset(“Search_Result”, dbOpenTable)
On Error Resume Next
txtStr = rsResp![Last Name]
If txtStr = “” Then
MsgBox “Search Produced No Results! Please, try again!”
End If
‘———————————————————

List_Result.RowSource = “Select [EC Member], [Supervisor], [Last Name],[First Name], [Business Unit], [Cost Center] from Search_Result”

End Sub

When I run this code my table gets populated like this

Pay date	EC Member	Supervisor	Last Name	First Name	Bunit	Cost Center	Amount Charged	Manual Check Date

Edited by HansV to present data in table form – see post 164109

Hi!

Here is another problem I am dealing with.
I am running code
Private Sub cmd_Search_Click()

Dim mSQL As String, ListSQL As String, StrRS As String, txtStr As String

Set dbR = CurrentDb()
DoCmd.SetWarnings False

dbR.Execute “Delete from Search_Result”
mSQL = “INSERT INTO Search_Result” _
& “([Pay date],[EC Member], [Supervisor], [Last Name],[First Name], [Business Unit],” _
& “[Cost Center], [Amount Charged], [Manual Check Date])” _
& “SELECT [master-data-charges].[Pay date],[master-data-charges].[EC Member],” _
& “[master-data-charges].[Supervisor], [master-data-charges].[Last Name],” _
& “[master-data-charges].[First Name], [master-data-charges].[Business Unit],” _
& “[master-data-charges].[Cost Center], [master-data-charges].[Amount Charged],” _
& “[master-data-charges].[Manual Check Date]” _
& “FROM [master-data-charges] WHERE” _
& “[master-data-charges].[Pay date]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[EC Member]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Supervisor]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Last Name] = ([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[First Name]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Business Unit]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Cost Center]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Amount Charged]=([Forms]![frm_Find_User]![txt_Search])” _
& “or [master-data-charges].[Manual Check Date] = ([Forms]![frm_Find_User]![txt_Search]);”
DoCmd.RunSQL mSQL

‘———————————————————
Set rsResp = dbR.OpenRecordset(“Search_Result”, dbOpenTable)
On Error Resume Next
txtStr = rsResp![Last Name]
If txtStr = “” Then
MsgBox “Search Produced No Results! Please, try again!”
End If
‘———————————————————

List_Result.RowSource = “Select [EC Member], [Supervisor], [Last Name],[First Name], [Business Unit], [Cost Center] from Search_Result”

End Sub

When I run this code my table gets populated like this

Pay date	EC Member	Supervisor	Last Name	First Name	Bunit	Cost Center	Amount Charged	Manual Check Date