Search results

Formating the date with format() worked fine for me, and I'm all set now. Thank you!

Does this go in a VBA function that I call from the QBE screen? Sorry now sure how to implement this. I understand the code but not sure where you're advising that it goes.

Ok making progress and this works, thanks! Ah ok, so Datevalue is running against values that are null which is generating the error(?). But I do not want to display the time. Should I make another calculated field based on this one? Or is there some modification I can make to this...

Hi, I'm using this expression in QBE to build a calculated column in a query to query a table on a date column. Some of the transactions have no dates, and I suspect that's why I'm getting some dates, but I'm also getting "#Error." How can I modify this query so I don't get errors in the...

I open a form and it says "(New)" in the primary key field. I need to write code such that the end result is that the primary key field will change to the value of the new record, rather than the form saying "(New)" and I need to do this as early after the form opens as possible. What...

You are kind for taking the time to include this, but company policy prevents me from opening such things.

I suspect that my problem results from not knowing how to manipulate, via VBA, what is seen in the text box portion of the combo box. The openargs aspect is really more of a distraction at this point, as hardcording the values and ignoring the openargs code entirely still has the same effect.

Let's say there are 10 items in the combo box's row source. And one item has a bound column value of 1. What code would I use to set the combo box value to the bound column value of 1, resulting in the value of column 2 being displayed in the combo box?

Yes, the value is there. I want to look up one of the primary ids assigned from the row source and hard code that as the combo box value, removing the openargs aspect from the troubleshooting process completely. Would that merely be: Me.CboCompany.Value = 1 Me.CboCompany.Requery

So how do I programmatically control what I want the combo box to display if not setting its value property? Even doing writing this code as a test has no effect on the combo box. I am trying to troubleshoot by removing OpenArgs from the equation entirely. What code could I write to hardcode...

OpenArgs is just a way to send a value from one form to another. It doesn't have any explicit use case. In my case, I'm using OpenArgs to send multiple values.

Private Sub Form_Load() Dim strOpenArgs As String strOpenArgs = Me.OpenArgs Dim argVars() As String argVars = Split(Me.OpenArgs, ",") Me.CboPerson.Value = CInt(argVars(0)) End Sub Hi, the code above simply does nothing. No errors, no change in the desired form. I've confirmed...

Kind of inclined to agree here. Any UI setup that doesn't have all the of checkboxes available to be clicked just seems too painful and repetitive (particularly combo boxes). Is your idea to have all the foods listed next to the check boxes on a single form, and to use VBA to tie all the info...

Pat, that solution means a lot o Thanks Pat, from a usability standpoint that seems extremely painful. To be sure I have this right, your solution involves clicking a combo box in a subform, scrolling through 500 options in that combobox, selecting an item, and then repeating that process...

Hi, I have 500 foods in a table, and the goal is for each family member to be able to go down the list and check the foods they like using a form. So essentially I need a form with the 500 foods listed, a checkbox next to each, and to be able to indicate somewhere on the form, who the person...

My understanding was that once you set the timer interval to 1000ms that all code operations on the form take place at that speed. But based on what you're suggesting, the demonstrated behavior is what's expected: it's counting down from 50 to 1 in less than one second?

The following code, I'd expected to take around 50 seconds, but it's executing at CPU speed and finishing instantly. What am I doing wrong? Thanks. Sub Form_Timer() Me.TimerInterval = 1000 Dim Y As Integer Dim Z As Integer Y = 50 Z = 0 Do While Y > Z...

Just says you're about to paste 20 records and then I see 20 blanks. If I paste one cell it works fine :(

Hi there, I am very simply trying to copy a number of cells from excel to access and whenever I try to do this the cells are added in access but they come up blank. I'm using the special paste append option in access but it's still not working. any idea why all the data pasted from excel would...

Hi again, Maj. The other table is 9 options and it's creating problems in my split form and in my subforms, so I just want to get rid of the number representation of those 9 options and just simplify with the actual values. I know I could do an update query to change those ID numbers to the...