DaveMac, I have a working calendar that you can use as doubleclick, Afterupdate or on got focus. It works just like you want it to. email me if you want it
akolln@megalink.net
Hi Gazer44,
Sorry it took so long to answer your question. I've been busy.
It looks like you are missing some code
Private Sub ButtonA_Click()
If Forms![form1]![Answer] = "A" Then
Forms![form1]![TickA].Visible = True
Forms![form2]![Score] = Forms![form2]![Score] + 4
ElseIf...
Put this in your control source of your [FirstReminder] textbox
=DMax("Date","DateTable","[Date] < [txtDate] AND[KeyFieldID] = [txtKeyfieldID] ")
On form rename [ID] textbox as [txtID], but leave the control source the same
rename [Date] as [txtDate] but leave...
I've had this same problem. My fix to it all was to delete the lbd and then rename my database so it creates another ldb. It works if you don't do anymore designing, just using. the DB this happened to me on is still working fine without any problems.
Alan
I have a form with a subform and a subform in the first subform. I have 3 record navigation bars showing at the bottom of my form and I would like to put a message in each bar so user can determine which bar is for what. Does this make sense?
Also if I disable the record navigation bars, is...
PUT THIS IN YOUR CODE BEHIND THE FORM
Private Sub AddToWhere(FieldValue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer)
' Create criteria for WHERE clause.
If FieldValue <> "" Then
' Add "and" if other criterion exists...
On Form where Buttons are at Create 2 command buttons
#1 Command button
Forms![FormName]![Score]= Forms![FormName]![Score]+1
#2 Command button
Forms![FormName]![Score]= Forms![FormName]![Score]-1
In GENERAL code behind form put
Private Sub AddToWhere(FieldValue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer)
' Create criteria for WHERE clause.
If FieldValue <> "" Then
' Add "and" if other criterion exists.
If...
Thanks 930Driver for your help. I got it to work and this is what I did
I put this in the GENERAL part of the code behind the form
Public Function ListBoxWhereClause(lst As ListBox, strBoundFieldName As String, _
Optional strDelimiter As String = "") As String
Dim...
I read the .ItemsSelected and tried to use the code above, but I'm not really sure where to put the code. Do I create a command button and put it there? Also how does the items selected on list get to the report without some kind of query for the report to pull the info from? I'm not real good...
I've looked at the ItemsSelected help in access and am not sure how to apply it to what i'm doing. Can anyone send me a model on how this works. akolln@srt.com
Any help will be greatly appreciated
Alan
I'm trying to print in a report only the records that I selected from a multiple select list box. I got it to work if the list box has the multiple select set to none. But its not working if its set to SIMPLE or EXTENDED
Here is the query i'm wanting to use
SELECT T_Name.NameID, T_Name.Name...
Rod....
I tried the code in an unbound text box in the Control Source on the subform and I also tried to put it in the Query SQL and they both got #Error. I feel like i'm sooooooo close to solving this but I think something might be wrong with my subform...here is my email.
This is an LP database that tracks deliveries to customers and it also figures out when the next delivery date will be. I got that part down though. The clients are on one table and the deliveries are on another with a one-to-many relationship. the form with the deliveries is a subform named...
ok, Here is my problem. I want to be able to calculate the number of days between
deliveries on my subform.
The fields are:
InvoiceID, Winter/Summer, DateOfDelivery, GallonsDelivered, PriceperGallon,
RateStatus, Driver, Remarks.
The final result i'm trying to achieve is to...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.