Recent content by netscamp

Does VBA allow the following... IF x or y and z then Dog = true end IF x or y , either one can be true, and z must be true... I can't find the syntax in HELP. This is used in Excel, but I can't use cell formulas for this task. Thanks Robert

Now that you mention it, yes!. The data was transferred to the table. I'm wondering how I can stop that until a user has filled all subforms and sends all data to tables at once. Thanks for the repsonse, Robert

I have a form with several subforms. To jump between subforms, I have an event triggered from the last text box of the subform telling it to set focus on the next subform. It works for tabbing around the form. The next step I took was to enter test dat in a subform, when I did so, then tabbed...

Call me Mr. Duh,..... Here's what is now working with no recordset involved at all... Dim currec As Long currec = Me.Form.CurrentRecord DoCmd.GoToRecord acDataForm, "trans_table", acGoTo, currec and it works on all 482 records. So, I guess I didn't need to do recordsets at all...

I have a subform and a main form. The sub is a datasheet view of the main. I have coded so that when I click the record selector(not the navigation button) in the subform, the main form sets itself to the same record number. There are 842 records. When I click the subform it works fine, until...

I have a main form - I want to put a button on the main to jump ahead 10 records in a subform which is in datasheet view, the main form is called "trans_table" the sub is "main3" I'm trying this code I got from the Access HELP files. DoCmd.GoToRecord acForm...

I have a text box in a form, whose contents are calculated in a VBA module. The same form has a button to print a report. I want the button to fire some code that feeds a text box in the report with a value in a text box in the form. How to refer to the textboxes in the code ? Thanks a million!

I changed my strategy a bit, and I'm not looping down through the rows, just finding the first blank that needs a calculation. That part is working, but the update, based on your previous suggestion is not showing up, no error, but not updating for some reason. With recset recset.MoveFirst...

the math I'm doing - if the cell I'm in were called x,y - then the formula would be x,y = (x-4,y-1 + x-4,y) - x-3,y - x-2,y It's very spreadsheety. and I would want to go down a column filling in each cell with the values predicated on the prevous execution of the formula until I hit RowCount

I used GetRows to fill an array with the contents of a table, now, using vba, I'm doing some math, and want to put the results into the last column of the table, I know how to do it in an array, or in Excel VBA, but how in an Access table? What is the name of the intersection of a row and a...

I have a form with 2 subforms. each subform has a table. In relationships, as far as I can tell, the relationships of the 2 "sub" tables to the main are the same. when I open the form, subform 1's behavior is: it shows the PO number which is shown on the main form, and if there are...

Ok, first, I would like to say, I've just spent $90 on an Access VBA book, and an SQL book! and I've been poring over them, and referring to them like a demon with a fever..., but I can't get this right. It's working somewhat, but I know the query should return 5 items, but it is returning 25...

I'm getting a missing operator error from ACCESS when I run this. It's in the select statement. Private Sub Command13_Click() Dim dbs As DAO.Database Dim qdf As DAO.Querydef Dim strSQL As String Dim lkval As String Dim jones As String Dim james As String james = Format(Now, "mdyyhss")...

What if you want to pick specific fields from specific tables ? Ireally appreciate your time, and I'm going to contibute to the support of this service.... Thanks, RjW

Ok, I've got the code below working, but I need to add some data from other tables. The select statement can have multiple from clauses? I can't find it in ACCESS help, and the book I ordered from Amazon is in the mail ! Private Sub Command13_Click() Dim dbs As DAO.Database Dim qdf As...