On Load Property VB Code To Limit Records In Main File.
May 3, 2005
I have an Access application for which I would like to provide potential customers with a fully functional application but with a limit to the number of records that can be stored in the main file.
I would like to have a message displayed to say "The maximum number of records have been reached for this application."
Could you help with the VB code required to do this? The module will become active at the "On Open" property when the main Form is opened.
Thank you.
Regards,
Clive Shakespeare
View Replies
ADVERTISEMENT
May 12, 2006
I am attempting to right program for work and here is my problem. Every Unit in the Army has a Unit Identification Code and my boss wants two records of each UIC stored. But when you add a new record for that UIC he wants the oldest one purged, so he only wants 2 records on file in order to maintain some sort of volume problems. Any ideas would be greatly appreciated
SPC Joshua Ramsay
HHC 2/104th AVN FTIG
View 10 Replies
View Related
Dec 2, 2014
I got 2 forms that are relatively similar. One of them works fine but the other does not. It still lets me enter data into the field even though Limit To List property is turned on. I believe this is a combo box and I gave this field a value list for the user to choose from.
View 2 Replies
View Related
Jun 12, 2013
I have a file that I need to import on a regular basis. There are two different issues with the import:
1. the first digit in the file indicates if it is a record I want to keep. In this case a 1 indicates a repair record and an 8 indicates it is just information such as email, contact info etc.
2. I have a field in the file that may change the import specifications
For example:
If the record is a Non wheel repair then column 167 is a 50 character description
If the record is Wheel repair then column 167 is a 28 character description and the remaining 22 characters are broken down into 10 different fields
So I need to do the following
1. Read the first character in the line and determine if it is a number 1 and if not discard it
2. Read a field in column 109 that is two characters long and if it says it is a wheel repair the import will break column 167 -216 down to the appropriate 11 fields and if it is a non wheel repair it will import columns 167 - 216 as one big description field.
I have used the import specifications with Access but it seems this will have to be done in code in a module or something and I am not very good with VB. (only know the basics)
One other issue is I have dates in the file that are 130225 and 1302 (so full date and then Year/Month) if i take out the / date separator in the import spec the full date works but the Year/Month doesn't.
View 9 Replies
View Related
Aug 6, 2013
I'm developing in Access 2007 and created a runtime version.
When the user clicks the X to close the runtime application, the main form's Load event fires. Any clues as to why this might be? Some of the code is based on other forms that do close, so of course errors start flying. Note, this is only in the runtime version; the accdb file works just fine.
My current workaround is to put the offending code into the forms On Current event, which I'm able to do in this context.
Is it wrong to think that a forms On_Load event shouldn't be firing when the application is closing?
View 1 Replies
View Related
Apr 10, 2006
hi
i have a form with 12 checkbox and 1 combobox
i use the following code
Option Compare Database
Private Sub Form_Current()
If Me.Image1 = -1 Then
Me.Parent.Image1.Visible = True
Me.Image1_text.FontBold = True
Else
Me.Parent.Image1.Visible = False
Me.Image1_text.FontBold = False
End If
If Me.Image2 = -1 Then
Me.Parent.Image2.Visible = True
Me.Image2_text.FontBold = True
Else
Me.Parent.Image2.Visible = False
Me.Image2_text.FontBold = False
End If
If Me.Image3 = -1 Then
Me.Parent.Image3.Visible = True
Me.Image3_text.FontBold = True
Else
Me.Parent.Image3.Visible = False
Me.Image3_text.FontBold = False
End If
If Me.Image4 = -1 Then
Me.Parent.Image4.Visible = True
Me.Image4_text.FontBold = True
Else
Me.Parent.Image4.Visible = False
Me.Image4_text.FontBold = False
End If
If Me.Image5 = -1 Then
Me.Parent.Image5.Visible = True
Me.Image5_text.FontBold = True
Else
Me.Parent.Image5.Visible = False
Me.Image5_text.FontBold = False
End If
If Me.Image6 = -1 Then
Me.Parent.Image6.Visible = True
Me.Image6_text.FontBold = True
Else
Me.Parent.Image6.Visible = False
Me.Image6_text.FontBold = False
End If
If Me.Image7 = -1 Then
Me.Parent.Image7.Visible = True
Me.Image7_text.FontBold = True
Else
Me.Parent.Image7.Visible = False
Me.Image7_text.FontBold = False
End If
If Me.Image8 = -1 Then
Me.Parent.Image8.Visible = True
Me.Image8_text.FontBold = True
Else
Me.Parent.Image8.Visible = False
Me.Image8_text.FontBold = False
End If
If Me.Image9 = -1 Then
Me.Parent.Image9.Visible = True
Me.Image9_text.FontBold = True
Else
Me.Parent.Image9.Visible = False
Me.Image9_text.FontBold = False
End If
If Me.Image10 = -1 Then
Me.Parent.Image10.Visible = True
Me.Image10_text.FontBold = True
Else
Me.Parent.Image10.Visible = False
Me.Image10_text.FontBold = False
End If
If Me.Image11 = -1 Then
Me.Parent.Image11.Visible = True
Me.Image11_text.FontBold = True
Else
Me.Parent.Image11.Visible = False
Me.Image11_text.FontBold = False
End If
If Me.ComboBox1 = "No" Then
Me.Parent.ComboBox1.Visible = False
Me.ComboBox1_text.FontBold = False
Else
Me.Parent.ComboBox1.Visible = True
Me.ComboBox1_text.FontBold = True
End If
If Me.Image12 = -1 Then
Me.Parent.Image12.Visible = True
Me.Image12_text.FontBold = True
Else
Me.Parent.Image12.Visible = False
Me.Image12_text.FontBold = False
End If
End Sub
Private Sub Image1_AfterUpdate()
If Me.Image1 = -1 Then
Me.Parent.Image1.Visible = True
Me.Image1_text.FontBold = True
Else
Me.Parent.Image1.Visible = False
Me.Image1_text.FontBold = False
End If
End Sub
Private Sub Image2_AfterUpdate()
If Me.Image2 = -1 Then
Me.Parent.Image2.Visible = True
Me.Image2_text.FontBold = True
Else
Me.Parent.Image2.Visible = False
Me.Image2_text.FontBold = False
End If
End Sub
Private Sub Image3_AfterUpdate()
If Me.Image3 = -1 Then
Me.Parent.Image3.Visible = True
Me.Image3_text.FontBold = True
Else
Me.Parent.Image3.Visible = False
Me.Image3_text.FontBold = False
End If
End Sub
Private Sub Image4_AfterUpdate()
If Me.Image4 = -1 Then
Me.Parent.Image4.Visible = True
Me.Image4_text.FontBold = True
Else
Me.Parent.Image4.Visible = False
Me.Image4_text.FontBold = False
End If
End Sub
Private Sub Image5_AfterUpdate()
If Me.Image5 = -1 Then
Me.Parent.Image5.Visible = True
Me.Image5_text.FontBold = True
Else
Me.Parent.Image5.Visible = False
Me.Image5_text.FontBold = False
End If
End Sub
Private Sub Image12_AfterUpdate()
If Me.Image12 = -1 Then
Me.Parent.Image12.Visible = True
Me.Image12_text.FontBold = True
Else
Me.Parent.Image12.Visible = False
Me.Image12_text.FontBold = False
End If
End Sub
Private Sub Image6_AfterUpdate()
If Me.Image6 = -1 Then
Me.Parent.Image6.Visible = True
Me.Image6_text.FontBold = True
Else
Me.Parent.Image6.Visible = False
Me.Image6_text.FontBold = False
End If
End Sub
Private Sub Image7_AfterUpdate()
If Me.Image7 = -1 Then
Me.Parent.Image7.Visible = True
Me.Image7_text.FontBold = True
Else
Me.Parent.Image7.Visible = False
Me.Image7_text.FontBold = False
End If
End Sub
Private Sub ComboBox1_AfterUpdate()
If Me.ComboBox1 = "No" Then
Me.Parent.ComboBox1.Visible = False
Me.ComboBox1_text.FontBold = False
Else
Me.Parent.ComboBox1.Visible = True
Me.ComboBox1_text.FontBold = True
End If
End Sub
Private Sub Image8_AfterUpdate()
If Me.Image8 = -1 Then
Me.Parent.Image8.Visible = True
Me.Image8_text.FontBold = True
Else
Me.Parent.Image8.Visible = False
Me.Image8_text.FontBold = False
End If
End Sub
Private Sub Image9_AfterUpdate()
If Me.Image9 = -1 Then
Me.Parent.Image9.Visible = True
Me.Image9_text.FontBold = True
Else
Me.Parent.Image9.Visible = False
Me.Image9_text.FontBold = False
End If
End Sub
Private Sub Image10_AfterUpdate()
If Me.Image10 = -1 Then
Me.Parent.Image10.Visible = True
Me.Image10_text.FontBold = True
Else
Me.Parent.Image10.Visible = False
Me.Image10_text.FontBold = False
End If
End Sub
Private Sub Image11_AfterUpdate()
If Me.Image11 = -1 Then
Me.Parent.Image11.Visible = True
Me.Image11_text.FontBold = True
Else
Me.Parent.Image11.Visible = False
Me.Image11_text.FontBold = False
End If
End Sub
how to optimize my code to run faster???
the images are 1 KB size , 16x16 pixels and .bmp
All of them are insert inside db.
i think images are too small to slow down my code.
Can i write the code in a different way?
View 1 Replies
View Related
Mar 14, 2006
Hi Guys
How do I load a form from another form? I would prefer to use VB (in fact, its probably the only way you can do it!). I have tried varius commands that would have worked in VB - but dont work in Access, like...
Code:Unload MeLoad Form_tblClientsForm_tblClients.show
The above code does not work AT ALL. It gets an error at the Unload Me line, an error at the Load Form_tblClients line, and the action 'Show' does not even exist under Form_tblClients, so that wont work either!
I am aware of Switchborads, but i want to know how to load a form, and make it pop up in a new window from within another form.
View 3 Replies
View Related
Jul 9, 2014
I have 12,000 cvs that i need to get into An access database so i can start to extract email info etc. They are stored in one folder All Cvs under each of their names edc.txt (i have converted them to .txt) i want to create one table with two fields name (taken from the cv filename and contents (taken fromthe contents of the .txt file). I am using Access 2007.
View 2 Replies
View Related
Jul 21, 2015
Access 2007, Sql Server 2008 R2. Problem with refresh.
Form 1, (Single Form) Parent Form, contains Property Year Detail data. PK = PropYrDetID. This is a SINGLE FORM
Form 2, (Single Form) Child form, contains land square footage data from multiple records. PK = SPYDID FK = PropYrDetID. This is a SINGLE FORM.
The code below executes every time Form 1 opens, activates or whatever. The reason is that data in Form 2 changes frequently. Thus every time Form 1 opens the end user will see the latest data.
"Form 1" receives a series of values that it obtains from VBA code that runs when it opens or activates.
"Form 2" has the data being summarized in Form 1.
All of the code and queries below run fine and return the correct values from Form 2 to Form 1. My problem is Refresh on Form 1.
I've tried the code in the On Current, On Activate, On Load of Form 1. Mostly the data shows up in Form 1. Other times parts of the data are left out. I have to hit F5 or close and reopen the form, and then the data appears. When I don't see data on Form 1, I check the underlying table and the correct data exists. I don't know how to achieve a 100% refresh success. I have tried me.refresh and different Events all over the place.
All of the code below runs when Form 1 opens. Queries are fine, Equations are fine, Tests run fine. It's the results showing up that I am having the problem with.
I don't think the issue is with the code but with the Refresh. Here it is for your review.
The term "Equations" is the customers. There are 5 equations. Some have a series of tests after the Equation to determine the result.
Code:
Private Sub Form_Activate()
Dim rs As Variant
Dim varAOProp As Variant
Dim varAOIni As Variant
Dim varAOCert As Variant
Dim varBORIni As Variant
Dim varBORFinal As Variant
[Code] ....
View 5 Replies
View Related
Mar 28, 2006
Hi.
Me.Filter = "Country = 'USA'"
Me.FilterOn = True
can i use a variable instead of the text 'USA'
give me an example if any pls.
thanks for help.
View 2 Replies
View Related
Dec 2, 2006
This is getting into some stratospheric territory for me.
I am trying to change the visibility property of a label and corresponding text box, based on the contents of a different combo box. cboHow is a combo box that uses a value list as its row source, since the content of the list won't change. There are three fields that I need when the content of cboHow = "FIS". Otherwise I don't need them and I don't want to see them. My code is below:
Private Sub txtFISDepartmentNumber_BeforeUpdate(Cancel As Integer)
If cboHow <> "FIS" Then
lblFISDepartmentNumber.Visible = False
txtFISDepartmentNumber.Visible = False
Else: lblFISDepartmentNumber.Visible = True
txtFISDepartmentNumber.Visible = True
End Sub
At the moment there is no error code, but the label and text field don't respond by becoming visible/invisible when the contents of cboHow changes. Do I put this code with the txtFISDepartmentNumber or in cboHow? and do I use BeforeUpdate or AfterUpdate? Should I have a separate If..Then..Else for the label and the text box?
I have been playing around with this for several hours now and seem to be going in circles.
I am using A2K
View 7 Replies
View Related
Jun 5, 2014
Im using ms access 2010 and this program compatible with previously ms access.the error show is type mismatch (error 13) on
Code:
Set rbs = CurrentDb.OpenRecordset("SELECT MSysObjects.Name" _
& " FROM MSysObjects WHERE MSysObjects.Type= 1 And MSysObjects.Flags=0" _
& " and MSysObjects.Name='" & n_tb & "'")
View 2 Replies
View Related
Sep 15, 2005
My db is secured using Access security but now find myself needing to code a little security work around if possible.
I have a form that has a subform. On the subform is a field named "Comments". The subform security only lets a particular group write to the fields it contains (including "Comments"). I have a new user that I need to allow to write to "Comments" but not to any of the other fields on the subform. I could make another subform with "Comments" only field and redo my security so that the original group can write to both subforms and new user can only write to "Comments" subform but I think it might be easier to code in that the new user is only allowed to write to field "Comments" in the existing subform. Every user logs into the db so I can get the user ID.
Is it possible to do this?
View 2 Replies
View Related
Aug 23, 2006
Hi,
I am using a macro to export a table to an excel spreadsheet. It seems like I have to write the absolute path in the macro's file name property, otherwise it doesn't work. The problem with that is that I have to change the path name whenever I move the folder to another location.
Any help will be very much appreciated.
B
View 3 Replies
View Related
Aug 2, 2006
Hi All
I hope someone in this forum can help me with this databse issue:
I want to load text file to .mdb MS access file.
I understand that BULK INSERT is possible only when using SQL Server database - not MS Access like I do.
Can someone advice what can be done ?
Can you think of an alternate solution, which is also effective (not inserting each record one by one) ?
BTW - I'm using ADO on visual studio 6 in order to access the database (not ADO.NET).
Thanks
View 1 Replies
View Related
Nov 8, 2013
In the default property of a subform control I want to use a control of the main form without using names of forms, but using me and parent.
I used in default property of cboVATDetail: =Me.Parent!cboVAT, but it is not accepted. My aim is to use cboVAT of parent as default in cboVATDetail of child.
View 3 Replies
View Related
Jun 19, 2015
I have a split database with a frontend that I semi-regularly update (when one of my users finds a bug I never would have thought for looking for). On my menu screen i have a text box that says: "Last Updated: ##/##/####".
At the moment I manually update the date every time I update the frontend.
Is there a way I can use the DateModifed property of the .mdb file for the frontend as the date in my textbox using VBA?
View 5 Replies
View Related
Aug 8, 2013
I have a field in my database (I'm using Access 2007) configured as Attachment under the DataType column on DesignView.
I was expecting to find an option to limit the attachment size (max 250Kb) and more importantly to limit the filetype you can actually upload. In my specific case only jpg should be attached.
View 3 Replies
View Related
Jul 18, 2006
I need to be able to remove the Link Child field and the Link Master field from a subform when I click on a command button on the main form. Is there code that will let me remove these links so that I can add a new record to the subform?
View 1 Replies
View Related
Jun 3, 2014
I have got a received form that has 2 subforms.
The main form is based on Received Table
The 1st subform is based on a query that shows the order detail and how many units are outstanding.
The 2nd subform is based on a receivedDetail table. so will have a list of items with the original order qty, and the qty still outstanding.
When the main form loads i want it to create new records into the 2nd subform based on the 1st Subform.
so the 1st and 2nd subform run parallel with each other and appear to be as one to the user.
both subforms are continuous style.
Code:
Private Sub Form_Load()
With Me.Form.RecordsetClone
Do While Not .EOF
.AddNew
!UserFK = Forms!frmReceive!cbxUsername
[Code] ....
View 3 Replies
View Related
Sep 1, 2005
i want to run a querie to criate new tables every 200 records, how can this be done?
View 5 Replies
View Related
Dec 19, 2005
I'm trying to limit the number of records entered into a database, and return an "error". Not an error exactly but it should pop up and say "the limit of 25 members allowed to sign up for this class has been met". I figured out how to go in access and create a validation rule so that "ID < 26", and it has successfully blocked records #26 and up from being saved, but it shows on the form that it was submitted. How do I get it to "know" when to say "the limit has been met"??
Thanks in advance!!
View 3 Replies
View Related
May 29, 2014
In my simple database (attached), I need to mass duplicate Tasks and their Notes.
I have three tables: tbTasks (PK: Task_ID), tbNotes (PK: Note_ID), jtbTaskNotes (FKs: Task_ID and Note_ID). jtbTaskNotes is my many-to-many junction table that ties Tasks to Notes.
The main form (fmTasks), bound to tbTasks, has a subform (sbfm_TaskNotes) that displays notes associated with each Task. On themain form,you select which Tasks you want duplicated via a checkbox. The append query (quCopyTasks) will duplicate all tasks that have the checkbox checked. All good there. However, I can't figure out how to also duplicate each task's Notes.
I found Allen Browne's solution [URL] ....., but that only handles duplication of one record at a time, whereas I need to duplicate many records at a time (sometimes 10+ records). How do I go about duplicating multiple Tasks and their associated Notes?
Before you ask "why are you duplicating records?": There are times when tasks need to be re-accomplished and therefore need to have a new record. It's easier to duplicate records than it is to hand-jam everything again.
View 5 Replies
View Related
Nov 23, 2005
Hi Guys,
i have a problem i hope some one can help me with.
i have a form with a sub form on it, and i want to disable everything until the user clicks a 'edit' button to allow the information to be changed.
i am just testing it at the moment, so i set one text box's enabled property to false. then i added a button with an on click event with the following code:
Me!userid.Enabled = True
when i start the form, the userid box is disabled and when i click on the edit button, it enables it fine.
however, when i change to the next record, the userid box remains enabled. i cant find where to put the code to set it back to false everytime i change the record.
i should also let you know i am a beginner, so please be gentle!
View 2 Replies
View Related
Mar 10, 2008
Is there a limit on the number of records you can have in an access database? I've got one with 8500 records and it's been a PITA! I have a webpage on our intranet so users can go and enter their information to it, and they get a nasty error whenever they try to enter information. I'm trying to figure out why and i was just wondering... i know it's not the webpage because when i connect it to my test database it works fine? so i dunno :confused:
any help is greatly appreciated!!
View 4 Replies
View Related
Mar 29, 2005
Hi All.
Is it possible to limit the number of records in a form, to a number given in a linked form.
For Example.
tblA
StreetName
No_Of_Houses
tblB
Name
Number
I would only want the number of records in tblB to be the same as No_Of_Houses in tblA.
I have seen previous threads where you can limit it to a number, but do not know where to go from there.
Can anyone help?
Thanks.
Frank.
View 1 Replies
View Related
