On a form I have a textbox with a data type of Date/Time. If the user has the cursor in that text box and types the letter "t", I want to automatically insert today's date. I also want them to have the option of manually typing in a date, i.e. 05/12/2001 or use the Date Picker "calendar" item. This is using Access 2010.
View RepliesI'm looking for a simple routine, preferably in the On Key Down or or On Key Press event of a form to quickly navigate to a record based on the key pressed.
I have a form with names in a table layout (continuous form).If the user is on the name field, I'd like it to navigate to the first record that contains first letter of the key pressed. So if a user presses "K", the form will go to the first record that starts with a K.Yes, the names in the form are alphabetical, but in a list with over 100 names, this could speed things up just a bit and save a lot of scrolling and looking.I was thinking of using KeyCode and I already have an event to navigate by the arrow keys so I'm considering building on that.
Code:
If KeyCode = 40 Then ' Down arrow
DoCmd.GoToRecord acForm, Me.Name, acNext
ElseIf KeyCode = 38 Then ' Up arrow
DoCmd.GoToRecord acForm, Me.Name, acPrevious
End If
I am thinking to use a Select Case and add the key codes for all the letters.
I'm using MS Access 2002 and I'm trying to create a prompt for a date and then enter that date into the body of the letter.
Also can the date format be short and converted into a long format on the letter.
Example:
Prompt - Enter Date
Date entered = 12/31/2013
Sample Letter:
Your subscription ends on December 31, 2013 if you would like to renew etc.....
When user enter the data other than date field or when date field remain empty and user press the Add button, it is giving error.
(Error 3075)
Syntax Error in date in query expression '#'.
while same code is working for text field. but it is not working for date field.
If (Me.rdate) = "" Then
Exit Sub
End If
I have an option group with 2 buttons in it, yes and no. It is set to default to No, but if someone hits Yes I want it to enable or turn on the next option group. Would just simply changing visible status disable it? Because I have a series of codes set up based on the second option group which read as:
Code:
Private Sub NumberOfAdditionalSites_Option1_GotFocus()
Me.AdditionalSitesLabel1.Visible = True
Me.AdditionalSitesText1.Visible = True
End Sub
[Code] .....
I do not want these to be visible if the initial option group is still set to no.
I have a form with a control for the user to enter some data and then two command buttons 'OK' and 'Cancel'
For the OnExit event in the control I have a procedure that check the user input and if incorrect, opens a message box with an error message asking the user to correct the data. It then cancels the event so the focus remains in the current control.
However if the user presses the 'Cancel' command button on the form to cancel & close the form, the OnExit event for the current control still fires and asks the user to correct the data.
In my code in the control, how can I recognise that the Cancel command button has been pressed, so I can cancel the OnExit event and close the form?
I'm trying to search through a table with serial card IDs, Order Numbers, and Ship Dates. I'm search through the Serial Card ID column and making my code work so that if the serial card ID exists and its ship date is between 9/30/2001 and 10/1/2011, then retrieve the associated order number and put in array. All of this works perfectly except for one tiny part : it's not returning a null for either unfound serial Card ID or serial card Ids that exist but their ship dates do not qualify. I would like to return a null value for these fields into the array as well as keep the found values in the array. The whole point of all of this is so I could count the number of rows for all the found order numbers and return a total value with that number.
View 14 Replies View RelatedIf a new record is created, insert date only if customerID is not null
Private Sub Form_Current()
If "CustomerID", "TblDietPlan" = <> 0 Then
If Me.NewRecord Then Me.MealDate = DMax("MealDate", "TblDietPlan")
End Sub
I have an access database with a query which inserts system date/time from Now() function to a column. My system date is 12-05-14 (12 May 14) and when it is inserting in the table is taken as 05-12-14 (5 Dec 14).
View 2 Replies View RelatedI would like to enter a week dates forward after looking up the last entered date. i have working codes that looks up the last date and increments it by one and enter the date into a new field.
Here is what i have:
Private Sub Form_AfterUpdate()
Dim dtmNextDate As Date
Dim dtmLastDate As Date
Dim SDate As Date
LastDate = Nz(DMax("[SDate]", "schedule"), _
DateAdd("d", -1, Date))
NextDate = DateAdd("d", 1, LastDate)
CurrentDb.Execute "INSERT INTO Schedule(SDate) VALUES ('" & NextDate & "');"
End Sub
enter dates into 5 new fields instead of one using a loop maybe.
I am dabbling in updating an existing database.Currently our staff enter data via a form and I have this set up using the below script to automatically complete the "Due date" field with a date 5 working days ahead of the current date, saving them from having to manually enter this date each time.
Code:
Public Function PlusWorkdays(dteStart As Date, intNumDays As Long) As Date
PlusWorkdays = dteStart
Do While intNumDays > 0
[code].....
This then updates the value on the relevant form object using the default value "PlusWorkdays(Date(),5)" to give a date 5 working days ahead. the problem I face is that due to our business process at 15:30 each day our due date needs to change to 6 working days from todays date rather than 5. I was wondering if there is a simple way I can modify the script to add an extra working day when the local time hits a specified point (15:30 in this case), unfortunately this is a bit outside my abilities currently!
Hi,
I'm designing a database in which the primary key is a combination of the first letter of first name, the first letter of last name and the date of birth.
How can I do that?
Regards,
CS
I'm creating a folder with values from some fields. It all goes OK, but, the only thing is that the name of the folder could get to long.
We use words like "Prototype Model" "Prototype Review" Next Date Review" "Next Prototype Review"
How could I end up with only the first letter from each word like "PM" "PR" "NDR" "NPR" from a field called Type_Review ?
I have an MS Access database that sits in the users local area e.g. C:Users....
I have the following code which will open a user guide on a server shared by all users.
Code:
strFilename = GetUNCPath("T:") & "19_InformaticsInternal Offer Transfers" & "Utility User Guide.doc"
Users have different drive letters for the server name. In my case it's "T:" but for others it may be"S:".
Is there any code which would determine what drive letter each user has? The server name is
denasvf1acorpHR_GLOBAL_1HR_Shared_Service_Data
I'm trying to create a report for how many "nasty grams" (rejection notices) my company has sent to people who keep sending in paper forms when they are supposed to file electronically.Every letter that goes out has information recorded based on whatever they sent to us - so the only remotely reliable way to count how many each person received is by the address on the envelope (people use different names, different business names, use different telephone numbers on the forms, etc).
I just built several queries that feed into a report that gets sent to my boss on a monthly basis to show the people who've sent in more than one paper form and have received our rejection notices more than once.I'm not the greatest at SQL, but I've been trying to find a way to use DISTINCT Addresses, leave all other fields the same (not DISTINCT), to:
1. Only return people who have received 2 or more letters
2. If at least one of the letters was sent more than 90 days ago
AND If at least one of the letters was within the last 90 days
-If at least one was within the last 90 days, only display the most recent send date of the letter (lots of people get back-to-back letters).
3. Display their names, addresses, telephone numbers, the date of the most recent letter sent, count of the total letters ever sent to that person. (the report will already do this, just need Max date)
My first query counts the number of times each address appears in the main table and simply only has [Address] and [CountofAddress]
My second query has the [Name], the [LetterDated] >=Now()-90, and the qryCountofAddress is linked to the main table by [Address], using [Countof Address] >=2...I have tried Selecting Unique Values in the Properties tab. Yes, I have tried INNER JOIN (but can't get the rest of my fields to display once I make addresses distinct).
I am using Excel as a frontend and Access as a backend. Now in the main form the user types in all the information about a customer and press Save. Suppose he stores 10 customers details so I am using PrintSpool Number . For those 10 records the printspool number will be save so that when the user press Print button then all those 10 Word document letters will get printed off. This works absolutely fine. Now I want to do the following checks in the code while printing:
It will make it easier on the watermark issue as it changes the below
First check
IF AXAFRIENDS = FLC use NO WATERMARK and END conditional (do not do second or third check)
IF FALSE move to second check
Second check
IF Team = LTC use LTC and END conditional (do not do third check)
IF Team = WINTERTHUR use WLUKCAP4 and END conditional (do not do third check)
IF FALSE move to third check
Third check
IF AXAFRIENDS = FRIENDS use PAP107 and END conditionals
IF AXAFRIENDS = DM use PAPSLD and END conditionals
AXAFRIENDS is the name of the field and the above conditions will result in different watermarks for each customer letter. My code doesn't work as required. Suppose 10 records in Access table have same PrintSpool number (Textbox1) ,then it should check for each record the AXAFRIENDS field value and display appropriate watermark during PRINT.
Code:
Private Sub CommandButton3_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim r As Long
Set cn = New ADODB.Connection
[Code] .....
Is there anyway to determine the drive letter of a flashdrive inserted into a PC ? I have a backup routine that backs up a MS Access database to a flashdrive. I need to determine the flashdrive letter.
View 9 Replies View RelatedHow can we store the first and last letter of the username using vba.
E.g. my name is "Daniel Rawlings" then it should display "DR".
I basically have a form which the record source is either from a table or query and all I would like to do is to have a button which when pressed will open up a previously created word template and insert all relevant fields into the template. First Name, Last Name, Address etc.
View 1 Replies View Relatedok here is what i want.. imagine a search box, just an empty text box that allows the user to type things into it...
there will be a simple table from the database behind it, here is the typical structure of a record
<Country>Poland
<Price1>60
<Price2>85
<Price3>95
in this table there will be say a 1000 of these records...
my user is going to have to quickly search through these records while on the phone to a customer, and quote one of the relevant prices associated with that country
what i would like is this most convenient system..
as the user types in the letter 'P' just below all the records with countries that begin with 'P' are displayed (with a scroll down arrow if needed)..as well as the 3 relevant prices with that record
if they then type an 'O' into the box (which will now hold 'Po') all the records with countries beginin with 'Po' will be displayed (eg Poland)
if they delete the 'o'. once again the displayed records below the box will return to just the countries begginin with 'p'
all that is needed is for the records to be displayed, thats it.. but the adding and deleting of the letters within the text search box will need to instantly manipulate this list..
i have posted on other forums, and have been told this can be acheived in access, is it hard?
I'm trying to add a search function the searches with ever letter I add to the string in the search box. if the string is not in the recordset then vbred the textbox.
Here's my code:
Private Sub txtGroupNr_KeyPress(KeyAscii As Integer)
Set RstRecSet = Nothing
Set db = CurrentDb
On Error Resume Next
If IsNull(txtGroupNr) Or txtGroupNr = "" Then
' MsgBox "Please enter a Group Number to use as the search criteria", _
[Code] ....
I am trying to use a DLookup to search to find what block goes into the production of an item.
In a table called "dbo_vw_MCE_job_with_materials", each item contains a list of the parts which go into its production in a column titled "Expr1". However there are always more than one parts to this, with varying names.
What I am trying to do is to use a Dlookup to only return the first value which starts with B (as the block number is always the only part on the list which begins with B).
At the moment my DLookup would look ike this:
Code:
MixTypeTxt = DLookup("Expr1", "dbo_vw_MCE_job_with_materials", "[item] ='" & Forms![Theta Input]![ItemNumbertxt] & "'")
However I think as the item column contains the same item number in 8 columns, with different values in the Expr1 column, Dlookup only returns the top value "A-CF0057" (which is irrelevant as far as I am concered) - whereas I am hoping it will be able to pull the "B1499" value from the column as it is the only one starting with a B
Is there anyway to specify which value the dlookup function would return, or is there any way to apply some sort of permanent filter on my table?
i have just started to use access and i know how to insert the current date into a field using date() but i am not sure will this change the date everytime i open the form ? i want to create a form for invoices that shows the date the invoice was created and doesnt change if i re open for editing,
View 1 Replies View RelatedI wish to use message boxes that pop up when certain options are chosen, that can either be immediately cleared by clicking the 'OK' button or that disappear by themselves after a short period (10 seconds in this case). After searching the net for various options, I found the following code:
Code:
Set objShell = CreateObject("Wscript.Shell")
intReturn = objShell.PopUp("Date of Birth updated", 10, "FYI", 64)
(The 64 displays an information symbol).The box is displayed correctly and the 'OK' button works fine, but the box does not automatically dismiss when nothing is pressed.
Right now on a form I have code that runs when the used DoubleClick on that field. Users want to have the code run when the EnterKey is pressed as well but when putting the code in the onEnter command line it would run the code when you tab thru the field.
View 2 Replies View RelatedThis is what i am tring to do. I generated system catalog with its poplution and created seperate .mdb file for
the meta database and now i need to insert to it using following funciton.:
"InsertSystemCatalogPopulation(db, metadb)''
i be happy if some one show me how i can
insert the meta data to created db. Thanks
Here is the code :
---------------------------
Private Sub Command0_Click()
CreateSystemCatalog
End Sub
Sub CreateSystemCatalog()
Dim metadb As Database, db As Database
Dim metadbname As String
Set db = CurrentDb()
metadbname = Left(db.NAME, Len(db.NAME) - 4) + "_meta.mdb"
Set metadb = DBEngine.Workspaces(0).CreateDatabase(metadbname, dbLangGeneral)
Call CreateSystemCatalogTables(metadb)
Call InsertSystemCatalogPopulation(db, metadb)
End Sub
Sub CreateSystemCatalogTables(metadb As Database)
metadb.Execute "CREATE TABLE SysTables( " & _
"tablename Char(30) NOT NULL, " & _
"PRIMARY KEY (tablename));"
metadb.Execute "CREATE Table SysColumns( " & _
"tablename Char(30) NOT NULL, " & _
"columnname Char(30) NOT NULL, " & _
"required Logical NOT NULL, " & _
"type Char(10) NOT NULL, " & _
"length Smallint, " & _
"PRIMARY KEY (tablename, columnname))"
metadb.Execute "CREATE TABLE SysKeys( " & _
"tablename Char(30) NOT NULL, " & _
"keyname Char(30) NOT NULL, " & _
"keytype Char(9) NOT NULL, " & _
"tablename_prim Char(30) NOT NULL, " & _
"PRIMARY KEY (tablename, keyname));"
metadb.Execute "CREATE TABLE SysKeyColumns( " & _
"tablename Char(30) NOT NULL, " & _
"keyname Char(30) NOT NULL, " & _
"keycolumn_seqno Char(30) NOT NULL, " & _
"columnname Char(30) NOT NULL, " & _
"PRIMARY KEY (tablename, keyname, columnname), " & _
"UNIQUE (tablename, keyname, keycolumn_seqno));"
metadb.Execute "ALTER TABLE SysColumns " & _
"ADD FOREIGN KEY (tablename) REFERENCES SysTables;"
metadb.Execute "ALTER TABLE SysKeys " & _
"ADD FOREIGN KEY (tablename) REFERENCES SysTables;"
metadb.Execute "ALTER TABLE SysKeys " & _
"ADD FOREIGN KEY (tablename_prim) REFERENCES SysTables;"
metadb.Execute "ALTER TABLE SysKeyColumns " & _
"ADD FOREIGN KEY (tablename, keyname) REFERENCES SysKeys;"
metadb.Execute "ALTER TABLE SysKeyColumns " & _
"ADD FOREIGN KEY (tablename, columnname) REFERENCES SysColumns;"
End Sub
-------------------