Modules & VBA :: Open Recordset To Do A Simple Calculation And Lock It Again
Feb 18, 2014I'm trying to open or unlock a recordset do do a simple calclation and then relock the record set. How this can be done with vba?
View RepliesI'm trying to open or unlock a recordset do do a simple calclation and then relock the record set. How this can be done with vba?
View RepliesI'm trying to lock a checkbox when the forms open and depending if one has role as admin, it should unlock it.When I add the below code in the on open form I get error:
Code:
Me.lock_case_admin.Locked = True
Me.lock_case_admin.BackColor = 12632256
This is the part that should onlock if it is admin:
Code:
Me.lock_case_admin.Locked = False
Me.lock_case_admin.BackColor = 16777215
Maybe it is me, or the checkbox is giving the error that causes the dialogbox to open to to choose the ID nr.
How to open a Record Set For the combo-box? My Original Code as follows
Dim conn As New ADODB.Connection
Dim objMyRecordset As New ADODB.Recordset
Dim strSQL As String
Set conn = New ADODB.Connection
[Code] ....
After i use this code nothing come out on my combo-box...
The code below fails.
Code:
Dim ResultQy As String, qdf As QueryDef
Dim ResultFm As String
ResultQy = "ByFederationQy"
Dim strSQL As String 'sql statement to execute
[Code] ....
When I run the code it fails at the last line giving error message:
Code:
Runtime error 3061 - toofew parameters expected 1
I am storing values of pictures and the location of them in a table, this works fine!... using OpenRecordset. The problem is that when the function is called to store the information, it just keeps adding the same values of each file in the folder over and over again in a word "Duplicating" the information.
I have tried various methods using the OpenRecordset, but cannot seem to find the correct manor of applying the code.
Below is the function I have for storing the data...
Code:
Public Sub GetFilesNamesFromFolder(strFolderPath As String)
On Error GoTo ErrorHandler
Dim objFSO As Scripting.FileSystemObject
Dim objFolder As Scripting.folder
Dim objFile As Scripting.File
[Code] .....
Well, I hope this is simple, but for some strange reason, very difficult for me.
I'm having issues setting up a calculation between 2 tables. for example:
Table1 ID Quantity
Table2 TransID Used
The "Quantity" from Table1 is a set number but the "Used" will change. all I want to do is have a Form and Report that will subtract the "Used" from Table2 from "Quantity" from Table1.
I've tried: =Table1.Quantity - Table2.Used
=Quantity - Used
what am I doing wrong? all my attempts have failed, even though I have setup a relationship between the 2 tables.
any idea?
thx
Hiya,
I have a formula in my querry which works.
total: (Ticket_Info!T_Number_of_tickets*Ticket_Info![T_How_many_games/events_does_this_allow?])-(Ticket_Info![How many Clients are going?]+Ticket_Info![How many Aplant staff are going?])
Now what I would like to happen is that if this value does not =0 then for a mesage to pop up to alert the user that they need to ammend something.
Background of database:
It is to record where and who a business take people on trips out.
So the questions asked have been: how many tickets do you have? Then how many people are you taking (followed by a break down of people). So if the number of tickets don't = the number of people going the user needs to fix it.
Thank you so much im completly lost!
Sarah :(
Hi,
I have used the Contacts template.
I want to make a simple calculation for mins remaining from sunbed courses.
So lets say one of my clients in my database was called Sally.
When I open up Sallys details screen I want it to show:
- What sunbed course she's on (inputed via details screen per course taken out)
- How many mins she's used (inputed via details screen per visit)
- How many mins remaining (calculated for us)
I don't know how to make these calculations!!!
I can not work out how to put formulas into the Contacts table.
Can anyone help me out please?
(see pic below)
http://img219.imageshack.us/img219/9760/accesssunbedzd5.jpg
Hello.
Please see attached picture for an idea on what i'm talking about. I need to achieve the following:
I have a query and it gives a total policy commission for each policy an agent sells. There are several agents under one commission statement.
For example
agent ref 1, policy 1, information, commission amount
agent ref 1, policy 2, information, commission amount
agent ref 1, policy 3, information, commission amount
agent ref 2, policy 1, information, commission amount
agent ref 2, policy 2, information, commission amount
agent ref 2, policy 3, information, commission amount
agent ref 2, policy 4, information, commission amount
agent ref 3, policy 1, information, commission amount
etc...
What i need access to do is add a total for each agent before it shows the next agent, so the above example would change to:
agent ref 1, policy 1, information, commission amount
agent ref 1, policy 2, information, commission amount
agent ref 1, policy 3, information, commission amount
Total: commission total
agent ref 2, policy 1, information, commission amount
agent ref 2, policy 2, information, commission amount
agent ref 2, policy 3, information, commission amount
agent ref 2, policy 4, information, commission amount
Total: commission total
agent ref 3, policy 1, information, commission amount
etc...
I hope that this makes sense, and i know its probably very simple but im a n00b! so any help would be much appreciated.
Kind Regards
Darren
I am trying to do a simply calculation on a report which uses a value from a subreport. The main report is called rptAllProjectsStatus the sub report is called rptAllProjectsStatusExp, and the box from the sub-report is called tboAmount which is controlled by query.
In the main report I have a box whose control source is
=[tboFixedFee]-[tboSumStaffingCost1]-rptAllProjectsStatus!rptAllProjectsStatusExp!tboAm ount
But it doesn't recognise this formula - what am I doing wrong?
I know the problem is with the latter part of the formula (in connection with the sub-report), as if I remove this part, the rest of the calculation works fine.
thanks
S
I have been designing my first database and am just about ready to finish my first report. I have created a text box and added the following to the box =myfield1+myfield2+myfield3+myfield4
I created this through the expression builder so I know the fields a correct but now the calculation is not working. I don't get any calculation in the box except a "0". Why isn't this calculation giving me the sum of these 4 fields?
Please please help.....
I have a report that contains an expression field for total sale. It is computed from multiplying quantity * price. I want to have a grand total item at the end of the report that sums all the "total sales" items. My question is what is the syntax to do this and also what section of the report should I put it in? Should I put it in the header? Any and all help is appreciated.
View 3 Replies View RelatedHello,
This is a pretty simple question I'm sure. This is a simplified version of my data:
AAC |Begin |End |Total # of days |Average for AAC
m28357|7001|7195|
m28357|7001|7124|
m20195|7002|7234|
m20195|7002|7143|
The purpose is to calculate the total # of days by just subtracting the julian dates and then I need to figure out how to have some sort of way to calculate the average # of days but only based on AAC.
Thank you for the help!
Kat
Special situation: The SQL Server Linked Server across the country is linked to a Read Only Oracle DB. This data pull works perfectly and populates the Subform.
The problem is that Oracle can take 3 to 6 seconds to retrieve the single record depending on the network traffic through a small pipe.
The code below shows the RecordSource for the SubForm. clicking on a list box supplies the value. Then 3 to 6 seconds later, the subform populates.
The actual Recordset for this Recordsource is needed to conduct Validation on each field. Normally this would be on SQL Server, I might just create a Recordset Oject and run this SQL statement again in 1 milisecond. In this case, it will probably take an additional 3 to 6 seconds. Avoiding another lengthy round-trip to Oracle would be prefered.
Goal: How does one grab, clone, or other wise reference the existing recordset for the SubForm?
Note: Immediate Window - One single field can be returned quickly
There are 48 fields that need validation - is there a way to reference the entire recordset?
Immediate Window during Break Mode:
? me.fsubsrNavSHLBHL("NavSH_QQ")
NESE ' this is the correct value for the current recordsource
Set a breakpoint right after the line:
fsubsrNavSHLBHL.Form.RecordSource = "Select * from vsrNavigatorSHLBHL where Well_ID =" & txtNavWellID.Value
Immediate Window:
? me.fsubsrNavSHLBHL.Form.RecordSource
Select * from vsrNavigatorSHLBHL where Well_ID =91229
I want to keep the navigation pane open for use by the users, but I want it locked so that the users can't click on the top menu and change the pane's display from All Access objects to any of the other choices.
LockNavigationPane set to Yes is not the solution as this only prevents people adding, deleting and moving objects (such as tables/querys/forms).
I want to write a email where there are 2 or 3 different ordernumbers for same email, i want to include the email in the mail part as single column table. how to do it? also can i use result of one recordset for other recordset?
View 1 Replies View RelatedHello All,
How do I open a recordset in Access.
Thanks
Someone please tell me what is wrong with this code? (I have already defined db_file earlier in the sub.)
' Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & db_file & ";" & _
"Persist Security Info=False"
strSQL = "SELECT * FROM Families"
conn.Open
' Open Families Table with a cursor that allows updates
Set rs = New ADODB.Recordset
rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic, adCmdTable
This is the error I get. "Microsoft JET Database Engine --> Syntax Error in FROM Clause"
Thanks!
hi, im a beginner in access and want to do something like that:
<edit>this is in the DetailButton_Click() event</edit>
stDocName = "PersonDetails_Form"
DoCmd.RunCommand acCmdSaveRecord
'open form with recordset of person
DoCmd.OpenForm stDocName, , , "[P_ID] = " & Forms![PersonBase_Form]![P_ID]
'now the part i dont know how to do
If Not "[P_ID] = " & Forms![PersonBase_Form]![P_ID] Then
DoCmd.OpenForm stDocName, , acNewRec .....
End If
-> if there is no recordset of the Person, create new recordset with P_ID(hidden) and PersonNumber(visible and editable) from PersonBase
hey guys
having a corruption issue with my database, it happens when a user updates a record and a second user has that record open elsewhere. then when the second user closes they save their changes over the top, corrupting the whole record.
so i need to know with a recordset if there is a way to check if a second user is currently looking at the same record?
thanks
I have three tables see below
tblplantitem
tblplantgroup
tblplantservice
so I have frm called frmplant which holds the plantgroupname I.E plant type (airblow,leads) then I have subform call plantitemtblsubform which holds the plant item serial number, value ,service date which works great now my problem I have command buttom on subformplantitemsubform then opens form call frmpopupPlantService this opens to show plantitem service history but when I add a record then save close then click the same plant item to open form frmpopupPlantService show no service history even when I just entered ...
I have a continuous form that lists a group of records in a main form based on a query. On each line of this continuous form, there is a button that can be clicked to open the main form based on that record.
Code:
DoCmd.OpenForm "frmRAW", , , "[frmRAW].[FID]= " & Me.FID.Value
This works fine, although it filters the recordset to just that one record. What else do I need to apply the same recordset that is in the continuous form, so the user can also scroll through the records on the main form if they so wish to?
I want them to be able to click on the button in the continuous form, open the form to that record, but also give them the ability to scroll to the other records that were listed in the continuous form. The continuous form I mentioned is its own form seperate from the main form.
Hello all, I hope your hollidays were great!!
Ok I have a Continuous form that in one of it's fields contains Hyperlinks. The form is named [Song Info] and the field is [Play].
I want this field to be hidden and have a command button open up the hyperlink in that recordset. I think that all the info need
but if not let me know.
Thanks
Rich M
:mad: it sound really stupid but I am having problems on open.
I have a main input page for the database I am creating but when I open it up it brings up previously inputted data.
Any ideas on this?
Can someone please help !!
I have a table with four 'Yes/No' fields.
I have four forms (each form 'relates' to one of the 'Yes/No' fields) and contains additioanl information to be completed.
When I create a new record in my database I tick one, two three or all four of the 'Yes/No' fields.
I would like some VBA code that will automatically open the relevant form (depending on wether the 'Yes/No' box has been ticked) when I click a button.
Many thanks.
I have a form in datasheet view and on that form I have a yes/no tick box is it possible that when the tick box is ticked it locks the line from further entry.
View 3 Replies View Related