Train Of Thought Required. How Do I...?

May 11, 2005

Hi all,

Hope this is the correct forum, and I am not breaking any rules of etiquette. :rolleyes:

I am after some guidance on how to start to tackle a problem, rather than any advice on the details of how to do it. That I want to work out for myself in order to try and improve my mastery of Access.

I have a team responsible for completing a number of scheduled reports.
These reports are scheduled for different frequecies ie :-
some are scheduled Weekly on a particular day,
some are scheduled Monthly on a particular date,
some are scheduled Monthly say on the 1st Monday of the month.

My goal, amongst others, is to be able to, from the switchboard,:-

a. Print a list of reports scheduled to run in the current work week.
b. Print a list of reports scheduled to run between any 2 inputted dates.

This is just part of what I want to acheive from this database, but as we all know Rome wasn't built in a day!! ;)

Grateful for any help / advice / directions,

Cheers,

fos605

View Replies


ADVERTISEMENT

Whats Your Thought On This?

Aug 30, 2004

If I am going to get a Invoice/Statement programme made for me should it be in MS Access or Visual Basic, Thanks for your thoughts, Bob Vance

View 2 Replies View Related

How To Query A Simple Table.... Or So I Thought!

Jan 5, 2006

I have a very simple database for recording data collected from a questionnaire. The database comprises of

table1: QUESTIONNAIRE
fields: QUESTIONNAIRE ID
QUEST_1 ........
up to QUEST_75

table2: VALUE (1 to 6)
ANSWER (strongly agree, agree etc)

All of the 75 question fields in table1 record the same information, and all look up to a table2 which stores the 6 values: agree (1), strongly agree (2), neither (3), disagree (4), strongly disagree (5) and spoilt (6). As the data is being entered into a from using option groups, the database stores the value rather than the text in each QUEST field.

Pretty straightforward I thought, but when I come to query the database I am getting into such a muddle I feel like my head is going to explode!!

The results I need to produce should look like this:

ANSWER QUEST_1 QUEST_2 ....all the way to QUEST_75
agree 34 3 25
strongly agree 45 5 34
neither 3 2 4
disagree 3 4 32
strongly disagree 3 3 5
spoilt 0 1 0

Basically all I want is a count of the number of answers for each question! Given that the answers for all the questions are the same I thought this would be a piece of cake, but alas no.

I thought I would simply be able to crosstab my results from the questionaire into a new table, which would have the six rows (agree, strongly agree etc) and the questions as fields. The values should be the count of "agree" etc. I can quite happly have one field and the counts of each answer but when I try an add any other fields it just duplicates the counts!! I have sat staring at my query and am at a complete blank as to how I resolve this seemly simplistic problem :confused: .

Please if anyone has any ideas why I am in such a muddle over something which seems so simple I would really appreciate their help!

Many thanks

View 13 Replies View Related

Cartesian Product I Thought I Have Prevented

Mar 12, 2007

Hi All,

This post is a bit long, but it is actually really simple. I have two tables(DEDPARM1 and DEDETAIL1). I ran a “CREATE TABLE” query using these two tables, to create a NEW table called “Biweekly_Temp_Table.”

DEDPARM1 sample data
SSN |Name |Type |Amount
555-99-8888 |Joe |FAE |2000
555-99-8888 |Joe |FAR |20


DEDETAIL1 sample data
SSN | Name | Type | Amount
555-99-8888 | Joe | FAE | 1000
555-99-8888 | Joe | FAR | 20

BIWEEKLY_TEMP_TABLE results
SSN | Name | Type| faeAmount | farAmount
555-99-8888 | Joe | FAE | 1000 | Null
555-99-8888 | Joe | FAR | Null | 20
This result makes sense, b/c it is what I wanted.

Now here is the problem. I ran another query(qrySingleRecord) against the BIWEEKLY_TEMP_TABLE to combine the TWO records into ONE. It works, BUT the faeAmount will equal 2000 and the farAmount equals 40. Why is Access doing this? I know something called Cartesian Product will occur if I query against both DEDPARM1 and DEDETAIL1. However, in this case I am NOT querying against these two tables; the whole purpose of creating a new table(BIWEEKLY_TEMP_TABLE) is to try to prevent Cartesian Product. Please help.

Thank you!

Joe

