When I put some wrong value in the field the cursor not stay in the same filed its skip to next field. The code is as under:-
Private Sub RollNo_BeforeUpdate(Cancel As Integer)
If (RollNo.Value > 1) Or (RollNo.Value < 22) Then
MsgBox "Roll No is Wrong, Please Type correct Roll No"
Cancell = True
End If
End Sub
The RollNo is numeric field. How to stop the cursor in the box if I put wrong number.
I spent several hours but looks like I can't pop up a message in a form when the cursor pointer is on a specific object. Focus of cursor maybe somewhere else, but when I move the cursor with mouse and it reaches to a specific object, I want the object to display a message. I couldn't do it.
View 7 Replies View RelatedI have a form (Home_Interview_Form) with several subforms (AirFresheners, Pesticides1 etc), and I would like the cursor to move from the last field in one subform to the first field in the next subform on keydown. I have written the following code, but instead of sending the cursor to the first field (PestSpray) it is going to the next field (PestSprayCom) in the subform for some reason. I am using Access 2013.
Private Sub Fresh2React_KeyDown(KeyCode As Integer, Shift As Integer)
Forms!Home_Interview_Form!Pesticides1.SetFocus
Forms!Home_Interview_Form!Pesticides1.Form!PestSpr ay.SetFocus
End Sub
I have a text box which i use as a "search box"
I type in characters and my data sheet at the bottom will display all matches
What i want to happen is for the cursor to stay on the same text (search) box after hitting enter.
I launch a 'CreateNewRecords' form from a 'MainForm' form. When the 'CreateNewRecords' form closes, the new record is visible on 'Main Form'.The underlying query is unsorted, so this code in the AfterUpdate event of 'CreateNewRecords' puts the cursor on the last record displayed on 'MainForm', which is the newly created record:
Forms!frmMainForm.Requery
With Forms!frmMainForm.RecordsetClone
.MoveLast
Forms!frmMainForm.Bookmark = .Bookmark
End With
However, I intend to sort the underlying query, which means that a newly created record may appear in the middle of the records displayed on 'MainForm'.
What I want to have happen is that after a new record is created by 'CreateNewRecords', the underlying query is requeried so that all current records are displayed on 'MainForm' but also that the cursor rests on the newly created record (rather than default to the first record).
I have created a button that takes the contents of a memo field and adds a new line of text at the top with the date, time and initials of staff member. So far, so good...
However I want it to end with the cursor ready at the end of the first line (to type the note) The following code does everything but ends by putting the cursor right at the end of all of the text in the memo field (instead of the end of the first line):
Code:
Private Sub Command59_Click()
Me.Note = Format(Now, "d mmm yyyy hh:nn") & " - " & "(" & DLookup("[login]", "logintable") & ") " & Chr(13) & Chr(10) & Me.Note
Me.Note.SetFocus
Me.Note.SelStart = Len(Me.Note)
Me.Note.SelLength = 0
End Sub
I have checked the tab order and have cycle for my form set to = all records (but have also tried current record). After I update one of any of my textboxes in the details section and then click or tab into the next box, the cursor jumps back to the first record, first field.
View 1 Replies View RelatedIssue with Cursor moving on multi Subforms in a form.
I have 2 sub-forms in a main form as per screenshot. So Cursor moving from main form to 1st subform working well. After can't move the cursor from 1st subform to 2nd subform with tabbing or entering. Still there in 1st Subform in the last entered filed after tabbing or entering. I've checked on tab orders also they shown correct but it is can't move to 2nd subform.
I have a continuous subform on my main form where one text box is a hyperlink that opens a form. All is well, except....
When the mouse hovers over the text box of the top record, the cursor does not change to the hyperlink pointed finger thing (it's I-beam), even though the text in the textbox displays in hyperlink format.
If I hover over the hyperlink/text boxes of records 2 thorough x, the hand-cursor appears.
More info:
1. The hyperlink functions normally (i.e., the appropriate form opens to the appropriate record)
2. When I then return to the main form, the hand-cursor magically appears when hovering the first record.
3. I have 2 other continuous subforms on the same main form that behave the same way.
On main form cursor working is goods as per default. But after come to in Subform its shown the cursor position in the last filed. So every new record is shown as the same last field. How to do this cursor position will be change in subform as per default?? and every new record its need to show as per default TabIndex "0".
I have checked my Tab Index & Order Settings also it is good. But its shown as last filed in subform
I have attached the Screen shot.
I have several comboxes where I'm using date/time input masks. When I go to enter data in the field the cursor is situated at the right end of the box. I have to backspace to the beginning of the field to enter the data. How do I position the cursor to the beginning (left side) of the field?
View 3 Replies View RelatedI made an On Change Procedure on a textbox, so everytime I input a character, it will trigger the Me.Requery.
However, after that the event, the mouse cursor moved to the beginning of other field. I want it to stay at the end of the textbox so I can enter a full word, how do I do that?
Code:
Private Sub Text73_Change()
ProjectSearch = Me.Text73
Me.Filter = "[Project Name] Like " & Chr(34) & ProjectSearch & "*" & Chr(34)
Me.FilterOn=True
Me.Requery
End Sub
Looking to create two command buttons or two keystrokes sets in an Access 2007 form that will allow me to place a current date and time in any allowable field where the Cursor is presently placed. Similar to what was in Access 2000, ctl: (for the current date) and ctl shift : (for the current time).
View 2 Replies View Related I am doing an assignment and I am stuck at this validation rule. So in my database I 've got one table named horse and the rules I am supposed to set are these two：
1：A horse cannot be added that does not already have a Dam and Sire existing in the database unless either or both are not known.
2：A horse must not be deleted if it is the Sire or Dam of an existing horse.
I guess I am supposed to create a data entry form for table horse and apply these two rules in the form, but what should I do to achieve that? Seems a bit complicated cause the entering need to check some other fields (sire and dam) in the table..
My table looks like this
Horse_id Name Colour Sire Dam Born Died Gender
101 Flash white 201 301 2001 0 S
102 Star brown 201 302 2002 0 M
201 boxer grey 401 501 1991 0 S
301 Daisy white 401 502 1992 0 M
I know it might seem too simple to you but I am a full-time worker doing this online course. The consulting resouce for me and the time are both quite limited.
I have a form that requires people to enter a number of values. The sum of these values cannot exceed 100. The values are stored in a table for later use. I also want to catch the error here with a message.
View 3 Replies View RelatedI inquired on this original thread [URL] .... to hide/show fields based on two Yes/No dropdowns.
Summary:
1.
If "OtherUnivEmployeesInvolved" = "Yes":
The fields
"OtherUnivEmployeeFullName1"
"OtherUnivEmployeeFullName2"
"OtherUnivEmployeeFullName3" are shown.
If "OtherUnivEmployeesInvolved" = "No": These 3 fields are hidden.
2.
If "OutsideRepresentVendor" = "Yes":
The fields
"OutsideIndividualLastName"
"OutsideIndividualFirstName"
"OutsideIndividualCompanyName"
"OutsideCompanyStreetAddress"
"OutsideCompanyCity"
"OutsideCompanyState"
"OutsideCompanyZip" are shown.
If "OutsideRepresentVendor" = "No": These 7 fields are hidden.
I have this basic validation code when a user hits the save button:
Code:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim ctrl As Control
For Each ctrl In Me.Controls
If ctrl.Tag <> "skip" Then
[Code] .....
Within "1." - If yes is selected, I only need "OtherUnivEmployeeFullName1" required.
Usually skipping FullName2 and FullName3 would be easy using the ctrl.tag "skip" but I am already using the control to show hide these fields so how to do that.
Within "2." - If yes is selected, I need all 7 fields required.
So I need to figure out how to require fields based on those Yes/No selections because right now the form is checking every field regardless of the yes/no selections. I would also need to skip "OtherUnivEmployeeFullName2" and "OtherUnivEmployeeFullName3" everytime.
I am looking to ensure the user enters a complex password, in the add user form. Therefore, the password should be >8 characters, 2 numbers, 1 Ucase min, 1 Lcase min and some form of punctuation. I found this code:
unction ValidatePassword(ByVal pwd As String,
Optional ByVal minLength As Integer = 8,
Optional ByVal numUpper As Integer = 2,
Optional ByVal numLower As Integer = 2,
Optional ByVal numNumbers As Integer = 2,
Optional ByVal numSpecial As Integer = 2) As Boolean
[Code] ....
but obviously this doesn't work in access. How can i either change it to work for microsoft access, or how would i go about developing it. What would the code be?
I have textbox1 with validation rule and mask.
When i scan by barcode scanner not validate data, then i get info - Bla, bla, bla data isn't validate and window with OK button.
When i press OK, then cursor stops at end of scanned number. How to select (mark all scanned number in this TextBox1 for new info scanning) after this OK button pressing?
I want to include a validation on a form. I have an auto number field called ID and a field called Nature Of Incident. I only want to have the auto number generated if the Nature of Incident is NotNull.
View 5 Replies View RelatedI am trying to validate data held in two controls on a form.
The first control records membership status and is a combobox with 5 values allowed.
1 is 'member'
2 is 'under consideration'
3 is 'left' etc.
The combobox displays the description, the underlying table the number 1-5.
The second control records 'reason for leaving' and again is a combobox with 7 entries just as above.
I need to ensure that if a value is entered into the second control the value of the first control is '1' or 'member'.
Whatever I do I cannot get any code to work.
So, what event should I link to the code attached to the second combobox? On lost focus, before update or what?
What value do I check for in the comboboxes, the text or the number?
How do I set focus back to the first combobox in the event of an error?
I have done some basic data validation on a form, but I cannot seem to apply data validation to my subtotalled column called SUM FTE.
For the field properties on the Data tab I have the following:
Control Source: =SUM([FTE])
Validation Rule: >1
Validation Text: Total FTE is >1
My test:
Employee A - .50 FTE
Employee A - .60 FTE
SUM: 1.10
Data Validation should indicate SUM FTE >1, but no validation is being reflected on form.
When I learnt to use vba in excel (to basic level) I was always advised in a userform to validate data at end of record input i.e. when pressing enter and next. Is this true also with access or should i be putting validation rules at the afterupdate stage of a particular control?
View 1 Replies View RelatedTextBox1 Validation Rule is
>=0 And <21
I would like to replace the error message
" The value you entered doesn't meet the validation rule...."
I made a start with the OnUpdate Event
If Me.TextBox1 <= 1 Then
Msgbox "Whoops..."
Else
End If
But, although my message box appears, (nothing else does) the Validation Rule is ignorred and then zero entry causes an error.
So, I'm guessing, my If Statement has to catch the whole Validation (somehow). Am I on the right lines?
I have a main form which has couple of subforms bound to one main table. One of the subfomrs is about employment info. It has 3 TextBoxes: (Job Start Date), (Employer Name), and (Wage).
It has also 3 ComboBoxes: (Job Type [Full Time or Part Time]), (Hire Status [Permanent or Temporary]), (Quarter [1st, 2nd, or 3rd]).
I want to force users to fill all these 6 fields if they put any value in any one of them. I tried to set a Validation Rule in the TextBox/ComboBox’s property including IIF statement condition, but I did not succeed, and these rules did not work.I put the following code in the subform’s (After Update), (Before Update), and (On Current) events which works very well when I keep the (Wage) value 0 and move to a new record or to another subform:
Private Sub Form_AfterUpdate()
If Me.[Start Date] > 0 And Me.Wage.Value = 0 Then
MsgBox "You did not put how much is the wage."
Cancel = True
End If
End Sub
[code]....
how to make a similar validation rule for the other TextBoxes and ComboBoxes.
Can't we give conditions on Validation Rules? (Like IIf)
IIf(getusername()=[Log_Resource],Between DateAdd("d",-1,Date()) And Date(),Between DateAdd("d",-2,Date()) And Date())
I have a textbox on a subform to allow a delivery qty to be entered (to allow me to cater for part deliveries). I have a query which totals up the values of this field (so that I have a total of all the deliveries for this record) and compares that value against another field (to check that the total deliveries I have entered do not total more than the ordered qty). I am using this query within the "Validation Rule" of the textbox. My problem is that when I enter the values for the first time this works fine because the figures are not yet part of the query and therefore the check works fine, however if I try to modify a figure I've already entered it triggers the validation each time because it tries to add the new value to the query total.
View 3 Replies View Related