Modules & VBA :: How To Increment Field On A Continuous Form

Mar 31, 2014

I have a form that is being used for sample submission. Ideally, the user will be able to put in some information (3 or 4 fields) and the number of samples that they're taking, click the arrow and it will insert that number of samples into a temporary table that is then displayed on a continuous form. From there, they can edit samples, add more samples, and generate a report to submit to the genotyping group. Once their sample list is final, I will append it to the master list and clear the temporary table.

I've got the basics working. A looped "INSERT INTO" using a counter inserts the relevant information. I cannot, however, seem to get the numbering field to work.

Ultimately, the numbers need to look something like MySample-001, where MySample would be one of the other fields. Incrementing the 001 is the problem. In another situation in the database, I can successfully use DMax+1 to assign a single number on a single form, but I can't get it to increment the sample numbers.

Ideally, I'd like it to happen when the form is generated. However, I'm also open to having them assigned when the sample list is finalized, before inserting into master table.

View Replies


ADVERTISEMENT

Modules & VBA :: Change Formatting Of Unbound Text Field On Continuous Form

Apr 16, 2015

I have a continuous form with a text field that says "Select". There are two other fields, one of which is Brand. When the Brand Combo box has nothing in it I want the text box to appear (instructing the user to select a Brand) But once the user selects a Brand and goes to the next records, I would like the "Select" in only that record to become not visible. I tried conditional formatting but can't apply that to an unbound control ( or at least it is grayed out when I select the text box) and any other possible solutions I have found changes all of the selects - not only the one in the changed record.

View 7 Replies View Related

Modules & VBA :: Auto Increment Field Based On TWO Other Fields

Jun 5, 2013

I'm making up a stock system for the independent jewellers I work for. Each stock pattern needs an individual code which can quickly be recognised read as tickets are often taken off the jewellery and can be mixed up easily. To this end we categorise based on two criteria:

1. Material
2. Type

At the moment these are as follows:

MATERIAL

IDMaterial
0Base and Miscellaneous
1Silver
2Gold
3Palladium
4Platinum
5Pewter

TYPE

IDStock Type
0Previously Owned
1Ring
2Pendant
3Chain
4Necklace
5Bracelet or Bangle
6Earrings
7Brooch
8Gents
9Gift, Clock or Miscellaneous

So if I had three pairs of silver earrings I want the first to be No. 161, the next 162, the next 163. If I had three Gold Bracelets I'd want them No. 251, 252, 253 and so on...Material and type are both selected form separate Comboboxes on a form.

View 2 Replies View Related

Modules & VBA :: Increment Variable Length Alpha Numeric Field By 1

Jul 8, 2013

I have a database that is used for tracking changes to numerous courses. Part of this database create a unique tracking number for each course problem developed. Currently I have the form do a comparison using the highest most number to compare against the current number assigned and prevent the form from saving until the number is incremented and not a duplicate, it would be a lot easier if I could just have it increment plus 1. I have seen various answers but they all seem to depend on the alpha portion of the field being a set value, in my instance it is variable in length. The only part that is fixed is the last four characters to the right which are the numeric portion I would like to increment. For example the field can equal:

QACP-M-PIQ-6059
QACP-M-PREF-6002

how to extract just the numeric portion, increment it by one and save?

View 2 Replies View Related

Auto Increment Field In A Sub Form

Aug 7, 2006

Basically, we have different camera modules on which we perform a given test a number of times, giving rise to 2 tables, tblCamera which will store basic info about the module and tblTest which will hold info for each test perfomed.

The camera module has a unique ID (CameraID, the Primary key in tblCamera and foreign key in tblTest (one to many)). The primary key in tblTest will be a compound key of CameraID and an incremental number for each test performed on a given camera (TestNo). The data for the tests will need to be entered through a form, so I can build a form based on tblCamera with a subform based on tblTest (which would be in datasheet view)... What I am looking for is a way to increment TestNo in the subform, starting at 1. I have tried using