View 6 Replies View Related

I Thought It Was Simple(subformStuff) But Maybe Im Just Stupid.

Feb 15, 2005

Ive got a form, that has inputs to a table, and it also has 2 subforms that link to another table, the subforms are different forms but they link to the same table, this is bacause I need to be able to enter two different items off the table that may be different items, the reason Ive used subforms is because there is the need to have the part number for the item, as well as the weight, this will be a growing list as the Dbase expands.
now I have the two subforms with a combobox for part number, and the weight field looks up because of the combo,

back on the main form I need a entry that adds up the 2 weight fields, and enters them on the main table that the main form writes data to, can someone help?

Ive been heatbutting my monitor for a week or two now, and my limited know how on Access is beginning to show :-)

Thanks.

View 3 Replies View Related

Forms :: Fields Are Required To Be Filled Out Even Though Not Set As Required

Nov 3, 2014

I have made a form based on related tables. it requires me to fill out every field, which I don't want. I didn't make them required. Why does it do that?

View 3 Replies View Related

Help Required

Jul 26, 2007

Commission: IIf([Amt]<=10000,30), IIf(Int([Amt]/1000 Between 10000 And 50001)*3.5+3.75)

What I required to do is that when amount is greater than or equal to 10000 than Amt multiply by 30 simply.
and when amount is between 10000to 50001 than Amt/1000 multiply by 3.5+3.75

means that when amount is 15000 than according to per 1000 it will be calculated.

please dear help me out in this I required it very very urgently.

Please Please Please Please. ....................................

View 1 Replies View Related

Help Required !!!!!

Apr 4, 2005

Hi All,

I am new to Access and trying to create a database for employee's leave record.

I created table 1 for departments i.e., A, B, C and so on

There is table 2 for employees i.e., Z, X, Y and linked with table 1 for their departments.

There is table 3 where first I have to select department (from table 1) and then employee (table 2).

All I want (in table 3) is:

Once I select department, the next field for employee show its respective employees.

Thanks is advance.

View 1 Replies View Related

Help Required

Feb 24, 2008

I am fairly new to Access and may very well be trying to walk before I can run.

I have an Excel Spreadsheet that is currently used to produce a Nominal Roll that is listed by the following:


Surname
Enlisted Month
Enlisted Year

POP Month
POP Year

I know how to transfer it across to Access.



I then need to be able to produce lists (The listings order needs to be Enlisted Month/Year then POP Month/Year) that can then be merged into tables 4 columns wide (where at the top of each table is a General Comment) and the names run down in alphabetical order then move across to the next column.
(Basically for example I have 24 names that needs to be divided by 4)

hopefully that is as clear as mud, any help would be greatly appriciated

View 4 Replies View Related

Normalisation Help Required

Feb 25, 2006

Hi all this is my first post so go easy

OK i have a project to do about a garage


these are the unormalised attributes

Customer_ID, First_Name, Surname, Address, Telephone_No, Postcode, Employee_ID, First_Name, Surname, Hours_worked, Service_ID, Name_of_service, Cost_of_service, Car_registraion, Engine_size, Colour_of_Car, Car_manufacturer, Invoice_No, Amount_due, Amount_paid, Outstanding_amount, VAT, Cost_of_service, Booking_code, Date_of_booking

these are the entities

CUSTOMER
SERVICE
CAR
PAYMENT
EMPLOYEE
BOOKING

ive never done normalisation before, and read online a bit about it but cant for the life of me understand it. anyone willing to give me a little help. on converting the above to 1NF, 2NF and 3NF?

Thanks in advance
alison
x

View 2 Replies View Related

Required Field

May 8, 2006

Hi. I want to have all my fields on my form to be required and so that the user cant close the form if they are empty (error message). In the table properties I have them set to Required an have tried putting in a validation rule of IS NOT NULL but it still dont work. any help appreciated. thanks

View 1 Replies View Related

Access Required?

Nov 19, 2006

First of all sorry for the stupid question. I am opening a new business and will recieve a specializes CMS system using Access as the DB. Do I have to buy Access to run it?

View 2 Replies View Related

How To Set The Required Property Via SQL

Aug 1, 2005

How do I set the Required property for field that already exists via SQL. I'm thinking along the lines of: ALTER TABLE table1 ALTER COLUMN field1 text(50) NOT REQUIRED.

