Search results

The runcommand acCmdVisualBasicEditor only works in XP and higher. I'm stuck with access2000. But the runcommand acCmdDebugWindow works perfect.

Thank you Peter

Hi, Is it possible to open the debug window from code. In my startup options, i blocked the ctrl + g to open the debug window. Now i want a command button with code to be able to open the debug window after i type in the correct password. What code do i have to use? Frank

Thanks, I was looking for something like that. Works like a charm. Frank

I'm one of those other people:) Thanks Frank

Is your field txtCIATAsiaNo numeric? If so, change the format of txtCIATAsiaNo to "00000" It's even better to change the format of the field in your table. If you create a report or form, then the format will be taken over. Frank

stLinkCriteria = "[Date_Required] =" & chr(35) & format(D,"mm/dd/yy") & chr(35)

Try this: Me!txtCIATAsiaNo.DefaultValue = format(Nz(DMax("[CIATinAsiaCode]", "Assets"), 0) + 1,"00000") Frank

Screen.ActiveControl.Name

Try this: stLinkCriteria3 = "[StartDate] = #" & testdate & "# And [Unit] = " & Chr(34) & Me!CboUnit & Chr(34) Frank

You cannot format an inputbox. What you can do, is create a new form with just one textbox. You then must do what jkl0 says: set the Input mask to "Password" The result from the textbox you put in a variable. Frank

Thanks ejstefl, That was exactly what i was looking for. I didn't use the loop, but make the folowing changes rslogin.AddNew rslogin.Fields(User) = fOSUserName() rslogin.Fields(Computer) = fOSMachineName() rslogin.Fields(InOut) = remark rslogin.update I couldn't use "type", because it's a...

Thanks for trying. Anybody else got an idea? Frank

The msgbox gives me the value of the variable (as it should) and not the name of the variable I only want to know how to adress a recordsetfield, if the fieldname is in a variable. Frank

I think that the incoming arguments are already seen als variables. The problem is that access doesn't look at those variables as variables, because they are behind the "!". I had the same problem with code for a form: myform.updatefield had to be changed to myform.Controls(updatefield) I'm...

Hello, I'm trying to create a general module, that i can use in different databases. Sub FLogin(tablename, user, computer, InOut, type) Dim rslogin As DAO.Recordset Set rslogin = CurrentDb.OpenRecordset(tablename, dbOpenDynaset) rslogin.AddNew rslogin!user = fOSUserName() rslogin!computer =...

if it really is in a query, create an extra field: selectdate: format (fieldname,"mm/dd") then in criteria you put format(date,"mm/dd")

dim rs as recordset dim testsql as string testsql = "SELECT Product FROM ...." set rs = currentdb.openrecordset(testsql) if rs.eof then ... else ... end if

have you tried to set the value of controlsource of txtJobDesc to '= JobName.Column(2)' This should work without VBA

"Column" starts counting at 0 So if you want the value from the third column, you need JobName.Column(2) If you just want to make it visible, why don't you set the controlsource of txtJobDesc = JobName.Column(2)