=Nz(DMax("TestNo","tblTest","CameraID = '" & [Forms]![frmCamera]![txtCameraID] & "'"),0) + 1

in the Default Value box for this field, which works to a point but has the curious effect of adding each number twice (as the default value for a new record seems to be added as soon as you start typing in the current 'last row')

I just can't seem to get my head around this one, any suggestions would be much appreciated...

Thanks,
Bogzla

View 2 Replies View Related

Modules & VBA :: Go To Last Record In Continuous Form And Highlight It?

Sep 8, 2014

I have a log of items I currently inventory. When you click on an item, it opens another form with a sub-form that lists the history of changes for said item in a continuous form display.

What I want to be able to do is when that form is opened, the sub-form will highlight the last entry (either bold it, or change the background).

View 8 Replies View Related

Modules & VBA :: Continuous Form - Loop Through Recordset

Jul 22, 2014

In my database, I have a continuous form with a Name, a Date and a Yes/No field.

When the form opens, I want to look at the date of every record on the form and show a message box if it is before the current day.

The code I have is this;

Private Sub Form_Load()
With Me.RecordsetClone
While Not .EOF
If Me.Date1 < Date Then
MsgBox "" & Me.Person & ""
End If
If Not .EOF Then .MoveNext
Wend
End With
End Sub