But this doesn't work, any clues?

View 5 Replies View Related

Required Fields

May 11, 2006

I'm having problems with the required field option in my table. I have a form that writes to the table and has a validation of the fields built in the code. If the validation is true, then it will allow the record to be saved.

However, I've also set those same fields in the table to be a required field. Whenever I enter data in those fields in the form and click the save command button, I get a message back telling me one of the required fields cannot be null. The thing is, it is not null. I entered data into the field through the form. Whenever I change the required field option to no in the table the problem goes away, but shows up on the very next field in the list that is set to yes.

Validation occurs within the form that writes to the table, but I still would like to have the security of knowing the fields are required in the table as well, just in case someone tries to be sneaky and go directly into the table to enter/modify data.

Is there something I'm missing? Is this a bug? I've actually set up another database the same way and don't have any problems with it. I'm not sure what's going on. Has anyone else had this problem?

Thanks,
cbdcolga

View 1 Replies View Related

Required Tables?

Apr 9, 2008

I want an access database to manage my correspondence after my motorbike accident.

I am sort of unsure on tables and correct normalisation so here's my plan so far.

Table 1
Company address details


Table 2
Contact name details
(I have a lot of different people from different departments in each company) so a contactID to table 1

Table 3
Media Type - letter, email, phone call etc

Table 4
Category - Legal, Financial etc

Also I want to link pdf images to each entry.

Does this sound okay or can tables 1 and 2 be merged? dunno if it would be easier to add names to an existing company rather than possibly adding the whole thing again.

Thanks all for looking

View 1 Replies View Related

No Value Given For One Or More Required Parameters

Apr 23, 2007

After researching this issue I have not found a satisfactory solution to this issue.

I currently have 1 Access query that is the basis for my VBA code_ Sql statement. both Query statements work when debugged. However, I am getting this error on execution of the sql statement in my vba.

Dies here: '<<<<<<<<<<<<<<<<

Public Sub ConnectCMIS(spar As String)

Dim sConn As String
Dim oConn As ADODB.Connection
Dim lCnt As Long
Dim sSql, strSQL As String
Dim rstOra As ADODB.Recordset
Dim rsAccess As New ADODB.Recordset
Dim fld As ADODB.Field

On Error GoTo ErrorHandler

DoCmd.SetWarnings False
sConn = _
"Driver={Microsoft ODBC for Oracle};Server=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS =(PROTOCOL=TCP)" _
& _.;......

strSQL = "SELECT " & _
"MEASNO, FTEMNOMENCLATURE, NOMENCLATUREMODEL, " & _
"EquipID As EQUIPMENT_ID, MULTIPLE_ID, JOB_GROUP, " & _
"PROJECT, PRIORITY, IIf(Len(Trim(COMPLETE_BY_DATE)) > 0, Mid(COMPLETE_BY_DATE, 3, 2) & ""/"" & Mid(COMPLETE_BY_DATE, 5, 2) & ""/"" & Mid(COMPLETE_BY_DATE, 1, 2), Null) AS COMPLETEBYDATE, " & _
"RequestorId As REQUESTOR_ID, " & _
"CALIBRATION, REPAIR, MODIFICATION, ACCEPTANCE, EVALUATION, " & _
"MAINTENANCE, SUPPORT, CMIS_LAB, SERVICE_LAB, WORK_CODE, " & _
"CHARGE_NUMBER, DISPOSITION, ReqComments as REQUESTORCOMMENTS, INPUT_RANGE_MIN, " & _
"INPUT_RANGE_MAX, INPUT_UNITS, OUTPUT_RANGE_MIN, OUTPUT_RANGE_MAX, " & _
"OUTPUT_UNITS, GAIN, CUTOFF_FREQ, INPUT_FREQ, REF_FREQ, REF_VOLTAGE, " & _
"EXCIT_VOLTAGE, EXCIT_ENABLED, FTIR_ACCURACY, OFFSET, OFFSET_ENABLED, " & _
"REQ_EMO1, REQ_EMO2, REQ_EMO3, REQ_EMO4, REQ_EMO5, REQ_EMO6, " & _
"SPARECODE, CALIBRATION_ID " & _
"FROM QS_SRUpdatetoCMISdrt " & _
"WHERE job_group = " & Chr(39) & spar & Chr(39) & ""
Set rsAccess.ActiveConnection = CurrentProject.Connection
rsAccess.CursorType = adOpenStatic
Debug.Print strSQL
rsAccess.Open strSQL'<<<<<<<<<<<<<<<<
If rsAccess.EOF = False Then

