I want the caption for buttons in my Form to be pulled from a record in a table. Additionally, I want the name of the related form or report opened from the button to be pulled from the same record. I've been looking into this and it seems like using DAO is one option,I've already go the table set up, that was easy enough.
View RepliesHi There
I am wandering if anyone has a solution to this problem i has basically have 2 tables 1 called departments, with the fields: Dep No, Dep Name, then i have another table called Items, with the fields: Item No. Item Name, Item Price, Department.
What i want to do is create say 10 command buttons and create an array of them i know sort of how to do it in visual basic and all the 10 command buttons name is the same and an aray is created but i dont know how to do it in access i know that it doesnt let you create an array but i have seen it done somehow in a project that i came across.
so basically what i would want to have done is on the form load the 10 department buttons captions are loaded from the table departments and when a department button is clicked its is linked to items where i ahve created say 20 command buttons called items.
I dont know it it makes sense what i have written but any help on this matter would be very apreciated it pr if anyone knows of any examples as i have been stuck on it a while
Many Thanks
Hi all!
I have this command button whose caption switches from update record to save record with a msgbox verifying if the person really wants to take this action. On click the user is then allowed to update the record then in theory they would be able to hit the same button whose caption now reads save record, the msg box would appear with a yes or no answer required. The code I have is putting the msg box after the user clicks the update button.
Anyhelp and/or suggestions would be most appreciated!
Private Sub cmdOpen3_Click()
stDocName = "frmSearch"
If cmdOpen3.Caption = "&Update Record" Then
If IsNull(Me.FTMSubform.SourceObject) = False Then
Me.FTMSubform.SourceObject = "frmFTMInfo"
Me.FTMSubform.Form!txtFirstName.Enabled = True
Me.FTMSubform.Form!txtFirstName.Locked = False
Me.FTMSubform.Form!txtFirstName.BackStyle = 1
Me.cmdOpen3.Enabled = True
Me.cmdOpen3.Caption = "&Save Record"
Me.cmdOpen4.Enabled = False
Me.cmdOpen4.Caption = "&Update Record"
Else
Me.FTMSubform.Form!txtFirstName.Enabled = False
Me.FTMSubform.Form!txtFirstName.Locked = True
Me.FTMSubform.Form!txtFirstName.BackStyle = 0
Me.cmdOpen3.Enabled = False
Me.cmdOpen3.Caption = "&Save Record"
Me.cmdOpen4.Enabled = True
Me.cmdOpen4.Caption = "&Update Record"
End If
End If
If cmdOpen3.Caption = "&Save Record" Then
If IsNull(Me.FTMSubform.SourceObject) = False Then
Me.FTMSubform.SourceObject = "frmFTMInfo"
If MsgBox("Save update to this individual?", vbQuestion + vbYesNo, "Save Update?") = vbYes Then
DoCmd.Save
DoCmd.Close acForm, "frmFTM"
DoCmd.OpenForm stDocName
Else
MsgBox "Return to the FTMInfo Form!", vbInformation, "Save Function Aborted!"
End If
End If
End If
End Sub
~Van
I would like to display a continuous form with a command button whose caption is dynamic; such that the button text is determined by a field in the underlying recordset of the table.
So, if the field were forename : each button caption maybe : Brian, Peter, Sally etc.
Is this possible / and how can it be done?
Thank you.
G
Hi.
I regularly import tables with many fields from a third party application into Access 2000.
These fields all have captions as well as field names (obviously!) but I give them much more meaningful "friendly" names. But to do this I must first manually delete all the captions.
Is there an easier way?
Thanks in advance.
what I want to do is make a button to search range of columns in data table with data type Yes/no and display the results if the value is yes
View 9 Replies View RelatedHi All
I'm trying to set up a form to log my clinical placement, and the number of time i undertake a procedure.
I want to have a list of a few procedure(fields) and then button next to each one in a form which will increment the number by one
How do i go about doing so?
So, I have a form [frmmembers] which will enable the table [tblmembers] to be updated when a button is pressed. When the button is pressed, it will enable the fields "First Name", "Last Name", and "Password" to be updated.
At the moment, the data changes without pressing the button (as soon as it is entered into the text boxes on the form), which means that a password could be accidentally changed and could prevent the user being able to enter the system (which requires their personal MemberID and Password).
Is there a way of making it so that the data inserted into the text boxes on the form will only change the data in the table after the update button is pressed?
I'm looking for someone to help me with a solution to my problem of importing data into a data table.
What I'd like to do is have a command button on a form. When this button is clicked the records in a table are cleared out. Then I'd like for a browse window to come up to locate an Excel file. The user would select this file and the data would be imported into the data table that was just cleared.
Can this be done without too much trouble?
Thanks, Paul
Hey all,
I've never used Access much...i was able to use it OK at one point but ive forgotten all about it now.
I need to create something very simple for the reception at my work...
When a customer phones we want to be able to keep track of how they heard of us - so we want a very simple access/VB program.
The best way would be to have buttons of each of the magazines our company is listed in..then when someone phones and says "ahhh magazine 3" the receptionist can press a button and the button will add 1 to a field in a table?/report? next to that magazine.
Hope that makes sense :s
Any help would be very appreciated! - It seems very simple to do ?
Thanks
Acle
I've been able to navigate a lot on my own, but there is one issue I cannot seem to resolve. I have 1 form and 1 table. I have the form set up so that you can enter data, and then press a button, and it will "save" and refresh the form for a new entry. However, I want to be able to pull that entry back up in the form, and fill out additional fields later on.The form is set to data entry = yes because I do want the form to open up as brand new each time.
To sum up my question. I want a text box and search button at the top of my form. When you type an ID number in the text box, and then press search, I want access to populate my form with the information in my data table associated with that ID number.
If I type in the number 1234 and hit search. I want my form to autopopulate with the data in the row for ID number 1234 (all the fields I have already populated). So by searching 1234, the name, phone, background info, etc that is populated in the row will appear.
Hello,
I have an MS SQL 2000 backend, and I link the tables from here to an .mdb file. In that .mdb I would like to change the field captions of the tables in runtime, but when I try to assign value to a caption property which didn't have value before, I receive an error message which says, that this property could not be found. I tried out a lot of things, but up to now, without any success. Does anybody have any idea, what could be the solution?
I would be very grateful for any small tips!
Many thanks,
voiD
I want to change the Caption of a textfield depending upon a value selected from a combo box. i.e. If the user selects 'Scientist' from combo box, then the caption to enter name should be 'Scientist Name' if the user selects 'Engineer' then caption should be 'Engineer Name'. Can anyone guide me how this can be done?
Thanks
Hello all,
Does anyone know how I can make this code search the captions instead of the Control Sources: :confused:
Option Compare Database
Option Explicit
Dim mstrFormToSearch As String
Private Sub cmdFind_Click()
Static strLastFind As String
Dim ctlFocus As Access.Control
Dim strTemp As String
Dim I As Integer
If IsNull(Me.TxtFindWhat) Then Exit Sub
With Forms(mstrFormToSearch)
.SetFocus
Set ctlFocus = .ActiveControl
On Error Resume Next
strTemp = ctlFocus.ControlSource
If Err.Number <> 0 Then
For I = 0 To .Controls.Count - 1
Set ctlFocus = .Controls(I)
If ctlFocus.Enabled = True Then
Err.Clear
strTemp = ctlFocus.ControlSource
If Err.Number = 0 Then
Exit For
End If
End If
Next I
End If
ctlFocus.SetFocus
On Error GoTo 0
End With
If Me.TxtFindWhat = strLastFind Then
DoCmd.FindNext
Else
DoCmd.FindRecord _
Me.TxtFindWhat.Value, _
acAnywhere, _
False, _
acSearchAll, _
False, _
acAll, _
True
strLastFind = Me.TxtFindWhat
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
mstrFormToSearch = Screen.ActiveForm.Name
If Len(mstrFormToSearch) = 0 Then
MsgBox "There's no active form to search!"
DoCmd.Close acForm, Me.Name, acSaveNo
End If
End Sub
Thanks :)
I used the code below to check the empty fields in the form and populate it in a message
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctr As Control
Dim strMsg As String
'Loop through every control on the form
For Each ctr In Me.Controls
[code].....
I want the message to show the captions of controls instead of its names
I have a system that has a growing number of forms. On each form they are a variable number of labels/text boxes/command buttons etc. The captions for all of these are in english.
The database is to be deployed to a non english speaking country so I want to be able to dynamically change all the captions on the forms (not n the data) to the local language.I know how to do this. For each control on load I decide the local language and change the caption accordingly ie (and code is for illustration only and not necessarily syntactically correct)
if locallanguage = 1
me.control1.caption = "save in english"
me.control2.caption = "heading1 in english"
else
me.control1.caption = "save in local language"
me.control2.caption = "heading1 in local language"
end if
What I want to know is there and easy way to do this. Rather than wade through each control on each form and find out what the name is can I generate anything that will give me all the control names and captions for each form (and report)?
So I'm using the same field in a query, price. But I need it listed twice in the table it creates, one as cogs_mfn, and the other as cogs_afn. The problem is that since the field that the data is coming from is exactly the same, the caption remains consistent, whether one or the other. I've tried to create separate expressions, but that doesn't work either.
View 13 Replies View RelatedWon't the captions reflect on Queries as Query Column Headers? If it is, how to make it reflect...
View 3 Replies View RelatedI' ve created an index (catalog) for the books in the database using a tab control and the code:
Private Sub TabCtl21_Change()
If (193 + Me!TabCtl21.Value) < 210 Then
Me.RecordSource = "SELECT * FROM tblBookTrackDetails" _
& " WHERE [tblBookTrackDetails.Details] Like '" & Chr(193 + Me!TabCtl21.Value) & "*'" _
& " ORDER BY " & Me.SortingTypeList & " ASC;"
End If
'for english characters chr=97
If (193 + Me!TabCtl21.Value) >= 210 Then
Me.RecordSource = "SELECT * FROM tblBookTrackDetails" _
& " WHERE [tblBookTrackDetails.Details] Like '" & Chr(194 + Me!TabCtl21.Value) & "*'" _
& " ORDER BY " & Me.SortingTypeList & " ASC;"
End If
If Me.Recordset.EOF Then
MsgBox ("There are no books for this letter!")
End If
End Sub
It works ok but please take a look at the attached image to see what is happening after clicking two or three times the index letters.
After the tab's caption is "erased", if I pass over the mouse is being corrected.
I tried the repaint and refresh commands but neither worked.
Can anyone help?
I have a form (Form1) and a in it, I have 2 subforms datasheet (Subform1 and Subform2). I have ID, First Name, Last Name in each as headers.
I need to:
1) Find the subforms
2) Loop through the subforms and get all the labels
3) Change the captions
The reason for this is because I need to have the forms bilingual. I do have a function that will translate the caption (called TranslateThisWord). I just cant figure out a way to loop through the subforms and find all the labels.
My database has a front end that uses forms to allow the user to navigate within it, each year we create a new database which is based on the previous year's database but with all the variable information removed.
Within the database each form has a caption that starts with '2014-15' then goes on to say the form name.
Most of my forms also have a yellow background, (last year it was pink).
Both these areas were set up so that each year our users can distinguish between our databases, as they may have last years and this years open at the same time.
What I would like if possible is to know whether I can get a user to change both these things from within a form. So something along the lines of a button that when clicked would check all form captions and if within the caption it finds 2014-15 then change it to 2015-16 (or whatever the user specifies) but keep the rest of the caption.
I would also want the same type of thing to happen with the colour so again within the background of the forms, if you find colour X then replace it with colour Y.
If this can't be done within a front end form, then could it be done behind the scenes, and if so how would I go about doing it?
I have the database and the Data page, but how do I add a search button to the data page to search the database by a certain field? Any help would be appreciated. I would be happy to send you the files if you give me a contact.
Thanks
http://www.heathrowminicab.com/xxx.JPGI have a blank form.. with 2 controls..Textbox - name is 'text'Button - name is 'button'my user will type in something like this..pictures/db1/db1.jpgall i want is that when they press the button.. the url 'http://www.mysite.com/"is added to the data in the textbox and the url is opened.. this of course will allow my user to test whether the image they are referring to exists..can this be done.. if so what code do i need to add to my controls.
View 1 Replies View RelatedHiya guys! This time around I need to know how to use a command button to input the date/time into a text field by the event OnClick.
I would have thought by inputting: VisitDate.Value=Date() it would have worked but no such joy.
Sorry if I sound really stupid! ;)
Thanks!
Jay
Hi there!
I am pretty new at this so please bear with me :confused: (like that isn't said a thousand times!). I am creating a small database to track task data (manpower tracking basically) where I have the following fields:
Customer
Functional Group
Task Status
Task Name
Task Description
WO #
Funded Hours
Notes
I would like to create a combo box where the user can select the customer (I have 124 records in total, 15 unique customer names) and all tasks relating to that customer are filtered directly in the Form by clicking a single button to do the filter.
I don't want to create dozens of tables and forms to flip through and such (users need it as simple as possible). I have created queries but the only way I have successfully filtered each customer is via buttons...but 15 buttons to filter each individual customer is a pain in the butt, so any help would be REALLY appreciated.
Please let me know if I haven't explained this clearly enough! :)
Thanks!
Good Morning to all:
I have created a form using Access 2000. Within this form are names address, Student ID'S, etc. In addition to this form, there are queries in there as well.
I wish to place a command button on this form so that when pressed, it imports data from another file(Excel). I assume the Excel file field names that I wish to import must match the table in Access 2000.
Is there a way to do this? I am completely lost.
Many, many thanks,
Dion