Hello,
On my form the first control which gets focus has a code which cannot contain a null value. It may happen nevertheless that users may need to just close the form without making an entry in this control (listbox).
Is there a way I can add a code to a cmbbutton to skip that forced entry meaning to leave the control null and exit the form? Thank you.
I was reading the threads related to bypass issues...
Now I know how to disable (or enable) shift key of a database with password using the code provided by ghudson:
http://www.access-programmers.co.uk/forums/showthread.php?t=51479&highlight=bypass
In other thread he provided another way to enable or disable the shift key using another method: (developed by Ricky Hicks):
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=48&Number=233728&Forum=f48&Words=disable%20shift&Searchpage=0&Limit=25&Main=233728&Search=true&where=bodysub&Name=&daterange=0&newerval=1&newertype=m&olderval=&oldertype=#Post233728
this one can easily disable or enable the shift key of any database... even if that is disable with the password protected method provided by ghudson...
so... my question... is there any method that will ONLY allow enable or disable the key with a password?
Hi all...
I have a form that OnOpen does;
DoCmd.GoToRecord , , acNewRec
But, I also call it from another form, using a criteria, but because of the OnOpen event within the form it goes to a new record.
I need to be able to bypass the OnOpen event or find a different way of opening the form to goto a new record...
Please help!
Simon
Is there a way to change the shift key and use another key on startup?? Security for me isn't a big issue... but I'd still like to protect things from being tampered with. I don't want to use MS security (I use it on other DBs) but its not really approriate on the one I'm developing. Any ideas??
View 4 Replies View RelatedIn Access 2010 I'm setting and unsetting the bypass shift key property - set to true for users and set to false for me, the developer. No problem but what I can't figure out is how do I work out whether it is set or not?
View 1 Replies View RelatedIf I hold down the SHIFT-key and click on my access database the database boots up with the startup options! I can't get into my database even if I hold down the SHIFT key!! Help me, please
View 2 Replies View RelatedI just post this one because it took me more than an hour to find a comfortable solution for access 2003
http://support.microsoft.com/default.aspx?scid=kb;en-us;826765
To set the AllowBypassKey property to False, follow these steps: 1. Start Access.
2. Open an Access database project.
3. In the Database window, point to Macro on the Tools menu, and then click Visual Basic Editor.
4. In the Visual Basic Editor, click Immediate Window on the View menu.
5. Type the following code or paste the following code in the Immediate window, and then press ENTER.CurrentProject.Properties.Add "AllowBypassKey", False
6. Close the Visual Basic Editor, and then close the Access database project.
7. Open the Access database project. Try to bypass the startup options that are set for the Access database project by holding down the SHIFT key while you open the Access database project.
The functionality of the SHIFT key that permits you to bypass the startup option is disabled. Although you hold down the SHIFT key to bypass the startup options, the startup options are executed. You cannot bypass the startup options.
I've used this parameter back in Access 2.0 where I ask for I put [What location?] as the parameter and users can put 'North' or hit enter to get all locations.
View 3 Replies View RelatedHello,
I have a db that I want to password, so that anyone pressing either F11 or holding shift down at the start, will be prompted with a password.
.....But, I want the user to be able to see the start-up form and associated forms without having to enter a password.
Is this something that is possible to do in Access97?
I have searched the forum for an answer, but can't find anything.
Thanks, Steve.
I know that I can startup MS-Access manually and bypass the startup options, including any macro that is set to run automatically, by holding the Shift key down when launching the application. I have:
Code:
Public Sub AccessStuff()
Dim myaccess As New Access.Application
myaccess.OpenCurrentDatabase(" orfs006slsops_repts\_RS DevSOPSOP.MDB")
Dim db = myaccess.CurrentDb()
End Sub
which works nicely and opens the database just fine. However, this mdb has a startup macro defined in it. I can't hold down the Shift key since I'm doing this from a program. In this case, how can I bypass the startup macro?
I have a database which is slowly evolving. Users needed a feature to delete some records without a trail and some with a trail from the form. So I added an apply action field in the subform using which they can delete a record without a trail and if they wanted to keep a trail they could do that too. When user selects "Delete Violations as it was entered in error" the system deletes the record completely which is what everyone wanted.
After six months of use now I am asked to add an audit trail. I managed to do that also. I also looked at Browne's method but my data structure does not match the requirements for that method. I used an alternate method. It works as intended except when a record is completely deleted using the code I mentioned above. Then it goes in the infinite loop. I somehow need to bypass the before update event so that the function to write the audit trail is not called.
I have attached the database ...
How to by pass error 3021 No current record
I know I can put the code below just don't know where to put it.
If Err.Description = "No current record" Then Resume
I attached a pic of my code that is causing the error .. and its okay I just want to by pass the message box.
I am able to bypass the shift key so I can disable ribbon and all menus at startup.
But the issue I have is anytime someone makes a copy of the database or it is their first time opening it they get prompted with the security warning:
"Security Warning - some active content has been disabled, click here to enable"
and it gives them complete access to see the back end of the database because while that warning message is popped up ... before they click "enable" they can go do anything in the database including see tables, data, and vba.
Once they click "enable content" that first time the bypass takes effect and the ribbon and all menus disappear, but if they dont click it they can navigate all around the db
how can i stop that?
There is a table with many columns. I want to add many rows to this table. The easiest way is to write a query to do that. But most of the columns have validation criteria, lookup tables, default values, nulls not accepted condition and what not. Where as my new records to be added have only the values in 4 columns and the rest are null. Is there a parameter that can be used to bypass all these controls and add the records? You are going to say "You will destroy the integrity and consistency of the database".
View 1 Replies View RelatedI have a form for displaying the Club Members info (like Name, Address etc).
I'd like on the top right of the total debit of each Member to be displayed.
For that reason I construct a Total query.
Problem is that when I'm trying to relate the MemberInfo form with this query,
all my records are locked due to the restriction that forces a Group By query.
Since in my case the info provided by this query is eitherway only for read puposes (just displaying the Balance) can you suggest me a trick or something to bypass the Access restriction concerning the Group By queries?
Thank you in advance
Works great, but when I hit the number "3", (3 times in row) it will let me into the form. I want it to not let me in IF I don't know the password.
Where did I go wrong?
Private Sub Form_Load()
Dim pw As Variant
If InputBox("What is the password?", "Password") = "1" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
If InputBox("What is the password?", "Password") = "2" Then
Else
MsgBox "Invalid Password", vbCritical, "Sorry Charlie"
DoCmd.Close
End If
End If
End Sub
I protect my code from people being able to read it by setting a password on the code from Tools > Properties, selecting the Protection tab and entering a password, and clicking "Lock Project"
Is there a way to write code that will remove that Lock Project check and check it back on?
I've looked through the Application.SetOption command and it doesn't seem to be one of the choices. It would be very helpful if someone knew how to do this.
Thanks
SHADOW
I have a button that runs a macro to insert NOW() into a text box.
This is how it is coded;
Private Sub Start_transferred_job_button_Click()
On Error GoTo Err_Start_transferred_job_button_Click
Dim stDocName As String
stDocName = "Start transfered job"
DoCmd.RunMacro stDocName
Exit_Start_transferred_job_button_Click:
Exit Sub
Err_Start_transferred_job_button_Click:
MsgBox Err.Description
Resume Exit_Start_transferred_job_button_Click
End Sub
How do I write the code to populate the [start Time] text box with NOW() when the button is clicked without using a macro???
Need a little help here. I have this code on a command button that open a form that displays a chart. The chart work great as long as there is data to display. However, if there is no data then the chart is blank. So what I'm trying to do is add a dcount to catch the 0 and give an error. So the 1st query makes the table where the data for the chart come from. The Qry-Test for Zero query, queries that new table if dcount is 0 it should error.
My problem is that I can't get this to work with the 0 if I make it 1 then I will get the message box if there are no records and if there is 1 record 2 and greater work fine. So my question is why won't the code catch the 0?
Dim stDocName As String
stDocName = "Qry-Makes Table"
DoCmd.OpenQuery stDocName, acNormal ', acEdit
If DCount(" * ", "Qry-Test for Zero") = 0 Then
MsgBox " There is no data for this time frame to chart. Please re-enter your Date range"
Exit Sub
Else
Thanks
jon
Need a little help here. I have this code on a command button that open a form that displays a chart. The chart work great as long as there is data to display. However, if there is no data then the chart is blank. So what I'm trying to do is add a dcount to catch the 0 and give an error. So the 1st query makes the table where the data for the chart come from. The Qry-Test for Zero query, queries that new table if dcount is 0 it should error.
My problem is that I can't get this to work with the 0 if I make it 1 then I will get the message box if there are no records and if there is 1 record 2 and greater work fine. So my question is why won't the code catch the 0?
Dim stDocName As String
stDocName = "Qry-Makes Table"
DoCmd.OpenQuery stDocName, acNormal ', acEdit
If DCount(" * ", "Qry-Test for Zero") = 0 Then
MsgBox " There is no data for this time frame to chart. Please re-enter your Date range"
Exit Sub
Else
Thanks
jon
I use the code below on a search form. I would like for the results of the list box search to populate a report instead of the list box. Is it possible to take the the sql and move it to a report? Thanks..
Dim strsql As String, strOrder As String, strWhere As String
Dim dbNm As Database
Dim qryDef As QueryDef
Set dbNm = CurrentDb()
strsql = "SELECT SiteIssues_tbl.IssueID, SiteIssues_tbl.SITE_ID, SiteIssues_tbl.IssueID, SiteIssues_tbl.AdminDate, SiteIssues_tbl.Occurring, SiteIssues_tbl.Issue, SiteIssues_tbl.Administrative, SiteIssues_tbl.Technical, SiteIssues_tbl.IssueComments, SiteIssues_tbl.CandidatesAffected, SiteIssues_tbl.RecordCreated, SiteIssues_tbl.User, SiteIssues_tbl.DateModified " & _
"FROM SiteIssues_tbl"
strWhere = "WHERE"
strOrder = "ORDER BY SiteIssues_tbl.AdminDate;"
'Set the WHERE clause for the QueryDef if information has been entered into a field on the form
If Not IsNull(Me.txtIssue) Then '<--If the textbox txtCenterName contains no data THEN do nothing
strWhere = strWhere & " (SiteIssues_tbl.Issue) Like '*" & Me.txtIssue & "*' AND" '<--otherwise, apply the LIKE statment to the QueryDef
End If
If Not IsNull(Me.txtAdminDate) Then
strWhere = strWhere & " (SiteIssues_tbl.AdminDate) Like '*" & Me.txtAdminDate & "*' AND"
End If
If Not IsNull(Me.txtSite) Then
strWhere = strWhere & " (SiteIssues_tbl.SITE_ID) Like '*" & Me.txtSite & "*' AND"
End If
'Pass the SQL to the RowSource of the listbox
Me.lstSearchResult.RowSource = strsql & " " & strWhere & "" & strOrder
With Me.lstSearchResult
If .ListCount > 0 Then
GetListCount = .ListCount - 1 'Headings count
Else
GetListCount = 0 'Headings don't count if no items listed!!
End If
Me.Text31 = .ListCount - 1
Dim ctl As Control
End With
If Me.Text31 = -1 Then
Me.Text31.Value = 0
Me.lstSearchResult.RowSource = ""
DoCmd.RepaintObject acForm, "SitesIssues_qry"
Me.Requery
MsgBox "No Records Found."
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acCheckBox Then
ctl.Value = Null
DoCmd.RepaintObject acForm, "SitesIssues_qry"
Me.lstSearchResult.RowSource = ""
Me.Requery
End If
Next ctl
End If
I have written the code below, which should work, however I am receiving an Error: Run Time Error '13' Type mistmatch on line:
Set cn = Application.CurrentProject.Connection.
Can anyone help?
Option Compare Database
Option Explicit
Private Sub cmdRun_Click()
Dim NICode As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim strSQL As String
Set cn = Application.CurrentProject.Connection
Set rs = New ADODB.Recordset
NICode = "txtLetter"
strSQL = "SELECT " & NICode & "1a, " & NICode & "1b, " & NICode & "1c, " & NICode & "1d & NICode & "1g & NICode & "1h FROM [WorkPlace NI Breakdown]"
rs.Open strSQL, cn
If Not (rs.EOF And rs.BOF) Then
MsgBox rs.Fields(NICode & "1a")
MsgBox rs.Fields(NICode & "1b")
MsgBox rs.Fields(NICode & "1c")
MsgBox rs.Fields(NICode & "1d")
MsgBox rs.Fields(NICode & "1g")
MsgBox rs.Fields(NICode & "1h")
End If
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub
Hi all,
I have code bellow which is bringing a tab called Heffalump from the excel spreadsheet into table. Now, what I need is to create a text box where I will be typing PI1228131313 and it's going to be changed in the code bellow.
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Test Import Specification", "K:FIDCPGCCGPI1228", True, "Heffalump!"
THANKS,
B
Hi All,
I have a code bellow which takes data from Excel spreadsheet and puts it into table in access. I want to see this code in txtbox and be able to change the path's.. Please advice. I tried typing.. Me.mytextbox.value = but for some reason doesn't work..
Should I use Ufter Update or something like that..?
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Test Import Specification", "K:FIDCPGPI1206", True, "Heffalump!"
Hi,
I 've converted the code to ADO method. It was working fine in DAO but know I get the following error and i can't figure it out the soloution.
Run-time error ‘3265’
Item cannot be found in the collection corresponding to the requested name or ordinal
Function ChangeQuantUnit(Material, quant_a, unit_a, unit_b)
Static M As New ADODB.Recordset
Static Mat_SQL As String
ChangeQuantUnit = 0
Mat_SQL = "SELECT SAP_Materials.Material, SAP_Materials.K, SAP_Materials.Base_K, SAP_Materials.KG, SAP_Materials.Base_KG, SAP_Materials.MTR, SAP_Materials.Base_MTR, SAP_Materials.ST, SAP_Materials.Base_ST FROM SAP_Materials WHERE (((SAP_Materials.Material)=""" + Material + """));"
M.Open (Mat_SQL), CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If unit_a = "LB" Then
ChangeQuantUnit = (quant_a / 2.2)
Else
If M(unit_a) * M("BASE_" + unit_b) > 0 Then 'this is the line that crashes
ChangeQuantUnit = quant_a * M(unit_b) * M("BASE_" + unit_a) / (M(unit_a) * M("BASE_" + unit_b))
End If
End If
M.Close
End Function
Can anyone help with this code please. I keep getting Error 13, type mismatch on the on click event of a Command button.
Private Sub Command6_Click ()
Dim tmpFilePath AS String
tmpFilePath = Me!Text1
DoCmd.DeleteObject acTable, "Expire"
DoCmd. TransferDatabase_ acImport,"MicrosoftAccess",acTable,"tmpFilePath","Expire","Expire",False
End Sub
What I am trying to do is delete a table and replace it with a table of the same name in another db. the path to the file is stored in Text1. The delete part works OK then the error message arrives, when I run it with a static file path it worked ok, but I want to pick up the path stored in Text1 on my form.:confused:
Thanks for your help