However, it loops just the first record the amount of times there is of records (i.e., it will only show the first person's name in the message box, and will show 3 times if there are 3 records).

View 7 Replies View Related

Modules & VBA :: Sort Continuous Form On Two Fields

Jul 20, 2015

I am using the following by Allen Browne to sort one field. But now I need to sort on two fields.

Code:
Function SortForm(frm As Form, ByVal sOrderBy As String) As Boolean
On Error GoTo Err_SortForm 'Provided by Allen Browne
'Purpose: Set a form's OrderBy to the string. Reverse if already set.
'Return: True if success.
'Usage: Command button above a column in a continuous form:
' Call SortForm(Me, "MyField")

[Code] ....

View 10 Replies View Related

Modules & VBA :: Form Header Not Showing In Continuous View

Feb 20, 2015

I have a mainform. When I click on a command button, it opens up another form. That form is designed to be as a continuous form, yet it does not display the header. The header is present in the form view. I have attached the screenprints to show the header in my form and the corresponding properties window.

View 4 Replies View Related

Modules & VBA :: Continuous Form Combobox Search As You Type

Jul 28, 2014

What i want is to have a combo box on a continuous form that as you type it filters the Query it is based on using a Like *. and drops downs so the user can see the updated list after each key press? Is this possible?

View 4 Replies View Related

Modules & VBA :: Change Multiple Records On Continuous Form

Mar 5, 2014

I have a form (Form4) which has a a list box (list11) that allows multi select. When I select on the records I need I hit a button that opens a form up with the selected records. This form is a continuous form. I have an unbound combo box (Combo55). Its values come from a specific table. I want to hit a button and change the field "Assigned" on all the records showing to the value that I selected in Combo55.

The problem is it only changes the value of the currently selected record. How Do I get it to change the value of all records that are showing?

I am only testing this idea with default field names. Before I implement the database I have to get a working model and present it. So I am building this and naming at the moment isnt important.

View 4 Replies View Related

Modules & VBA :: Enabling And Disabling One Control On Continuous Form

Mar 4, 2014

Basically I have a continuous form with each record having a textbox and a checkbox. There can only be one checkbox ticked per record but what I want to do is to stop the other checkboxes from being ticked if one is already ticked.

View 2 Replies View Related

Modules & VBA :: Continuous Form - Display Alternating Colors

Jul 23, 2013

Access 2007: I have a continuous form which, when it opens, uses code to display alternating colors... I need to set a default 'alternate' colour, and I want to find the code to use for Light Grey - on the design of a form, the color to use on a control would be #903C39 but when I try to set that as my default colour in the code it doesn't like it! I can use vbRed, vbBlue, vbYellow, etc, and that works perfectly but I can't find a vbLightGrey

View 6 Replies View Related

Modules & VBA :: Requery Continuous Form And Maintain Bookmark

Jul 11, 2013

I have this code:

Public Sub cmdRequery_Click()
Dim vFlag As String
vFlag = Me![EncounterNbr]
Me.Requery

With Me.Recordset
.FindFirst "[EncounterNbr] = '" & vFlag & "'"
Me.Bookmark = .Bookmark
End With

The user starts on a continous form and opens a record, makes some changes, and then when that form closes it triggers this public sub.

The code does what I want it to do in that it returns to the last encounter number that was selected (now on the continous form again) and it requeries and shows anything that was changed about the record on the form that was closed before requery.......

But it always resorts and moves it and I want it to stay in the same spot unless the user sorts. Is there any way to make that happen?

View 9 Replies View Related

Auto Poulate A Field On A Continuous Form

Dec 7, 2006

I have two forms (made from two tables)

The tables are tblplans and tblplancontrol. tblplancontrol is the many end and
the foreign key is 'PlanID'

The first form that you open is the plans form. Here you complete data about the plan, i.e planID (which is unique as its the name of the plan), author and date. From here you then open the plancontrol form which is a continous form. You can select which people you want to recieve a copy of the form - the link back is the plan id.

What i want to do is make sure that each time you start a new record that the planid is automatically populated from the still open plans form.

I assume this is done through code but cant quite get the right one. It must be done before i finish each record otherwsie i will get an error.

Any help is much appreciated.

Thanks

Kevin

View 2 Replies View Related

Forms :: Sum Unbound Field In Continuous Form?

Dec 17, 2014

I have a continuous form with a number of unbound fields and bound fields. However, I would like to sum an unbound fields (Text28). Text28 is an unbound calculated field based on another calculated unbound field (Text22). I would like to sum Text28 in the footer or somewhere in the form.

Here are the codes for my field:

Code:
Text28 = iff([Text22>0], [Text22], [Text20] --- This works
Text29 =sum(iff([Text22>0], [Text22], [Text20]) --- this is not working

and it did not work.

View 3 Replies View Related

Forms :: Getting Total Of A Field In Continuous Form

May 4, 2015

I have three tables (Group, Customer, Savings).

Every member of a group do savings once every 15 days and each group has maximum 20 members, group has one to many relationship with customer and customer having one to many relationship with Savings (there is no direct relationship between group and savings) i have created a continuous form for saving entry. in this form i select a group which is unbound and based on that group, its members are listed in the combo box named CusID, after selecting customer other saving details are entered.

What I want, is that for every group i want a total saving for all that specific group's members selected in the mentioned unbound combo box in that continuous form, this total should be based on the group selected in the mentioned unbound combo box, in case i select another group the total should also be based on newly selected group.

View 12 Replies View Related

Modules & VBA :: Display Continuous Form / Report Showing Image

Mar 12, 2014

I have some images stored in a SQL Table which is linked into Access. These images have to be stored in the database as I also reference them on other platforms (Android, Web etc).

In my Access programme I need to display a continuous form / report showing each image. Now, good old Access cannot display multiple images stored in the database on a continuous form. It can only do this if it is referencing the path to the image.

When the user views the form they will only see about 12 images at a time. I thought of a workaround which is to write the database images back to file to a local temp directory when the user loads the form. The user would be happy to wait for say 10 to 15 seconds whilst the form loads.

However, I cannot find an efficient algorithm to write the images back to a file. The one I am using is a BinarytoString algorithm by motobit which is fine for very small images, but anything over 100kb (which is still pretty small) it goes sooooo slow.

How to quickly write an image stored as a long binary in an Access DB back to a file? Or do I need to crack open my Visual Studio and write some C# DLL to use instead...?

View 1 Replies View Related

Modules & VBA :: Sort Ascending And Descending And Filter Continuous Form

Mar 6, 2015

I'm trying to sort and filter a continuous form. Sort ascending and filters works perfectly fine. But my descending button doesn't work. I basically have a combo box which contains a field list. Then two buttons (asc. and desc.), then a text box for filter, a button to filter, and another button to reset filter. Here's my code:

Code:
Private Sub cmdAscending_Click()
If IsNull(Me.cboField) Then
MsgBox "Please choose a field.", vbOKOnly, "No field to sort."
Else
Me.OrderBy = Me.cboField
Me.OrderByOn = True

[Code] ....

View 8 Replies View Related

Modules & VBA :: Populate Word Fields From Access Continuous Form

Jun 3, 2015

I have a form that I have exported certain fields into a word doc (it is up and running just fine). I created bookmarks in word and put some VBA into my access form, so when I click on 'Create word report' it pops up and automatically populates the record I am on. Here is the tough question,

How to make this work with a continuous form? My main form has several subforms, one being a continuous form. The main form shows one bridge at a time. The sub continuous form shows information for all of the bridges spans (could be anywhere from 1 to 9).

View 4 Replies View Related

Modules & VBA :: Continuous Form With Data From Table - Populating Listbox From Recordset

Nov 28, 2013

I'm trying to populate a listbox from a recordset. I will explain what I'm trying to achieve.

I have a (continuous) form with some data from a table. On the form header I have a listbox, showing all (distinct) customers from that form.

The user is able to do some filtering. That all works great. But I want to populate the listbox with ONLY the customers on the form AFTER filtering.

One way I thought might me the solution was using RecordClone. But I'm stuck there. It must be something simple for an expert. I'm not entirely a newbie, at least not to VBA. Is there an easy way to refer the listbox' recordset to the actual recordset on the form?

View 1 Replies View Related

Modules & VBA :: Way Of Looping Through Continuous Form Recordset And Running Update On Each Line?

Jun 11, 2014

i have set up an update query. is there a way of looping through a continuous form record set and running the update on each line?

View 2 Replies View Related

Modules & VBA :: Increment Date By Six?

Jan 24, 2014

I have the following code that updates the end date to be the same as the start date after the user tabs out of the start date. Instead of making it the same date, I want it to be six days later. How do I add that?

For example, user enters 11/10/13 in the start date. I want the end date to automatically update to 11/16/2013.

Code:
Private Sub StartDate_AfterUpdate()
Dim datDate As Date
If Nz(Me!StartDate.Value, #1/1/1900#) = #1/1/1900# Then
'The user removed the START data as criterion, so remove the END date.
Me!EndDate.Value = Null

[Code] ....

View 2 Replies View Related

Unbound Text Field In Continuous Form: Update One Record, They All Get The Same Value

Feb 20, 2006

Hi,

I want to show some text from another table based on the values of the bound fields in each record of a continuous form. I thought it would be easy, but I can't get it to work.

I step through the records in the bound recordset and use some of the values to query another table. Then I use the value from the query to populate the unbound text field.

It works fine for each record. But every time the unbound field is updated, all the records in the continuous form are updated.

I'm stuck on this one. It's probably something simple to fix - if you know what to do!

Do you have any suggestions?

Thanks!
-Daniel

View 10 Replies View Related

Forms :: Continuous Form - Calculated Total Field In Footer?

Apr 6, 2013

I have a form that is displayed continuously and there is a text field in it (Text12).In the footer of this form I would like to add a textbox that is the sum of all Text12's on the form.I tried =Sum([Text12]) in the textboxes control source but that is just displaying an error when I run the form.

View 2 Replies View Related

Increment Field Value

Feb 2, 2012

i have 2 field "CLIENT ID" and "CLIENT CODE". when i post a new record, i want the "CLIENT ID" and "CLIENT CODE" to merge to give me 1 field "CLIENT". the CLIENT CODE should be prompted for eg. THO or BLT and added to the CLIENT ID which will compose of 001 or 002. The CLIENT ID should also increment when each new CLIENT record is posted.

The example should make things clear.

CLIENT ID CLIENT CODE CLIENT
001 THO THO001
002 THO THO002
001 BLT BLT001

it should look up the last CLIENT value and then for the new record just continue on the previous entry.

View 9 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved