I am working on developing a time table for my mothers day care to include payments due, total payments for the tax year and a few other items. The issue I am having is developing the table to track when the children are present. I would like to use the built in calander function in which I can click on the days of the week the children are present and store this into a table as a yes no for each day. Once the data is stored in a table, then I can convert this information into a billing cycle and then go from there.
HI, I've been banging my head on this, and I just can't seem to find a good way to create my tables.
They want a selection with a sub selection, and then allow the user to fill in data depending on that data. I'm not sure if I should make a new table to hold the data for each sub selection? Or should I make 1 larger table with columns for all the sub selection data fields, even tho they won't all get filled in for each record.
Option #1 Option #1 sub choice Sub Choice 1 Sub choice 1 fieldsDates, field 2, field 3 Sub Choice 2Sub Choice 2 fieldsDates, Sub Choice 2 fields
Option #2 and same structure as before, just different options.
this is so hard to explain, not even sure I should post this.
I have never used the calander control in access I am Very new to Access code as well. But I am Learning.
This is what I am trying to do
I have a Customers tbl and a Salesmen tbl
I would like to have a calander that I can use to set appointments for multiple salesmen in a form. I have looked at the calanders posted here and now of them do anything like what I am trying to do. Is this possiable to do?
i'm using the attached popup calander in my form and subform ,,, it works perfect in my form but when using in the subform, i get an error saying "the specified form can't be found"
if i open the subform as a form it works
so my question, is do i have to change anything in the calandar code so it could open in subform as well ??
I have a popup calendar which works perfect on my form but will not work in an imbedded sub form. If I go to the sub form itself it works perfect both in datasheet view and Form view. But if I go to the main form which this same sub form is imbedded (datasheet view) it does not work. The calendar appears on double click but date does not update when clicked. The code in on dbl click is =opencalendar("") Anyone know what I am doing wrong please ? Rgds Roc
It's a Bed and Breakfast. There are two Access Tables in the query. No spreadsheet. The Reservations table has RoomNumbers (some of which repeat because different customers rent the room during different time periods), CustomerNumbers, Check-inDate and Check-out Dates. The Rooms table has RoomNumber, FloorNumber, PricePerNight fields. The calculated field that I have developed to figure the money generated by each room is Total:([Rooms].[PricePerNight])*([Reservation].[Check-outDate]-[Reservations].[Check-inDate]).
I currently work for a large healthcare system as a Nurse Recruiter. We have had the need, fro quitre some time, to have the ability to track all interviews. I have recently developed a database that will allow us to do this and much more but have run into a few snags. I hope someone will be able to help.
Problem:
I would like to create a "pop up" query on one of my forms. I would like to have the ability to type in a date in the pop up box and and thus generate a report that allows me to see all interviews scheduled for that day/date. I have tried several things but cannot seem to get anything to work. I cannot even get the "pop up" box to work corrctly.....any suggestions?
The other task that I am trying to accomplish is not to allow people to schedule interviews at the same hospital for the same time on the same day/date. Ideally I would like an error message to pop up if this occurs. Any suggestions on how to build this query?
My DataBase:
It is a very simple database utilizing only one table, a few queries, a few macros, and 4 forms. I have attached a picture of my table so that yuo may view all available fields.
As you can tell i am relatively new to this but am very anxious to learn as much as I can so that I may improve! Any help is very much appreciated!
We are a SME with a 4 year old access database which is in need of updating with new tabs and various other new spec. We are struggling to find an access programmer who is right for this project.
Does anyone know someone who could have a look at this project??
We are in the Greater Manchester area at present but will be rolling out on a regional and then national scale with this in the next 12-18 months
I have created a table that acts as a header for my data and a second table that acts as line item data. What I need to do now is add a second child table that uses the line item data as its parent table and stores associated line items for each record. Is this possible?
I have 3 table table; Invoice table, Product table and Sale_product table. Sale product table records all sale from the product table
Invoice table has these fields ID TOTAL CASH_TENDERED CHANGE
Product table has
ID CODE QUANTITY NAME PRICE
and Sale_Product table has these ID PRODUCT_CODE QUANTITY PRODUCT_NAME PRICE SUBTOTAL INVOICE
I did main form from Invoice table and sub form from Sale_product table. I want to use DLOOKUP function to load the name and price, quantity and calculate subtotal automatically from the product table based on the product code entered. i have being trying hard and i keep on getting "Name? error"
i'm trying to connect to a table valued function on sql (2005) but keep getting the following error: argument are of the wrong type, are out of acceptable range, or in conflict with one another.here's the code
Code: Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Set cnn = New ADODB.Connection cnn.ConnectionString = "DSN=mydsn;UID=myuser;PWD=mypw;" cnn.Open
As you can see the purpose of this function code is to register into the TblLogChanges every single record exclusion or record change made in any form field of my project when the form is active. In other words if the user changes for example the value of the field Color in the form FrmX from Yellow to Black, the TblLogChanges will have added a line indicating: FrmX, type of change (record change or record exclusion), RecordId (in my case CADID), Current User, Date, and a complimentary string showing Field Color old value=Yellow --> Field Color new value=Black.It works fine when the field "old" value is populated (not null). However, if the feld old value is null, meaning, if the field value is originally null, or yet if the field is originally empty, and I fill it up with some data, then the code does not add an indicative line into the table TblLogChanges.
See function code below.
FYI the function is called in both Before Update and Delete events of the form with the following syntaxes: =logChangeFrmCadastro("E") for record exclusions, and =logChangeFrmCadastro("A") for record changes.
I have failed so far to make it happen. Reason is I'm able to read and understand most written syntax but still not good enough to create my own codes since I do not know to use the range of VBA commands and syntaxes available yet. This is a knowledge gap I'm doing my best to fill in.
what function code changes are required so the function be able to add an indicative line into TblLogChanges when the user changes a form field from "empty/nothing" to something?
Code: Option Compare Database Option Explicit Function LogChangeFrmCadastro(strTipo As String) On Error Resume Next Dim db As Database, rslog As Recordset Dim frm As Form, I As Integer
I've read through the forums on saving the results of a calculation into a field is a bad idea. I somewhat understand the reasoning for it. But I don't think such situations arise for everyone.
But I have gone with the suggestion and created an updatequery, which simply goes through and updates the calculated value into a table. Now each time the updatequery is run its asking for permission as to the fact if I'm sure I want it to be run. How do I turn this option off. And should I call this updatequery afterupdate or beforeupdate?
I am trying to find a way execute various "like / is not like" commands on a field within a table. Rather than build 30-40 different "like / is not like" commands to execute on this specific field, I would prefer to have one "like" comand and have it's elements listed in a reference table that I can call into the "like" commend or function.
In this way I can change the "Like" statement filtering criteria by simply adding or deleting filter elements from the reference table rather than have to modify the "like" command's hard coding.How to do something similar, perhaps using a different function or macro?
I am running a query for an apparel manufacturing facility. In my query I have a table called 'OrderForm' which is where the orders are put in. There are more than one type of fabric that can be a part of an apparel item, so as a result, there are multiple fields pulling from the 'FabricType' table. In order to get this to work in my query I created 'SubTables' for the different fabric fields. For example, I have tblFrontfab, tblbackfab, tblsleevefab, and tblcollarfab which are just extra copies of the 'FabricType' table. The actual question is that when I want to replace characters like ,./& in the fabric field but I can't use the replace function. It says that it is too complex to calculate.
I used this notation Frontfab: Replace([tblFrontfab].[fabric],".","") and the error was that it is to complex to evaluate.
I a trying to list all fields from ALL tables in a certain DB.I am using the tableinfo function. However, because the output of the immediate window is limited to 200 lines, I can only see the last 200 fields. Is there a way to export this in another way than the debug.print procedure, so I can bypass this limitation?
Code:
Public Sub showtablefields() Dim db As Database Dim tdl As TableDef
I am having some minor issues with my current database. The way it works currently is having a MainMenu where you can either go to customers/ ProductList/ Product OR ProductList straight away. I have a CustomerT and a ProductT. I have made a Query where I link the two tabels to have the feature showing the customer to the specific product with the criteria: "Kunde: [CustomerName] & " " & [Subsidiary]" on the form I have a txtsearch (Textbox) connected to a button with this coding:
Private Sub Kommandoknap49_Click() Dim strsearch As String Dim strText As String If (Len(txtsearch.Value) > 0) Then strText = Me.txtsearch.Value
[code]....
This allows me to search for text in each of the boxes with information on the single product(s) for example searching for Kunde (Customer in Danish) or ProduktNavn (Name of product) HOWEVER when I do this the "Kunde" turns into "#Navn?" c..If i reopen the Form it will show with the right information. I also tried to code the "Byactivation" to
I have created a Public Function that would get a new Production Instructions number based off the [PI Number] of Tbl_Production_Instruction table.
I have a form that people will put in all information but the PI Number, then when ready they will click a button to update the PI Number. I place an unbound txtbox that will be hidden, with the control source to =NewPINum(), but when I tested the see if the unbound txtbox was populated with the new PI Number it was blank.can't figure out what I am doing wrong.
Code: Public Function NewPINum() As String Dim vNum As String Dim strYYMM As String Dim getnextPI As String strYYMM = Format(Date, "yy") & "-" & Format(Date, "mm") & "-" If strYYMM = Left(DMax("[PI Number]", "Tbl_Production_Instruction"), 6) Then vNum = Right(DMax("[PI Number]", "Tbl_Production_Instruction"), 3) vNum = vNum + 1 getnextPI = Format(Date, "yy") & "-" & Format(Date, "mm") & "-" & Format(vNum, "000")Else vNum = "001" getnextPI = Format(Date, "yy") & "-" & Format(Date, "mm") & "-" & Format(vNum, "000") End If End Function
I have a project at hand and it's been a predecessor of mine and client has asked me to do some work on it and extend functionality - but I have not really delved into Access before and I have had to worked my way through to this final snag :/
The Main Form has one sub form. This sub form allows the user to add multiple order items i.e. qty, stock, description from records within the system - fairly straight forward.At the last column of each row is the sub total of those particular items i.e.
Qty Unit | Item ID | Total ----------------------- 2 | 1234 | 80.00 ------------------------ 1 | 43526 | 20.00 ------------------------ > | |
So the total is a function of =[Qty Unit] * [Unit Price].Then in the Footer of this SubForm is the Sub Total
=SUM([Qty Unit] * [Unit Price])
All fine and well..... However, the additional functionality kicks in.
Lets add the additional customer_id from the Main Form. Each Item bought is dependent on the customer_id i.e. they get special prices depending on who they are.So a New table is made which has the Item ID and SpecialPriceID (of a table to define as a specialPrice) and the Price linked to this Item and Special Price category. So say that there are two groups of users "wholesale" and "nonwholesale" these would be SP_1 and SP_2 and each client is defined either one of these, and each stock item has a Price for each SP_1 and SP_2. Hopefully I've explained myself there.
Back to the SubForm. So now the Total needs to calculated differently with needed the external customer_id from the Main Form.
Code:
Function CalculateSpecialPrice(ItemID As String, CustomerID As String, Unit As Integer) Dim SPSelect As String SPSelect = "SELECT Price FROM [Items_SpecialPrices] WHERE" SPSelect = SPSelect & " ItemID = '" & ItemID SPSelect = SPSelect & "' AND SpecialPriceID = (SELECT SpecialPriceID FROM Customers WHERE customer_id = " & CustomerID & ") "
[code]....
its the sub total I just keep on getting #Error on. I have even watched (using alerts) that the correct return variable is the same as the individual rows. This is the equation I used for the SubTotal within the footer.
I have a form based on query. On form i am retrieving data from another table using DLookup in a unbound text box. So I want to save the result of DLookup function in another field/table on same form.