Hello all! I'm having a problem with a crosstab query I've created. The query in SQL view is as follows:
TRANSFORM Sum([Casesm1]+[Casesm2]+[Casesm3]+[Casesm4]+[Casesm5]+[Casesm6]+[Casesm7]
+[Casesm8]+[Casesm9]+[Casesm10]+[Casesm11])/Sum([Pvol1]+[Pvol2]+[Pvol3]+...
Here is the code:
CurrentDb.Execute "UPDATE table SET table.COMMENTS =" & "'" & Me![ReqComments] & "'" & " WHERE table.ID = 2;"
The problem comes about when the Me![ReqComments] memo field contains a single quote (example: John's book).
Any help with this would be greatly appreciated. Thanks...
Hi
This seems like a simple issue, but I just cannot get it to work. When clicking on a command button to open a form, I want to pass a value from one form, to populate a textbox on the newly opened form, BUT I want that value to be passed BEFORE the OnOpen procedures begin.
Example:
A...
I have DoCmd.Maximize on the Form_Open event as well as the Form_Activate event of the form. The form maximizes correctly if I don't hide the dbase window.
As soon as I hide the dbase window using:
ChangeProperty "StartupShowDBWindow", dbBoolean, False
the form is not maximized...
Hi
Here is the function:
Public Function SortByTag(ctlCurrent As Control, frmCurrent As Form)
Dim SortOrd, FormName As String
SortOrd = ctlCurrent.Tag
If ctlCurrent.Tag = frmCurrent.OrderBy Then
frmCurrent.OrderBy = SortOrd & " DESC"
frmCurrent.OrderByOn = True
Else...
Hi
Here is the function:
Public Function SortByTag(ctlCurrent As Control, frmCurrent As Form)
Dim SortOrd, FormName As String
SortOrd = ctlCurrent.Tag
If ctlCurrent.Tag = frmCurrent.OrderBy Then
frmCurrent.OrderBy = SortOrd & " DESC"
frmCurrent.OrderByOn = True
Else...
Hello everybody
I'm attempting to add the results of 2 queries using a 3rd. Here is an example:
Query_1:
Counts (by using Total in the design grid) the number of ID's in Table_1
Query_2:
Counts (by using Total in the design grid) the number of ID's in Table_2
Query_3:
Adds the results of...
This problem is VERY puzzling to me and it's the only thing holding up the release of this dbase. I have a form that allows users to make changes to a record. I don't want these changes to be permanent unless the user clicks a button which changes a flag (to a "1") on the form. This...
This is very strange. I have a combo box and text field on a continuous form. When I set the "After Update" event of the combo box to Me![TextBox] = Date, nothing happens. If I set the event to Me![TextBox] = Now(), it works fine. I would just use Now(), but I only want the date...
Here is the code:
Dim rst As Recordset
Dim db As Database
Set db = CurrentDb()
Set rst = db.OpenRecordset("BCTbl", DB_OPEN_TABLE)
This is the error message:
Run-time error'3219':
Invalid Operation
My only guess is that "CurrentDb()" is no longer valid in Access 2000...
I have the control source of the field on the form set to:
=Right([Code], 8)
and it displays "#Error"
If I use:
Right([Code], 8)
I get "#Name?"
Any ideas what I'm doing wrong?
Now it takes about 3 minutes. The users are frustrated as you may imagine. Here is the SQL:
SELECT tblDist.DID, tblDist.SKU, tblDist.Sequence, tblDist.[MSA Brand Code]
FROM tblDist
WHERE tblDist.DID Like [Forms]![frmDetail]![DID] AND tblDist.[Resolved?]=False AND...
Hi
I keep getting a "Run-time error '3061' Too few parameters. Expected 2." error when attemting to run this code:
SQLstr2 = "PARAMETERS [Forms]![frmOperationsReports]![Low Year] Text, [Forms]![frmOperationsReports]![High Year] Text; TRANSFORM Count(TEST.CountOfRequestID) AS...
Hi
This is the code I'm using to find the number of columns that need sorted. The cells contain date data (ex. Jun - 2002).
Do
.ActiveCell.Offset(0, 1).Activate
testcounter = testcounter + 1
Loop Until IsEmpty(.ActiveCell)
testcounter = testcounter - 1
Below is the code I'm attempting to use...
Hi
I'm attempting to automatically send an Outlook email using VBA. I always get an alert from Outlook stating:
"A program is trying to automatically send e-mail on your behalf.
Do you want to allow this?
If this is unexpected, it may be a virus and you should choose "No"...
Hi
I have a form that will delete the current record if the user closes the form by clicking on the "x" button in the upper right corner. I do this so that the user must click a command button in order to submit the information to the dbase.
Well, this upper right corner has 2...
Hi
Not sure if this can be done, but can anyone tell me if you can search a records memo field using "Like" and return all the records in the table that contain the parameter? I have a text box on a form where a user will type some of the information he/she is looking for in a...
I used alot of VBA with this dbase. I'm considering moving this to a web-based application. What are my choices to do this as easily (and cheaply) as possible. I know of ColdFusion, but this may be too costly (licensing issues, etc.). Any other suggestions would be greatly appreciated...
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.