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
My question is two fold. First, I have an Access Report that lists the training due dates of my people. What I need to do is have the cells highlight when they are due/comming due. My guess was with conditional formatting. I have tried the Excel version of that without success.
My second is for the same report. I need to find out percentage of how many people are still current for this training.
Thank you in advance,
Military guy in need,
Sarge_Rob
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
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 :)
Hi 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.
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.
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
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)?
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 7 Replies View RelatedSo 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?
Need to confirm whether the Default formatting option in the Conditional formatting Dialog won't work in datasheet view of a form. Please note that all conditional criteria are working fine but not the Default Formatting option - only in the Datasheet view (In Single Form view the default formatting is working fine)
View 11 Replies View RelatedReally simple one for all you folks out there, but I've just been struggling for 20minutes and thats it I've decided to to seek proffesional advice. Though its been said I need it in other areas of my life too (so my ex says but..), any way I digress.
I put a tab control on a form all I want to do is format the title of each individual Tab name, i.e. font size etc, type. Had a look at the properties but nothing there seems to register.
Is it possible?
Hey do any of you guys know if its possible to change the colour of the tabs or set them as transparent in a form plz??? I know you can set the background as transparent, but i dnt know if you can do that to the actual tabs.
Thanks guys
Zaf
Ok, don't know what I should title this problem as, but maybe you guys can help. The data stored on my table is formatted as Currency, however, when I Queue up the data, I also multiply it by a factor (exchange rate). Which turns the data into just a regular number. When I display this data on my form, I reformat it into Currencies again. However, when I click on the field, it shows the number in its raw format. How can I fix this so that when the user click on the field, they won't see the raw number but just regular Currency format? Much thanks in advance.
View 9 Replies View RelatedHi,
I am creating a database of private equity funds. I want to have a currency field for an input entitled fund size. However, I need to be able to display whether the size of the fund is in dollars or euros. How can customize a number/currency field to allow me to input the correct currency symbol?
Thanks
Hi
I have a database with multiple tables all linked together in various ways. I would like a master reset button that will delete every record in every table as well as resetting the auto number(s) back down to zero again. Can this be done and if so, how?
Thanks in advance.
Dave
I'm trying to format a header in a report and need some help.
The following results in "Error" if placed as the Control Source :
=IIf(IsNull([Captain]),"","Captain:" & [Captain])
Is there another way to do this?
Essentially, I want to display the word "Captain: " followed by the name if there is an entry. If there is no captain, I want to display nothing.
Thanks for the help!
In my report the data shows patients and which unit they are in so in the detail section it shows something like this depending on how many records there are:
CVICU
CVICU
CVICU
MSICU
MSICU
NICU
STICU
STICU
STICU
I'm now modifying that report to show totals and I want to list the names of the units going across the page not down the page which shows all the records. I moved the field into a "Unit Footer" and now the report shows only one entry for each unit like this:
CVICU
MSICU
NICU
STICU
Within the Unit footer section I don't want the names of the units going down but across like this:
CVICU MSICU NICU STICU
I know there must be an easy answer but I've looked and work on it for so long I can't see what it would be. Any help would be GREATLY appreciated.
Thanks so much in advance.
Hi,
Please see attachment. I have created a mini database which will hopefully help me in explaining the process.
Table1: Field1 - 8 rows/8 records
Form1: Field1 text box
So in this box I used conditional formatting to say- whenever the date is greater than 04/05/2006, turn red.
So now I scroll to record2, need to have new conditional formatting rules to apply to this record.
My understanding is that I can use the remaining 2 conditions for records 2 and 3.
But what about records 4,5,6 & 7.
For example in record 4 I need the date to be greater than 02/15/2006, and record 8 to be greater than 05/09/2006-and as you can see when you scroll down to record 8 it has already turned red because it is governed by the rules in record1!
Hopefully this makes sense!
Is there a way to get around this? Is conditional formatting the only way to achieve this?
If it's not what would I do?
Thanks in advance for your help!
Jcwishart
I am having trouble formatting a mailing label zipcode using the xxxxx-xxxx format.
I am using the =Trim([City]&","&[State]&" "&Format([ZipCode],"@@@@@-@@@@")) for Access 2002
My program is Access 1997-is there a different formula and why isn't the above working?
The zipcodes that have an extension come out right but the ones that don't have an extension come out like 6-8894
Any help would be appreciated!