Clear All Values Except N/A
Feb 10, 2008
Hi:
I have a table setup to enter dates for each person that requires safety quizes for the month those that don't have an "N/A" for the month by thier names.
Each year I have to start over and it is a real pain to manualy delete all the dates for each person for Jan through December.
I only want the dates gone not the name or the N/A values.
Is there a sub or query that will search each record and only delete the dates?
Thanks
Charles
View Replies
ADVERTISEMENT
Oct 28, 2005
How can i clear the values in the combobox when some event occurs ?
i searched this everywhere but no solution found.
View 5 Replies
View Related
Mar 3, 2014
Code:
Private Sub Check253_AfterUpdate()
Me.Text255 = Environ("UserName")
If Me.Check253 = -1 Then
Me.Text254 = DLookup("[Lot]", "[tblAutoGen]", "[Inuse] = -1")
Me.Text256 = DLookup("[Exp]", "[tblAutoGen]", "[Inuse] = -1")
Me.Text258 = DLookup("[Lot]", "[tblEthanol]", "[Inuse] = -1")
Me.Text260 = DLookup("[Exp]", "[tblEthanol]", "[Inuse] = -1")
Me.Text262 = DLookup("[Lot]", "[tblDPBS]", "[Inuse] = -1")
Me.Text264 = DLookup("[Exp]", "[tblDPBS]", "[Inuse] = -1")
Me.Text266 = DLookup("[Lot]", "[tblTE]", "[Inuse] = -1")
Me.Text268 = DLookup("[Exp]", "[tblTE]", "[Inuse] = -1")
Me.Text259.Value = Date
End If
End Sub
How do I clear the values in each textbox if check253 = 0 rather then going to each and clearing them?
View 2 Replies
View Related
Feb 27, 2015
I am working on form where the user selects either "IN" or "OUT" from a dropdown of field name "CheckOut" in Frm1.
If they select "OUT" they will in turn need to fill in 2 additional fields. When they change the value back from "OUT" to "IN",
I want those other fields to be cleared of data for just this record so next time they change back to "OUT" from "IN" those 2 additional fields are already blank.
View 1 Replies
View Related
Jan 13, 2006
what's the best way of clearing the contents of a combo box? i don't want to change the row source, just make it blank as though a selection has not been made.
i have two unrelated combo boxes on a form; there will probably be more later. when i pick a value from one i want the other(s) to clear.
on the after update event of each combo i've tried clearing the contents of the other combo with these:
- me.othercombo = null
- me.othercombo = 0
- me.othercombo = ""
- me.othercombo.value = ...
- me.othercombo.undo
- etc.
'= null' clears the other combo.
'= 0' also clears the other combo.
but i think i'm missing something here. each combo also has a cmdbutton that will take the user to another form based on the selection made.
if i use '= 0', the other combo clears but its cmdbutton still works. even if the combo appears to be empty its associated cmdbutton still opens the next form (it should produce a msgbox asking the user to make a selection).
'= null' clears the combo and its cmdbutton produces the appropriate message to make a selection. so that's what i'm using right now. is this the best way? can something = null?
View 3 Replies
View Related
Apr 2, 2007
I need to b able to clear records from 3 tables with one click
I tried opening each as a record set and looping through deleting each in turn with a loop, however this I know to be poor practice and it also errors as i cannot delete a record that is part of a relationship.
is there a more suitable way to do this?
View 9 Replies
View Related
Feb 21, 2005
I'm using access 2003, and for some stupid reason they decided to remove the "clear" method from listboxes... In previous access version I could clear a listbox using "listbox.clear", but now I have no idea. Does anyone know a good way to clear listboxes in Access 2003.
View 4 Replies
View Related
Apr 12, 2005
Hey all,
I have some code that looks like this to control a form;
Private Sub btnAdd_Click()
Dim UserName As String
Dim Initials As String
Dim Password As String
Dim OutlookName As String
Dim rst As DAO.Recordset
'Check each control, is their a value? if not, set focus to control
If IsNull(txtUserName) Then
MsgBox "You did not enter a new UserName nobby!"
Me!txtUserName.SetFocus
Exit Sub
ElseIf IsNull(txtInitials) Then ' return value of UserName variable;
MsgBox "You have not entered any initials for user: '" & Me!txtUserName & "'"
Me!txtInitials.SetFocus
Exit Sub
ElseIf IsNull(txtPassword) Then
MsgBox "You must create a password for user: '" & Me!txtUserName & "'"
Me!txtPassword.SetFocus
Exit Sub
ElseIf IsNull(txtOutlookName) Then
MsgBox "You must enter a Outlook name for: '" & Me!txtUserName & "'"
Me!txtOutlookName.SetFocus
Exit Sub
End If
' Pass the variables to the table.
Set rst = CurrentDb.OpenRecordset(("Users"), dbOpenDynaset, [dbSeeChanges])
With rst
.AddNew
![User] = Me!txtUserName
![Password] = Me!txtPassword
![Initials] = Me!txtInitials
![OutlookName] = Me!txtOutlookName
![Level] = 1
![Select] = 0
![dummy] = Null
.Update
.Close
Set rst = Nothing
End With
DoCmd.Close
End Sub
Private Sub btnCancel_Click()
' Confirm Cancellation Box
If MsgBox("Are you sure you want to quit?", vbYesNo, "Caution") = vbYes Then
DoCmd.Close
Else
DoCmd.CancelEvent
End If
End Sub
What I really want to do is once the update has occured is set a label I have as hidden, to show and to clear all the controls.
View 5 Replies
View Related
Jun 5, 2005
Thanks,
Now I can populate text fields by selecting any one of the combo box selection.
But I need to clear the form to insert next record. Currently I am inserting record by using Save_cmd button. I can insert second record but couldnot clear all the fields after inserting automatically. So I am doing clear all the fields manually or overwriting values.
If there is anyone pl. help me.
Thanks
View 2 Replies
View Related
Feb 16, 2006
Hi everyone
I have a part of the form with the following fields
Title
Name
Address1
Address2
Area
...
Address2(street) field is a drop downbox, once selected the area text field will be automatically shown
what I got in AfterUpdate event on Street is as below
Me.txtArea = [cboAddress2].[Column](2)
the problem with this is, even when I move to another record the Area field doesn't clear up which is still using the old Area info that has been selected before,
I belive I have to have some Clear Up function on somewhere, not sure exactly where and what Code will clear up the value,
Can anyone help please!!
Thanks in advance
Si
View 1 Replies
View Related
May 5, 2006
Hello,
I would like to put a button on a form I am making so that you can clear it without saving the data.
eg you open the form input a load of data, it is all wrong so you click clear form and start inputting data again
I have the button what do i need to do to get it to do this
Thanks
Chris
View 4 Replies
View Related
Nov 15, 2006
i have a form that allows to add details to the table "tab_main".
ive got a clear button, it clears all textboxes apart from the textbox "date_issued". i get the following error message:
'Run-time error '2113':
The value you entered isn't valid for this field.'
Why am i getting this?
ive checked the table field and im inputting the right value!
in the command button under EVENT PROCEDURE, im using following code:
Private Sub Command25_Click()
Dim intResponse As Integer
intResponse = MsgBox("Are you sure you want to clear the text Boxs", vbYesNo, Change)
If intResponse = 6 Then
Me.number.Value = " "
Me.username.Value = " "
Me.cost_centre.Value = " "
Me.phone_model.Value = " "
Me.imei.Value = " "
Me.sim_no.Value = " "
Me.puk_code.Value = " "
Me.date_issued.Value = " "
Else
End If
End Sub
Help me!!!! thanks
View 4 Replies
View Related
Mar 7, 2006
I have a SQL Database that is housing my tables
I have an Access Front end that is Allowing users to view and edit the data residing on the SQL Database.
I have write/modify rights on the database and as such I wrote the code , OnLoad of Form, to Automatically set the Form to "Add Record", thus clearing all the TextBoxes and ComboBoxes. That works alright.
My problem is when a user without write/modify rights opens the Form I am getting an Error "Cannot go to specified Record". If I understand this right this is happening because they do not have suffeciant rights.
How Can I get a form to load and display all the textboxes and ComboBoxes BLANK....this only way I can think of is to set the form to Add Record.
ANY THOUGHTS
View 2 Replies
View Related
Jun 14, 2006
hi,
How do I clear a filter ? When I re-open a form that is based on a stored parameter query, I get a message about "apply/filter that cannot be applied..."
So, as a result, I put in some code for that command button that closes the form, then reopens it, and I get my prompt from the query. Isnt there a way to clear the filter without closing the form? It looks funny to me and I know the users will have a cow. I sure appreciate any ideas.Im digging around to see what I can do quickly, but I cant find anything that works. thanks a lot!
View 3 Replies
View Related
Jul 19, 2006
Private sub Form_DatasetChange()
Text28.Text.Clear
End Sub
I am wanting to move between records but when I return to the records I have just moved from I want to clear some of the text boxes. This code is not working though. Any suggestions
View 2 Replies
View Related
Feb 28, 2007
Where is the ListBox.Clear option??????
How can I clear the entire ListBox?
View 4 Replies
View Related
Jan 31, 2006
I have a transfertext macro that imports my text file into a table but the table already has data in it so it is not importing and losing all the records. What do i do to clear out the table before i import in.. Can i use another macro ???
View 1 Replies
View Related
Jul 18, 2006
Hi all,
I've had a quick search but couldn't find the answer to this.
Is there a way that when a user launches the application via my workgroup file, the default login name is always null?
Currently it retains the last users' login name.
Thanks
Kempes
View 6 Replies
View Related
Jul 12, 2005
Is it possible to clear the cotents from various records but only the values in one column. Like let's say I just want the delete the values in the Price column for a range of about 6000 records. Not the whole records just those price values.
I can't seem to find a way to do this without sitting there and pushing down and backspace over and over again.
thanks,
joëlle
View 1 Replies
View Related
Jul 19, 2006
Thanks for considering my question. I have developed a DB with about 60 tables, all related by one-to-many relationships. During development, I placed values in the tables, generated keys, etc. so things have gotten quite cluttered. Is there a way (vb program, access method, etc.) that I can use to remove all the entries from the table, and essentially start with a set of clean tables and no keys? I'd like to be able to run this from a control on a form.
View 2 Replies
View Related
Sep 13, 2005
I am currently using this Query to delete all records in Table x:
Delete * From x;
Then repeating similar for Table y, then Table z, etc
I would like to delete all records from multiple Tables in a single step, e.g.:
DELETE x.*, y.*, z*
FROM x, y, z;
I get an error message "could not delete from specified tables". Could anyone tell me where where I am going wrong?
Thanks
k
View 4 Replies
View Related
Jun 28, 2005
I created a search form (using code from here) that searches serveral fields and displays the results in a listbox. I also created a clear button to clear the fields, including the listbox. I can search all day and it works fine, and the CLEAR button clears out the fields fine but once I have clicked the CLEAR button, I cannot search anymore. I don't get any results anymore (until I close and reopen). It must be something simple that I am overlooking so any hints would be appreciated.
Here is my code (sorry it's long!):
Private Sub cmdClearForm_Click()
On Error GoTo Err_cmdClearForm_Click
Dim I As Integer
' Cycle through the form's controls, testing for text,
' and clear each field.
For I = 0 To Me.Count - 1
If TypeOf Me(I) Is TextBox Then
Me(I) = ""
ElseIf TypeOf Me(I) Is ListBox Then
Me(I).RowSource = " "
End If
Next
Me.txtMacAddr1.SetFocus
Exit_cmdClearForm_Click:
Exit Sub
Err_cmdClearForm_Click:
MsgBox Err.Description
Resume Exit_cmdClearForm_Click
End Sub
Private Sub cmdSearch_Click()
On Error GoTo Err_cmdSearch_Click
Dim strSQL As String, strOrder As String, strWhere As String, strOrderChoice As String
Dim db As DAO.Database
'Dim qryDef As QueryDef
Set db = CurrentDb()
strSQL = "SELECT tblAsset.MacAddr1, tblAsset.SerialNum, tblIPAddresses.IPAddress,tblIPAddresses.HostName, tblLocation.JackNumber, tblLocation.CircuitID, tblLocation.Department,tblLocation.SpecificLoc, tblLocation.User, tblLocation.Building, tblLocation.RoomNumber " & _
"FROM tblAsset, tblIPAddresses, tblLocation " & _
"WHERE tblAsset.AssetNum=tblIPAddresses.AssetNum and tblAsset.AssetNum=tblLocation.AssetNum"
strWhere = " and "
strOrder = "order by"
strOrderChoice = "tblLocation.Department"
If Not IsNull(Me.txtMacAddr1) Then
strWhere = strWhere & "(tblAsset.MacAddr1) like '*" & Me.txtMacAddr1 & "*' and "
strOrderChoice = "tblAsset.MacAddr1"
End If
If Not IsNull(Me.txtMacAddr1) Then
strWhere = strWhere & "(tblAsset.MacAddr2) like '*" & Me.txtMacAddr1 & "*' and "
strOrderChoice = "tblAssest.MacAddr2"
End If
If Not IsNull(Me.txtSerialNum) Then
strWhere = strWhere & "(tblAsset.SerialNum) like '*" & Me.txtSerialNum & "*' and "
strOrderChoice = "tblAsset.SerialNum"
End If
If Not IsNull(Me.txtIPAddress) Then
strWhere = strWhere & "(tblIPAddresses.IPAddress) like '*" & Me.txtIPAddress & "*' and "
strOrderChoice = "tblIPAddresses.IPAddress"
End If
If Not IsNull(Me.txtHostName) Then
strWhere = strWhere & "(tblIPAddresses.HostName) like '*" & Me.txtHostName & "*' and "
strOrderChoice = "tblIPAddresses.HostName"
End If
If Not IsNull(Me.txtJackNumber) Then
strWhere = strWhere & "(tblLocation.JackNumber) like '*" & Me.txtJackNumber & "*' and "
strOrderChoice = "tblLocation.JackNumber"
End If
If Not IsNull(Me.txtCircuitID) Then
strWhere = strWhere & "(tblLocation.CircuitID) like '*" & Me.txtCircuitID & "*' and "
strOrderChoice = "tblLocaton.CircuitID"
End If
If Not IsNull(Me.txtBuilding) Then
strWhere = strWhere & "(tblLocation.Building) like '*" & Me.txtBuilding & "*' and "
strOrderChoice = "tblLocation.Building"
End If
strWhere = Mid(strWhere, 1, Len(strWhere) - 5)
Me.lstResults.RowSource = strSQL & " " & strWhere & " " & strOrder & " " & strOrderChoice
db.Close
Exit_cmdSearch_Click:
Exit Sub
Err_cmdSearch_Click:
MsgBox Err.Description
Resume Exit_cmdSearch_Click
End Sub
View 4 Replies
View Related
Aug 24, 2005
I've developed a form where users enter and select information that will be stored in another table. Currently when I open the form, the information I entered from the previous use is still in the text and combo boxes. Is there a way to clear this information when the form is opened (so all boxes are blank)?
Thanks!
View 5 Replies
View Related
Sep 20, 2005
Is there a way to clear all the textboxes on my form without having to go through and assign "" to each text box value?
Thanks
Angelo
View 1 Replies
View Related
Dec 15, 2005
I searched the forum and couldn't find a thread to answer my question so here goes . . .
I have a form to lookup item number information. The user enters the item number and clicks on a "refresh" button to view information related to the item. Also the user can edit some of the fields using text boxes and a save command button.
I want to create a "clear" button which the user will click that will clear all of the data off the form before going to the next item. The form is bound to a table so I do not want to delete the data in the table, only clear the form. I have read that the form can be cleared by advancing to a new record. However, we do not want the user to create new records from this form. If you can tell me how to prevent the user from creating a new record, then the "advance to a new record" method could be a solution. I welcome any other ideas that you have to clear the form.
Thanks for you help,
Jeff
View 2 Replies
View Related
Jan 29, 2006
Hello all,
Need your help again.
I have an unbound form with text boxes and 1 check box.
I created a module named Reset;
Private Sub Reset()
[Sales].Value = ""
[Corporate].Value = ""
[EndDate].Value = ""
End Sub
1) I linked this module to a macro so that on clicking a button, the macro runs the module and closes it, but it's not working.
in my macro, I have open module: Reset
I also have clode module= Object: Module, Name: Reset
But this is not working
2) Also, how do I clear the check box?
Thanks again for the help.
View 6 Replies
View Related