ChrisPadgham

values is a string, try replacing it on line 10 by subsum and delete line 12 Also I don't think you need to convert to an integer. If you are only expecting relatively small integers in the list box why not use integers the whole way through rather than doubles.

check out the datediff function I think you will find it does what you need

Tuition = myCommand.ExecuteScalar.ToString

I am not sure you need a links table for such a simple structure. Ensure each row has a unique id, include a column named something like parentId to hold the id of the parent record.

it would help if you formated your text but I can only see one loop in code

I think the problem is more that the spreadsheet is treating the data as numbers if you altered the formating in the spreadsheet to treat it as text it may solve your problem

Presuming you hold year first enrolled in the Student table you are best to use a calculated field in a view that concatenates these to fields YearEnrolled & '-' & StudentId AS StudentNo

I have just started using Access 2010 and am experiencing problems with it corrupting the database. To take one example I have a database with one module in it. Today when I open the module in design view Microsoft Access falls over with the error "Microsoft Access has stopped working" …

Probably cost is never being set. Your code is not robust because it does not cater for all situations, for example it does not cater for weights greater than 100. If you can't accept weights > 100 you should cater for that in the code and display an error message.

The error means that the object you are passing to the subroutine is not a combo box or the subrountine declaration is not correct.

can I suggest you download the Core Data lecture from iTunes by Paul Hegarty of Stanford University. I think you will find it helpful.

In Xcode, choose File -> New File. Then, in the dialog window select Core Date in the left pane and select Data Model. Then click next, give you model a name. This is where you create your datamodel, XCode handles the SQLlite interface on your behalf. If you want to …

In answer to the first question, drop the statement creating the autorelease pool and [object release] [pool drain] statements NSString is an object NSRange is a foundation data type, ie not an object, and as such does not require the *

Place this code in the click event of a button should do the job [CODE]docmd.OutputTo acOutputReport,"Myreport",acFormatPDF,"c:\myreport.pdf"[/CODE]

You would be better to put it under a double click event on the list box. ie the user double clicks the name to move it to the other box. it is simple to implement and is faster and easier for the user to use than drag and drop.

It looks like you are storing the values in a numeric field and it is trying to interpret the values as decimal numbers. Change your field definitions to "Text" and it should bring everything in OK.

The relationships between Customer Order and OrderProduct is wrong. The tbl_Order should have the CustomerId as a foreign key not tbl_Order_Product.

Does anyone have any experience using curl from MS Access. I would appreciate some pointers,

under the File tab click on "Save & Publish" in the right pane you will see .mdb format as one of the options. It will not let you use it however, if you have used any features specific to 2010 in the database

Use the Alignment property of the text box to specify left or right alignment

this forum is to solve specific problems, if you have a specific problem you need help with then provide the details. It is not to do your work for you.

if you are talking about writing two files at the same time then it simply a matter of opening them on different file unit numbers [CODE] open "text1.txt" for output on #1 open "text2.txt" for output on #2 print #1, "this will go in text1" print #2, "this will go …

What precisely do you want to do, do you want to load an image from a file into an image control?

if you only want an integer [CODE]if isnumeric(txtr.text) then if int(txtr.text)=val(txtr.text) then OK else msgbox "Only integers please" exit sub end if else msgbox "Please enter a number" exit sub end if[/CODE]

If you wish to read the contents of a directory you would be better to use the filesystem object.

I presume you are populating from the object MyRecSet1. If you have populated this recordset why not just check the RecordCount property to see if there are any rows returned and disable the remove button if there are no rows.

Even if you are using five databases, if you ultimately want to consolidate the data you will need a branch identifier in every table. Thus you will have a compound key in every table. eg for Loan Table BranchId LoanId for Customer table BranchId CustomerId The limitation you are building …

I think your first effort looks OK, you just need and Exit Sub after line 6.

Investigate a UNION query if you want the data from both tables at once

