Search results

Thank you for all the input you guys provided. The alternative I did is to create a vba module: i open the table 1 recordset (with Rnd) and put the result in a variables with the result I pass Field1 as parameter to the recordset of Table2 to check if Field1 already exist if not then I add...

I'm sorry to confused you guys, anyway the difference between table1 and table2, is the table 2 has a field name called ID which I use for the Rnd() function other than that everything are the same. The statement below is successful in picking a random record, but it doesn't validate if the...

I admit that I'm a novice in creating a query but I appreciate if somebody can share their knowledge to achieve my intension. Here is my scenario, I want to insert a random record from Table1 which is not exist in Table2. I found a query that insert a record from Table1 and does not exist in...

found it! Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long Function GetCapslock() As...

currently i use this codes, just to check the status of the Insert Key in a module: Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) _ As Integer and call it: GetKeyState(vbKeyInsert) what i want is how to turn it on in a specific object.

is there a way in vba we can check the status of Insert key if it is on or off when the form is loaded? i want for the insert key to be on, where the key strokes write over the existing entry. i do set the key preview to "yes" in the form, and it works fine, but i wanted it only on a...

hi, this is the code i used in refreshing my link. Function RefreshTableLinks() As String On Error GoTo ErrHandle Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strCon As String Dim strBackEnd As String Dim strMsg As String Dim intErrorCount As Integer Set db = CurrentDb For Each tdf In...

and there's no icon showing in the taskbar.

i did a search and found this thread here, and the only problem i encounter is the min max buttons are gone though it was set up as both enable, can somebody enlightened me and give me a hint how to show those buttons. thanks in advance...

as usual thanks for the tip boss: here is the code. Function CloseExcel(fileName As String) As Integer Dim excelObj As Object On Error GoTo ErrorTrap Set excelObj = GetObject(fileName) excelObj.Close Set excelObj = Nothing ExitTrap: CloseExcel = Err.Number Exit...

what the code is doing it opening again that excel file (which is already opened) and close it. is this something about the new excel.application that i declared?

I have a workbook which is already opened and I want to close it. the code that i have is (see below) is not working. Anyone can share some inputs? Function CloseExcel(sExcelFile As String) As Integer Dim XLapp As New Excel.Application Dim ObjXL As Excel.Workbook On Error GoTo ErrorTrap...

ok, the reason why im doing some test in 2013, i was informed that there's an on going upgrade with our os together with ms. anyways i will find another machine with 2013 version and i'll update you about the result. thanks for the effort boss.

yes, then i guess the problem is my 2013 version.

is this working in you access 2013? i opened it and try click an item and nothing happened. therefore if this db is working with your 2013 version then the problem is my access 2013 version.

i did what you've said, and nothing happened to me, here is the new db. i guess it has something to do with the access and window version.

i delete the lvSearch control, rename the module to OLDlvSeacrh_ItemClick, create new control and rename it as lvSearch and same time create a new module of ItemClick. unfortunately nothing happen.

sorry for the miscom it was 2013, and it is same db that i was uploaded before, everything is working fine except the itemclick.

yup, i'm working with my laptop which has ms office 2013 and running under windows 8, this is the only way i can test if this module is running in higher version, because the place i'm working have 2003 version.

2. In the VBA editor, at the top right hand side where you select the function/sub, make sure the ItemClick is bold. yes it was in bold. see image attached.