370 Posted Topics
 | You have bigger problems than the syntax errors. I suggest you revisit the data model. Also your joins between the Employee and job_title tables need defining.  |
 | unless you are using a fixed width font such as Courier New then you are better to go with a multiple column approach. Like the one below using a list view [Code] Dim rowvals(1) As String Me.ListView1.Columns.Add("Given", 50) Me.ListView1.Columns.Add("Surname", 70) ListView1.View = View.Details rowvals(0) = "John" rowvals(1) = "Smith" Dim … |
| | iif(isnull([Table Children]![Date of Birth]),[Table Children].[Age At Entry],DateDiff("m",now(),[Table Children]![Date of Birth])) |
| | You can put joins within a select statement. I don't see your problem. |
| | I don't quite get the problem are you saying that you are missing rows. if this is the problem and you are joining two tables you should check you are using an outer join. |
| | You will probably need to export the table data, drop the table and rebuild and reload.  |
| | try using the Count property of the collection to test if there are any items in the collection. [code] if objOffice.count > 0 then ' rest of your code from while to end while end if [/code] also for the future wrap you code in code /code to make it … |
| | Create a second table with columns for the variable data and an extra field/column effectivedatetime, note in this table PumpId is NOT the primarykey since there will be multiple records for each pumpid. In the Before_Update & After_Insret events of the form place a piece of SQL to write the … |
| | I am thinking your approach is not completely robust. Without checking I imagine the 123.45 will return true to isnumeric which I imagine you don't want. Personally, I am not a fan of masked text boxes because they are not that user friendly but it is a quick and easy … |
| | whilst you define param I can't see where you assign it a value or provide it to disp |
 | I presume you know how to read text from a file, if not search for "read text from a file" in help the code below uses a variation of select you may not have tried Select Case True which allows you to put a boolean expression in each Case statement. …  |
| | So what is wrong, is it not inserting the row. I presume clsData is a class you have defined. you need to supply the code to that. |
| | [Code] Dim words() As String words = Split(TextBox3.Text, " ") Label4.Text = UCase$(words(1).Substring(1, 1)) & UCase$(words(2).Substring(1, 1)) [/Code] You may like to enhance it to cope with more than two words by enclosing it in a loop [code] for i = 0 to ubound(words) next i [/code] |
| | Personnally I wouldn't. Whilst Access supports this I have not found it robust enough. Also there are limitations on the size of access databases and they are easy to blow if you start storing images in the database. Can I suggest you store the image in the file system and … |
 | I'd say you need to do some normalisation on your data model. You should not be using two tables. Personally I would simply have a sold date in the stock table. When the sold date is null then the item is still in stock. |
| | Not sure if this helps but that error message is usually generated when there are mismatch quotes in an evaluated string. |
| | You are always retrieving and displaying the values for the first row because you are using a constant (o) in the row references Rows(0) you need to replace this with a variable that holds the ordinal position of the row you wish to retrieve. |
| | If you only want the last record, you may like to add TOP(1) to that however if you are working in a multi-user environment then you may not get the record you wrote. It may be better to have a "OrderPrinted" column to record whether an order has been printed … |
| | You can use the Format$ function to pick out individual bits of a date, see code below. [Code] <%@ Page Language="VB" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) TextBox1.Text = Format$(Calendar1.SelectedDate, "dd") TextBox2.Text = Format$(Calendar1.SelectedDate, "MM") …  |
| | Re: String method Here is a simpler solution, note you add one because array elements start at 0 not 1. ie if there are 4 words they will be in array elements 0,1,2,3 [Code] Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Dim teststr() As String Dim NoWords As Int16 teststr … |
The End.