Search results

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.

thanks vbainet, i did quote everything and put only a message box but still my itemclick doesn't firing up, and also sorry for miscom i'm using 2013 access version.

hi vbainet, me again boss. i try to run the db in 2010 version and it seems the itemclick event doesn't firing, i read this in microsoft community...

yup i quote it, and it work the same. whew! that's a nice piece of work. thanks. :)