are you testing to see if an item has actually been selected by the user.

In the IDE click on the Project menu item then select References. At the top will be the libraries that are selected for the project. The troublesome one should have "Missing" in the description.

To state the obvious it sounds like the data source is invalid. What type of data source are you trying to connect to.

This was my code from a previous post. It uses three if blocks with the same condition because each if block will alter the value of books remaining. The problem is in the Click event, you do not call the function the line Text2.Text = Points should read Text2.text = …

You are hijacking someone else's thread Fred. Please start your own.

The difficulty is that count() works against summarising existing rows in a table. By definition a count of 0 means that no rows exist so nothing will appear. How would SQL know what the missing values were. To address the problem you will need to set up a reference table …

The "Screen" object will give you the size of the screen [CODE] Debug.Print Screen.Height, Screen.Width [/CODE] Sorry that was VB6, try [CODE] Debug.Print(Screen.PrimaryScreen.Bounds.Height) [/CODE]

The SQL is correct, there must be something wrong with your data.

SELECT TransInfo.CustNo, Sum(IIf([RPTDate]=" 5/28/2010",[TransYTD]*-1,[TransYTD])) AS CombinedTrans FROM TransInfo GROUP BY TransInfo.CustNo;

use the Ucase$ function to convert a character to its lower case equivalent. eg stName & "." & Ucase$(stAchar)

[CODE] Private Sub cmdBook_Click() On Error GoTo Err_cmdBook_Click Dim rsRoomBookings As Recordset Set rsRoomBookings = CurrentDb.OpenRecordset("SELECT * FROM RoomBookings WHERE BookingDate='" & Format$(Me.DesiredDate, "dd-mmm-yyyy") & "' AND BookingTime='" & Format$(Me.DesiredTime, "hh:nn") & "' AND RoomName='" & Me.cboDesiredRoom & "'") If rsRoomBookings.RecordCount > 0 Then MsgBox "I am sorry that room …

In the Unload event of the form set the valve to Close then use End to terminate the program.

You need to get a username, either display a dialog box and prompt for the user to type it in or retrieve the windows username. Retrieve the record from the database as follows: Set Type_rs = db.OpenRecordset("SELECT * FROM User_Tab Where UserName = '" & stUserName & "'; ") Now …

The former is a better design however Profile should really be Person and you don't need two teacher tables Person PersonId (pk) LastName FirstName Tel Teacher TeacherId (Pk) PersonId (Fk) TeacherQuals Student StudentId (Pk) PersonId (fk)

perhaps ??? [CODE] pbat.value = Trim(Text1.Text) & "%" [/CODE]

[CODE] public function calcPoints(booksRead as integer) as integer dim points as integer dim booksRemaining as integer Points = 0 booksRemaining = booksRead if booksRemaining > 0 then points = min(booksRemaining,3) * 10 booksRemaining = booksRemaining - 3 end if if booksRemaining >0 then points = points + min(booksRemaining,3) * 15 …

You can try experimenting with this, it might need some playing with to get it working [CODE] Dim thiscombar As CommandBar For Each thiscombar In Application.CommandBars thiscombar.Visible = False Next thiscombar [/CODE]

you might be better off consulting msdn msdn.microsoft.com

UPDATE Rooms SET Rooms.meta_keyword = Replace([meta_keyword],",",", ");

I am not sure why you are doing the filtering in a second step [CODE] Private Sub OpenSeizureForm() dim stFilter as String If Me.NewRecord Then 'Open form in dataentry mode DoCmd.OpenForm "Seizures", acNormal, , , acFormAdd, acWindowNormal, Me.incidentNum & "&Episode" Else ' open and filter form stFilter = "[IncidentNum] = …

If you change the way you are thinking about the problem. Lets say you can only fit 5 text boxes in the frame. Then you only have 5 text boxes. As the user scrolls up or down simply change the captions and contents of the text boxes in the frame. …