Set oConn = New ADODB.Connection
oConn.Open sConn

Set rstOra = New ADODB.Recordset

rstOra.ActiveConnection = oConn
rstOra.CursorType = adOpenKeyset
rstOra.LockType = adLockOptimistic
rstOra.CursorLocation = adUseServer 'default
rstOra.Open "CMIS.UDV_RFS_SR"

Do While rsAccess.EOF = False
rstOra.AddNew 'Then where you add the Oracle record instead of individual assignments you have
On Error Resume Next
For Each fld In rsAccess.Fields
rstOra(fld.Name).Value = fld.Value
Next
rstOra.Update
rsAccess.MoveNext
Loop
End If

strSQL = "UPDATE CMIS.UDV_RFS_SR SET PROCESSED_IND = 'S' WHERE job_group = '" & spar & "'"
oConn.Execute strSQL, lCnt

DoCmd.RunSQL _
("UPDATE TA_SR SET PROCESSED_IND = 'S' WHERE Job_Group='" & spar & "'")

rstOra.Close
Set rstOra = Nothing
oConn.Close
Set oConn = Nothing
Call MsgBox("Submittal to CMIS has been processed.", vbInformation, "Process Submittal Complete")

SubExit:
On Error Resume Next
If Not oConn Is Nothing Then
Set oConn = Nothing
End If
rsAccess.Close
Set rsAccess = Nothing
Exit Sub

ErrorHandler:
MsgBox "Error Number = " & Err.Number & "-> " & Err.Description, vbExclamation, "CMISStatus"
Resume SubExit

End Sub

1st query:"QS_SRUpdatetoCMISdrt"

SELECT QS_TT_GeneralInfo.BEMS AS RequestorId, TA_SR.FTEMNomenclature, TA_SR.NomenclatureModel, tblEquipListingPerJobGroup.MeasNo, IIf([Primary]=True,[Equipment_ID],Null) AS EquipID, IIf([Additional]=True,[Equipment_ID],Null) AS Multiple_ID, TA_SR.Job_Group, TA_SR.Project, TA_SR.Priority, TA_SR.Complete_By_Date, TA_SR.Calibration, TA_SR.Repair, TA_SR.Modification, TA_SR.Acceptance, TA_SR.Evaluation, TA_SR.Maintenance, TA_SR.Support, TA_SR.Cmis_Lab, TA_SR.Service_Lab, TA_SR.Work_Code, TA_SR.Charge_Number, TA_SR.Disposition, TA_SR.Input_Range_Min, TA_SR.Input_Range_Max, TA_SR.Input_Units, TA_SR.Output_Range_Min, TA_SR.Output_Range_Max, TA_SR.Output_Units, TA_SR.Gain, TA_SR.Cutoff_Freq, TA_SR.Input_Freq, TA_SR.Ref_Freq, TA_SR.Ref_Voltage, TA_SR.Excit_Voltage, TA_SR.Excit_Enabled, TA_SR.FTIR_Accuracy, TA_SR.Offset, TA_SR.Offset_Enabled, TA_SR.REQ_EMO1, TA_SR.REQ_EMO2, TA_SR.REQ_EMO3, TA_SR.REQ_EMO4, TA_SR.REQ_EMO5, TA_SR.REQ_EMO6, TA_SR.SpareCode, TA_SR.CALIBRATION_ID, First(TA_SR.RequestorComments) AS ReqComments, "S" AS PROCESSED_IND, Now() AS LAST_UPDATE_DATE
FROM (TA_SR LEFT JOIN tblEquipListingPerJobGroup ON TA_SR.Job_Group = tblEquipListingPerJobGroup.Job_Group) LEFT JOIN QS_TT_GeneralInfo ON TA_SR.Requestor_ID = QS_TT_GeneralInfo.RequestorId
WHERE (((TA_SR.Job_Group)=[Forms]![FE_SRForm]![JobGroup]) AND ((TA_SR.SubmittedSR)=0))
GROUP BY QS_TT_GeneralInfo.BEMS, TA_SR.FTEMNomenclature, TA_SR.NomenclatureModel, tblEquipListingPerJobGroup.MeasNo, IIf([Primary]=True,[Equipment_ID],Null), IIf([Additional]=True,[Equipment_ID],Null), TA_SR.Job_Group, TA_SR.Project, TA_SR.Priority, TA_SR.Complete_By_Date, TA_SR.Calibration, TA_SR.Repair, TA_SR.Modification, TA_SR.Acceptance, TA_SR.Evaluation, TA_SR.Maintenance, TA_SR.Support, TA_SR.Cmis_Lab, TA_SR.Service_Lab, TA_SR.Work_Code, TA_SR.Charge_Number, TA_SR.Disposition, TA_SR.Input_Range_Min, TA_SR.Input_Range_Max, TA_SR.Input_Units, TA_SR.Output_Range_Min, TA_SR.Output_Range_Max, TA_SR.Output_Units, TA_SR.Gain, TA_SR.Cutoff_Freq, TA_SR.Input_Freq, TA_SR.Ref_Freq, TA_SR.Ref_Voltage, TA_SR.Excit_Voltage, TA_SR.Excit_Enabled, TA_SR.FTIR_Accuracy, TA_SR.Offset, TA_SR.Offset_Enabled, TA_SR.REQ_EMO1, TA_SR.REQ_EMO2, TA_SR.REQ_EMO3, TA_SR.REQ_EMO4, TA_SR.REQ_EMO5, TA_SR.REQ_EMO6, TA_SR.SpareCode, TA_SR.CALIBRATION_ID, "S", Now();

