strDocName = "InvoiceReport"
DoCmd.OpenReport strDocName,acViewNormal, "Invoices Filter"
I have used the above function, now i am getting the required print out of recent record
Thanks Remou
i have corrected it but still in vain
Can you please have a look on the code ?
Private Sub Print_Click()
On Error GoTo Err_Print_Click
DoCmd.OpenReport "InvoiceReport", acViewPreview, , _
"[InvoiceID]=Forms!InvoiceForm!InvoiceID"
Exit_Print_Click:
Exit Sub...
In taking a print out of recent record on the Form i have used a bit different way but i am getting an error in it.
DoCmd.OpenReport "InvoiceReport", asViewPreview
"[InvoiceID]=Forms!InvoiceForm!InvoiceID"
Anyone can correct me ?
Thanks a lot.
Hi programmers,
i have tried to use the provided code to get the print of the recent record on the form but i am just getting the copies of all records,
Can anyone suggest me how to get print of recent record.
I will be thankful to you
Dim stDocName As String
Dim strWhere As String...
Thanks PHV,
I dont know why, but i am just getting an empty table, Same code is given as under: Can you please check it ? It will be a great help.
SELECT Calculation.Project_Nr,
Sum(IIf(Month([Date])=1,Charges,0)) AS Jan,
Sum(IIf(Month([Date])=2,Charges,0)) AS Feb...
Hi All,
I need a help here, it looks easier but i got stuck here.
For example i have a table(actually its a large data table) with project numbers between 10
and 14 which were entered on different dates with different Amount of Charges.
ID Project_Nr Charges Date
1 10 130,00 01.01.2005...
This is code of both functions but i have a problem with second function
Private Sub cboProjectNr_AfterUpdate()
On Error Resume Next
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
cboProjectNr.SetFocus
If cboAPNummer.Value > 0 Then
strSQL =...
First code is working properly, for the second code i have a Problem. Should i create a new table my self ? i have created one with same Fields as in my main table on the form but i am getting Just ID number in my new table not the other field values.
Any Idea ?
Thanks
Hi All, This is my second post here, you helpers are doing a great job. We appreciate it. Thanks a lot.
I got a problem related to the forms now. I need to print a report, I this case I have
for example 2 tables( mainform and subform), one is self created and other one is a linked table(linked...
Hi Crowley,
Sorry for late reply because I was not in the office.
I have tried it and its working. In my case I have added the desired fields in
( about the primary key it exists which is on Package Number )
INSERT INTO NewTable( fields name, ….,…..,……,)
SELECT fields name,……,……..,……….
And...
Here is the sql,
INSERT INTO NewTable ( [Package Number], Offer_Nr, Sender, Sending_Nr,Description )
SELECT MainTable.[Package Number], MainTable.Offer_Nr, MainTable.Sender, MainTable.Sending_Nr, MainTable.Description
FROM MainTable
WHERE (NewTable.[Package Number], NewTable.Offer_Nr...
After using Table name in where and select parts
I got an error like
"You have written a subquery that can return more than one field without using the EXISTS reserved word in the main query's FROM clause. Revise the SELECT statement of the subquery to request only one field. (Error 3306)"...
Hi Crowley16,
thanks for your reply
INSERT INTO NewTable ( NewTable.[Package Number], NewTable.Offer_Nr, NewTable.Sender, NewTable.Sending_Nr,NewTable.Description )
I have tried it in this way but i am getting an error ( its not accepting table name with fields name )
Sorry for asking you...
This code is working perfect for a single field to be appended
INSERT INTO NewTable ( [Package Number] )
SELECT MainTable.[Package Number]
FROM MainTable
WHERE [Package Number] not in (Select [Package Number] From NewTable);
But i have tried the same code with many fields but its not giving...
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.