Im new in using MS Access. How i can "tick" the yes/no button faster. I have almost 3,000 boxes to tick and its making my wrist ache... Unlike in excel where i can just drag it to the last cell....
View Replieshi
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?
Hi,
I am opening a query in Access which has two linked sql tables but it takes to long to open. Can I choose a method (ADO) opening that query? If not, is there a way to speed up the process?
thanks
See attached image. I am looking for ways to make my query run faster. When I run this query for small groups which will return less than 100 records, the query takes about 30 seconds. However I have some groups that have over 1000 records and that will take 3-5 minutes to run. Actually sometimes the query even bombs after 30 seconds on the large groups.
This query hits against a linked SQL database. Three of the fields gets the criteria from a form combo box. The thing that makes this query take so long is the Count. It counts the number of times the Signature Type "duedte" has been changed.
I am looking for any suggestions for how to speed this up. I want real time results so I was not sure if copying the data locally each time then running the queries would help any in the overall time.
I appreciate any suggestions.
Jim
I revised my DB thinking that one big form divided by Page Tabs would speed things up. Wrong. It slowed everything down to a crawl. I found the more I broke up Forms into sub-forms the faster things went.
Incidentally this may be the answer to the problem I posted about Permission Lockups. (See Access 2000 Permission lockup posted on 2/20/08). I noticed that the big form version requested to save forms that I think I had not even opened. So when I encountered the problem on installing the DB on my network, I just did two or three saves just for luck. This seemed to do the trick. This suggested that my Permission Lockup may have been due to not all Forms had been saved on closing.
The evidence is circumstantial but I have had no trouble since.
Hi
I have some drop downs on my form, which has some code that decides which recordsource to use.
When I first select an option from the drop down, the query takes 10 seconds to load data.
I then select another option, which runs a different query, which takes x seconds.
If I then select the original option from the dropdown, the data loads onto the form in less than a second.
Why is there a delay the first time round and not the next? Has Access saved some kind of query plan? If so, why doesn't it save it permanently?
My report has in each row at least 1 picture which is about 1.5" square when open; however, when trying to scroll up or down the pictures dazzles on and off while the pausing the scroll which moves slowly. If the pictures are removed the scrolling movement is normal.
How can this report scrolling be made more efficient?
Hi.
I've set a up a tick box to choose the option to have an extension on a booking. If it is ticked, then i want it to add an extra £5 to the final cost, BUT, it can ONLY be ticked, if the Day of week is a Friday or a Saturday, AND if the time period is an evening.
Is there a way of making it, so that if the day of week is equal to friday or saturday, AND time period is equal to evening, the tick box becomes active, or visable, and if it is any other time period and day of week, it cannot?
Thanks
This is probably very simple but still beyond me.
I have a table that stores text in a number of different languages. Each entry has a unique ID number. Each language version of the same text shares the ID number.
I have a column of tick boxes that show where this text is used.
ie
1.0 English_text_record_1 tickcol1=y tickcol2=n tickcol3=y
1.0 French_text_record_1 tickcol1=y tickcol2=n tickcol3=y
1.0 Spanish_text_record_1 tickcol1=y tickcol2=n tickcol3=y
2.0 English_text_record_1 tickcol1=y tickcol2=y tickcol3=y
2.0 French_text_record_1 tickcol1=y tickcol2=y tickcol3=y
2.0 Spanish_text_record_1 tickcol1=y tickcol2=y tickcol3=y
I am trying to set the tick boxes so that, if I tick one in an ID range, all the rest tick on as well. ie if I tick record 1.0 English tick_col_2, then the French and spanish will be ticked as well.
Any suggestions will be greatly appreciated.
Andy
hi,
what would the code be if i wanted a tick box called 'paid?' to be true once a field on my form called 'amount outstanding' = £0?
thanks
I currently have a form which contains a column of tick boxes, when a box is ticked the database automatically enters the date and the name of the person logged on. It all works fine except that if i tick say row 1 then the date/name appears as it should, but at the same time random (or so it seems) boxes have ticks appear, although there is no data added to the names/date fields, just the ticks appearing .
Not sure why !!!
Hi There
Im Trying To Find A Solution To My Problem About Searching Records Through A Recordset Filter. I Have Performed The Follwing Code To Filter My Records From The Combo Box However In My Database I Have Several Yes/no Fields That I Would Like To Filter Out As Apart Of A Recordset.
Code is
Dim sql As String
sql = "SELECT * FROM [qry Landuse Survey 2005] WHERE [STREET] = '" & Me![Combo255] & "'"
Me.RecordSource = sql
Does Anyone Know How I can use the same principle for Yes/no Field Types?
Comments Much Appreciated!
Hi everyone
Is it possible to create a query that prompts the user to enter the search criteria (i can do that bit) to search whether a yes/no tick box has been ticked or not. What does the user enter into the criteria box to find this?? I have tried entering null, not null, true, false, yes and no but none of them seem to work. Is this because the criteria you enter is taken as a text string and therefore will not find a tick/no tick??
James
Youngest Data Manager in England ;)
Have a number of tick boxes on different forms. When the form is opened the tick box appears to be greyed out however it is enabled. Is there any way that these tick boxes can appear enabled???
View 2 Replies View RelatedHi,
Does anyone know if it's possible to colour a tick-box: e.g. the border, the background or the font-colour? I'm trying to put a red tick-box on my form (to differentiate one vital one from several others), but I can't seem to find a way. I have changed the border to red (255) and tried various options like flat, sunken etc. but it only seems to work with shadowed - and to be honest that looks terrible.
I've fudged it a bit by putting a coloured box on the form and overlaying the tick-box, but I would have thought there was a better way.
Pat.
Apologies as I've already asked this question in the forms section of the forum but the responses were a bit on the light side...I'm now getting desperate having spent much of the day trying other sources such as google (even the advanced searches as advised in a different thread)...somebody help please...
I'm just want to make sure that my IT illerate users have to tick a checkbox before they can view the next record with a message box appearing to ask them to tick it if they haven't.
I've seen a few threads on much more complex scenarios but have failed to plagiarise anything, it must be pretty basic to do right?!?
I need the code that will tick the box in all records in a table
Thanks,
Richard
Hi,
in my web page, i would like to user to see a ticked checkbox should the database = True however, i cannot seems to be getting it. Would anybody be able to help me out?
strSQL = "SELECT DeptHeadA FROM Employee WHERE EmpId = '" & strEmpId & "'"
nRecDHA = GetRecordset(strSQL, arrDHA)
if arrDHA(0,i) = True then
arrDHA(0,i) = "Checked"
else
arrDHA(0,i) = ""
end if
<tr>
<TD valign=top width="27%"><font size="2"><b>Department Head Alternate (1st) :</b></font></TD>
<td width="72%">
<input type="checkbox" name="DeptHeadA" value="<%=arrDHA(0,i)%>"></td>
</tr>
Hi
was wondering if i could get some assistance to hopefully a simple query.
In one of my tables i have about 1000 records with the data type yes/no and the problem is I have reliased that I need to have as a default value a yes (or a tick in my form) but i dont want to go down each record filling in a tick. Is there any easier way to do this
You will have to bear with me I am pretty new to access.
I manage to set up a default value of yes but this will only work on new records entered, but the issue i have is I require it to be on my records which are already there.
Any help will be really appreciated.
Thanks
Ranj
Hey,
I hope this is the right place to be posting this...
I've set up a database about unemployed people and it has a field called "Start Date of Employment", where a date is manually entered by the user.
Further down, there are two tick boxes - one called "13 weeks", and one called "26 weeks".
Now, what I'd like to happen, is that the database looks at the "Start Date of Employment", and then if 13 weeks have passed, it puts a tick in the 13 weeks box. Then when 26 weeks have passed, it puts a tick in that box also.
I'm assuming that this is possible, but I have no idea how.
Can anybody help?
Thanks
Dan
I have a 'yes' check box and a 'no' check box. When the 'yes' check box is ticked, it enables a text box so I can enter a date and disables the 'no' box. Great, how it should work.
However, for some reason, whenever a date is entered into the text box when the 'yes' box is checked, every 'no' box afterwards is greyed/disabled out.
The thing is, it doesn't happen when no data is entered into the text box, when the 'yes' box is checked. So I can have the yes box checked, the no box will grey out as it should, and the text box will be enabled, as it should. But as soon as I enter a date, the above problem happens.
If that's not too confusion, can anyone help?
I've tried attached the database, but apparently it's too big, so i've posted the code underneath.
Cheers
Dan
EDIT: - i've just figured out that this problem is solved when I close the form and re-open it. But obviously I don't want to keep doing this every time I have to enter a date in a record.
Code:Private Sub chkSuccessful_AfterUpdate()If chkSuccessful = True ThentxtDateAppointed.Enabled = TrueEnd IfIf chkSuccessful = True ThenchkSuccessfulNo.Enabled = FalseEnd IfIf chkSuccessful = False ThenchkSuccessfulNo.Enabled = TruetxtDateAppointed = FalseEnd IfEnd SubPrivate Sub chkSuccessful_Enter()If chkSuccessful = True ThentxtDateAppointed.Enabled = TrueEnd IfIf chkSuccessful = True ThenchkSuccessfulNo.Enabled = FalseEnd IfIf chkSuccessful = False ThenchkSuccessfulNo.Enabled = TruetxtDateAppointed = FalseEnd IfEnd SubPrivate Sub chkSuccessfulNo_AfterUpdate()If chkSuccessfulNo = True ThentxtDateAppointed.Enabled = FalseEnd IfIf chkSuccessfulNo = True ThenchkSuccessful.Enabled = FalseEnd IfIf chkSuccessfulNo = False ThenchkSuccessful.Enabled = TrueEnd IfEnd SubPrivate Sub chkSuccessfulNo_Enter()If chkSuccessfulNo = True ThentxtDateAppointed.Enabled = FalseEnd IfIf chkSuccessfulNo = True ThenchkSuccessful.Enabled = FalseEnd IfIf chkSuccessfulNo = False ThenchkSuccessful.Enabled = TrueEnd IfEnd Sub
Im doing an attendance in Access database , i have a Staff table and AttendanceMain table for keep all the staff attendance ...
I also created a query to append the data into AttendanceMain table ... the problem is , I always reuse the staff name , so i created a Staff form , but everytime i open the staff form the previous record still there , anyway to clear the "Tick Box" in staff table and without affecting the name ?(Name also is a record in row by row)
I have a form called frmBillingExport. On that form i have a button called cmdExcel that when clicked exports all the records to excel.
On the form i have a sub-form called subfrmBillingExport and in that form there are lots of fields and one of them is a tick box called blnInvoiced. The subform is also in datasheet view.
Its also worth mentioning that the subform runs off a query that displays the values based on criteria provided on a previous form.
What i want to do is when you click cmdExcel I want a window to pop up to say "Are you sure you want to invoice all of these bookings?" with buttons for Yes and No. On the Yes click i want it to tick the blnInvoiced for all those records and then only export it so i assume take whatever code is suggested and place it before that export happens.
I basically need a text box which is for date/time to disapear/appear when i tick or untick a little tick box.
My tick box is called AlarmResponse and my text box is called CallReceived...
I have a form with a sub form... I want to know if the following is possible...
If I have a check box on Master Form and make it there is a tick in it, can I make a check box on the sub form do the same i.e.
Master form ticked = sub form record ticked and visa versa
I have a form with a combo list and a check box.
The combo list has values 1-4, the default is 1.
By default the checked box is ticked
I want that if a user changes the combo value from 1 to 2,3 or 4 then the check box changes from true to false.