View 2 Replies View Related

Help Required Urgently

Jul 26, 2007

Commission: IIf([Amt]<=10000,30), IIf(Int([Amt]/1000 Between 10000 And 50001)*3.5+3.75)

What I required to do is that when amount is greater than or equal to 10000 than Amt multiply by 30 simply.
and when amount is between 10000to 50001 than Amt/1000 multiply by 3.5+3.75

means that when amount is 15000 than according to per 1000 it will be calculated.

please dear help me out in this I required it very very urgently.

Please Please Please Please. ....................................

View 2 Replies View Related

Help Required For Query

Sep 13, 2007

I need to see the records of a specific date very often. I have designed a simple query (Field : My date field; Criteria : Enter the Date) and it is giving info I want. However, sometimes it shows no records making me wonder where all the data had vanished. On checking up further, I discover that the date I specified was a Sunday, a holiday, when no data entry takes place. What I now want is that if the query returns no records, it should also give a message that "the date you specified could be a holiday. please check" so that I would not panic. Is it possible?
Alternatively, the query can look up the day of the specified date and return the message. I shall be grateful for help for any of these query designs.

View 2 Replies View Related

Mean Mode Help Required

Nov 14, 2007

Hi,
I found a couple of short threads on the forum discussing the above. None of them go sufficiently far enough into detal to help me solve my (relatively simple) problem.

My boss has asked me to produce both mean and mode calculations for the number of pallets we ship to our branches on the 30+ routes that we service.

So far I have managed to implement mean but mode seems to have me stumped.

I'm aware there actually isn't a mode function in Access as such but like mode, is there a way to calculate the most frequent occurrence of a number over a time period?

My query is already producing Min, Max, Sum (and now mean) results for the pallets we ship, can someone offer me help on this?

All the code that I have retrieved so far seems to be based on something similar to this:

select top 1 with ties your_column
from your_table
group by your_column
order by count(*) desc

I have very little to no idea about how to implement this into my query. Any help would be appreciated.

Thanks In Advance.

sausagefingers

View 11 Replies View Related

Required Fields

Mar 7, 2005

Is there any way that you can have required fields in a form, but access will not look for the required fields until you try to exit the form. Basically; i have a form that users keep track of there work hours on specific parts. they leave the form minimized for most of the day. After they enter a record, they sometimes need to go back and edit a previous record, only they are on a new record and access will not let them go to a previous record unless they have the record fields entered.

View 2 Replies View Related

424 Ojbect Required

Mar 28, 2005

I have a form that looks up data through a query. The form works but after it queries and displays the data I get this error "424 Object Required" What does this mean. Here is my code if need be

