If you put this line of code:
<message-resources parameter="ErrorMessages" key="errors" null="false"/>
into the struts-config.xml file it sets up a pointer to a message file called ErrorMessages.properties
In this file I only have two line right now cause I cant get thigs to work quite right...
I am trying to display error messages and the are displaying but not correctly. They display like this:
???en_US.Invalid userId or Password???
Here is the code that I use to fill the errors:
<code>
public class BaseAction extends Action {
public static final String APP_WARNING_KEY =...
I only want the date to display in a field but when you click in the field the time displays also. I have tried setting the format to mmm dd", "yyyy which looks great until you click in the field.
Is there anyway to prevent the time from displaying short of formating the field as text?
If this are is never to be enabled then change it to labels. If it has to be enabled occationally then instead of .enabled = false try .locked = true
Just a thought.
SELECT DISTINCT in_grp.TheData
FROM in_grp
WHERE (((in_grp.TheData) Not In (SELECT DISTINCT GrpMaster.GroupName FROM GrpMaster )));
This selects all of the distinct records from in_grp where they do not already exist in GrpMaster
Ok. Try This One.
Public Sub Text()
Dim strLine As String
Dim strACOD As String
Dim strCNUM As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("table1", dbOpenDynaset)
Open "C:\My Documents\gl0340.txt" For Input As #1
Do While Not EOF(1)
Line Input #1...
Check the 'Order By On' to make sure it is yes. It is on the data property tab for the report. There is also an 'Order By' property. You may have to set that.
Try this and take it from here.
Public Sub Text()
Dim strLine As String
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("table1", dbOpenDynaset)
Open "C:\My Documents\gl0340.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strLine
If...
TI would not do that. I would leave the testing of the cbo in the same routinve as the call to your function. It should go in this procedure:
Private Sub cmdPrintSpecific_Click()
Dim strSQL As String
strSQL = "SELECT tblSalesLedger.InvoiceNumber, tblSalesLedger.InvoiceDate...
What displays in a combobox is not always what is returned. Before your "If cboPrintOrder = "Customer Name" Then" type this: debug.print me.cboPrintOrder. You may be surprised at the result. Look in the immediate window for the result.
Opps. Logic erro on my part. Change the line:
CreateWhereString = CreateWhereString & " AND "
To Read:
CreateWhereString = CreateWhereString & " OR "
Ok. I copied you query and created a couple of tables to match your field names. Ran you query. It worked just fine. The I changed it to be this:
INSERT INTO tbl_AirBird ( Record_Created, AP00, AD00, AA00, AR97, AR98, AC00, AC01 )
SELECT Whole_Data.Record_Created...
I can help you. I think that you may have to change your append query just a little. Here is what I did and you can see if it is somewhat like your situation.
1. I copied the function to a module. I had to make a slight change so my function looks like this:
Public Function LastNonNull(var As...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.