Me.txtSPR = DLookup("[SPRNum]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.TxtSystemsImpacted = DLookup("[SystemsImpacted]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtReleaseDate = DLookup("[ReleaseDate]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.CboStatus = DLookup("[Status]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtCSI = DLookup("[CSIPM]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtBPM = DLookup("[BPM]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtImplemented = DLookup("[Implemented]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.cboStakeholder = DLookup("[StakeHolder]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.cboIBR1 = DLookup("[IBR1]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.cboIBR2 = DLookup("[IBR2]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.cboIBR3 = DLookup("[IBR3]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtObjective = DLookup("[Objective]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtSMERequirements = DLookup("[SMERequirments]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.cboPhase = DLookup("[Phase]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtMemo1 = DLookup("[Memo1]", "[qry_FIX]", "[projectname]= [cboProjectName]")
Me.txtdate1 = DLookup("[date1]", "[qry_FIX]", "[projectname]= [cboProjectName]")

View 1 Replies View Related

Required Field

May 8, 2006

Hi. I want to have all my fields on my form to be required and so that the user cant close the form if they are empty (error message). In the table properties I have them set to Required an have tried putting in a validation rule of IS NOT NULL but it still dont work. any help appreciated. thanks

View 1 Replies View Related

Access Help Required

Nov 27, 2007

Dear All

I am a user of Access 2007. I have desinged a access tabel
that have these fields.

Gross amount Discount Net amout
25000 2000 23000

Then I design a form using form wizard.The form have desined easily and when I enter data in form fields the records
were updated in the tabel.But when I use the Expression
builder with this formula in Net Amount Text Box.[Gross Amount]- [Discount] and open the form and enter data in
Gross amount and discount field, It shows result in Net amount field but not updated the Access table.This is the problem.

If any one help me, I will be higly thankful to him

Regards

Moon

View 5 Replies View Related

Simple Coding Help Required

Jun 24, 2005

hi. I am trying to write a code to sum the total cost of all jobs that are selected as 'yes' in a combo box.

Once the user selects 'yes' in a combo box, they enter in a cost for that specific job. Each client may have 10s of jobs. I need to write a code that will sum up all the 'yes' selected jobs for a client. I know it should be an 'if' statement but I can't seem to get it to work. I need this value for a report. How would I do this and where would i put the code.

Help is appreciated.

View 1 Replies View Related

Query Question Or Maybe VB Required

Sep 12, 2005

Hi All,

I am relatively new to Access having created my first database a few months ago. I have hit a problem and I am not sure if I can solve this with queries or I need to move to Visual Basic.

I want to create a table containing the stock a product for each day for the next sixty days. I have the current stock in one table, a monthly forecast of sales in another and purchase orders in another.

I want to use the monthly forecast divided by how many days in that month and move forward day by day allowing for purchases coming in.

The tables (simplyfied) are :-

Stock Table.
eg.
Code Stock Qty Date
101 10 11/9/05
102 200 11/9/05


Forecast Table.
eg.
Code Month Fcast Qty
101 P09 30
102 P09 90

Purchase Order Table.
eg.
Code Due_Date PO Qty
101 13/9/05 100

The table that I would like to create would contain Code, Date and Stock.

eg.

Code Date Stock
101 12/09/05 9
101 13/09/05 108
101 14/09/05 107 ...........

102 12/9/05 197 ...........

Any ideas/direction would be welcome.

Carl

View 4 Replies View Related

Object Required Error

Nov 8, 2005

I was wondering if anyone can help with this code. I am sure it is something simple. It works fine until the last line the (x1down) line. I am not sure what I am missing there. I got that code by recording a macro in excel. It simulates the shift/end/down keystroke which will select all fields that are in the same condition (blank or containing data) as the cell you start at.

The error I get is runtime error '424' - object required


Anyway...hope you can help. Thanks.

Dim opensheet As Object

Set opensheet = GetObject("\Netstore rainingdocsRobDataopen.xls")

With opensheet
.Application.Visible = True
.Parent.Windows(1).Visible = True
.Application.sheets("sheet1").Select
.Application.range("g2").Select
.Application.activecell.NumberFormat = "0"
.Application.activecell = 1
.Application.activecell.Copy
.Application.range("A2").Select
.Application.range(Selection, Selection.End(xlDown)).Select

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved