|
 |
| Recent blog posts: | |
|
| They have birthday today: | |
|
| Forums: | | |
|
| Discuss: | |
|
| Recent forum topics: | |
|
| Recent forum comments: | |
|
| Модератор: | |
|
Sunday, 6 August 2006
|
| Importing Access to Excel 97 Guest 23:43:15 |
| | Hello,
How can I import an access database to excel 97 using VBA code?
I'd tried Set db = OpenDatabase("C:mypath") and Set db =
DBEngine(0).OpenDatabase("C:mypath") and it didn't work out.
Somebody help me?
tks
|
| |  1 answer | Add comment |
|
| Fill ComboBox items with FieldNames from a Table? Mike11d11 22:57:08 |
| | I'm trying to create a combo box that has the only the field names from
a table in it and not the items in that field. So for example I have a
table with 40 fields in it like Account#, Name, address, phone # etc...
I want to click on the combo box and have the option to choose a field
and not the data within the specific field. So when I click the drop
down it will show all the fields in the table (Account#, Name, address,
phone..) I've tried a few different idea's from people but cant get
it to work. I'm using Access 2002 if that helps.
|
| | 1 answer | Add comment |
|
| Detect when subform displays a vertical scrollbar?? Guest 22:14:27 |
| | hi all
Access 2K/2003, Win XP Pro
I need to be able to detect when a subform datasheet is currently
displaying a vertical scrollbar.
I.e if the subform datasheet is showing more records than can fit the
subform window Access will make the vertical scrollbar visible.
I can't simply do a record count and figure out if that is too many to
fit - because the users can use their mouse to drag the rowheight
taller or shorter.
I think an API call is required - but I cannot get this to work.
I'd appreciate any ideas on this one
cheers
|
| | 1 answer | Add comment |
|
| Is there a way to link a checkbox to a radio button? Tracy Cooperjr 21:30:30 |
| | I have four checkboxes. I want only one of them to be checked at a
time. Any ideas?
|
| | 11 answers | Add comment |
|
| VBA SQL Statement Guest 18:05:33 |
| | I am a newbie in Access and I have created a unbound report and am
trying to get data from 2 different queries. Previously, I had used the
ADODB recordset method to get data from tables and I have applied the
same logic to this case but using a query. But, when I try to run the
report I get the following error message: "No value given for one or
more required parameters." My code is as follows:
Dim rsPoles As New ADODB.Recordset
Dim SQLStmt As String
SQLStmt = "SELECT Customer, Poles, Rate from qryPoleTotal"
rsPoles.Open SQLStmt, CurrentProject.Connection, adOpenDynamic,
adLockOptimistic
rsPoles![Customer] = Me.Customer
rsPoles![Poles] = Me.SumOfPoles_
rsPoles![Rate] = Me.Rate
rsPoles.Update
rsPoles.Close
Set rsPoles = Nothing
(The coding is for only one query because I wanted to test it with one
before I added the second.)
I didn't use a WHERE clause because the query already has that logic
and I didn't use a union query because the two queries have different
fields and different data.
Can someone please help me with this problem.
Thank you in advance.
|
| | 3 answer | Add comment |
|
| Resume Next returning to original line of error (#2486) Danny J. Lesandrini 16:58:27 |
| | How is it possible that VBA could ERR out on the same line 3 times in 5 seconds?
Below are the logs for two errors that happened one right after the other and you can
see that the same line is logged thrice for each function, each in a 5 second range.
Error is always #2486: You can't carry out this action at the present time.
ErrDateTime Line Function
7/31/2006 9:01:32 275 cmdOpen
7/31/2006 9:01:31 275 cmdOpen
7/31/2006 9:01:28 275 cmdOpen
7/31/2006 9:01:22 3145 SSN_DblClick
7/31/2006 9:01:19 3145 SSN_DblClick
7/31/2006 9:01:17 3145 SSN_DblClick
Here's the code for the error on line 3145. All it's trying to do is open a form with the
DoCmd.OpenForm method. I omitted some of the code, but I don't think the code is
causing the error.
Regardless of what the code does, Why does the Resume Next in the error trap return
the processing to line 3145? Has anyone ever seen anything like this before?
3096 On Error GoTo Err_Handler
3103 If Not IsNull(Me![SSN]) Then
3110 If Me.Dirty = True Then Me.Dirty = False
...
3138 strCriteria = "[SSN] = '" & Me![SSN] & "'"
3145 DoCmd.OpenForm "frmEmployees", , , strCriteria
3152 End If
Exit_Here:
3159 Exit Sub
Err_Handler:
3166 UpdateWebErrorLog Err.Number, Err.Description, Erl
3173 Resume Next
This pattern repeats itself for seven different completely functions with nothing obvious
in common. The user has reported that when she gets this error (#2486) the system
completely freezes and she must terminate MSAccess.exe to get back to work.
I've searched Google for posts about Error #2486 and have implemented everything I found.
She sees the errors less frequently now that I found and removed references to the boolean
value of checkboxes: If Me!chkValid = True Then instead of If Me!chkValid = Then
The crash/freeze doesn't happen so often anymore (once a day instead of once an hour)
but these errors are still being logged. Any ideas?
--
Danny J. Lesandrini
dlesandrini@hotmail.com
http://amazecreations.com/datafast
|
| | 6 answers | Add comment |
|
| Ms Access to SQL 2005 Anns via AccessMonster.com 08:36:23 |
| | Pros and Cons to the below:
Upsizing Wizard - will this carry over tbls, queries, etc together?
DTS or IS SQL 2005 - does this only bring over the tables?
Which should I use?
After the wizard is used to connect to SQL, do I still have to link the
tables? If so, please explain.
After the Ms Access databases are connected to SQL Server 2005, then Visual
Studio 2005 will be used to rebuild all forms/interfaces for the databases to
be able to be put on our Intranet (sharepoint).
Any pointers, please......................
--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/Forums.aspx/databases-ms-access/200608/1
|
| | 3 answer | Add comment |
|
| Using Winsocket control DataArrival data shows all garbled up Mike11d11 07:47:34 |
| | I tried using the windows winsocket control on my Access form and place
the recieved data in a text box. I got it to work but the data is
coming accross like ГїГѕ%ГїГЅ and I cant use that information. Is
there a way to descramble this. I'm thinking it might have to do with
using some sort of emulation that can read the info. We have software
right now that connects to our server with VT101 emulation. If this is
what is making it readable how can I convert the data or use a
emulation in my form?
|
| | 2 answer | Add comment |
|
| 1 or more tables? Dwight 07:41:55 |
| | Hi all,
This is my first time using a database. I am using Access 2003. I want to
design a database for extracting marriage data from our county marriage
records. There are four sections with a total of 15 fields. My question is:
which is better, 1 table with 15 fields or the 15 fields spread over 4
tables (sections). There is no duplication between the tables (sections) at
present. tia
Dwight
|
| | 6 answers | Add comment |
|
| Storing & Using the Last Read Value Stephen 05:55:56 |
| | Hi,
I have a table consists which cosists of batch numbers, and assosiated
dates and times..ie the columns are batch, date and time. The data
within the table is not in any particular order.
With a report, I need to calculate and display the difference in date /
times between like batch numbers, ie displaying batch number, start
date & time, finish date & time and duration
Any suggestions on a possible approch would be appreciated
Thank you
Stephen
|
| | 3 answer | Add comment |
|
| Adding to database skillset Guest 05:33:38 |
| | I've been lurking on this board for about 4 years now, getting great
answers and solutions to many, many Access and VBA questions that I've
had over the years. I was hoping that you all could pass along some
advice.
I consider myself a intermediate access developer, and I am looking to
continue to learn and challenge myself.
During my current job search, it seems like Access jobs in my area are
pretty rare. While I know that Access is still a frequently used
solution, is the marketplace/industry moving towards other programs?
SQL Server? Oracle?
Can you recommend job search web sites that may have good MS Access
opportunities?
Thank you.
|
| | 12 answers | Add comment |
|
| Summing in Page Footer w/ balanced brought forward from prev page CaptainDahlin 02:00:40 |
| | Access 2003 Report rptWhiteMailDeposit
I have found the "four lines of code" solution to adding sums to page
footers and it is working...mostly. (if report is only one page long it
doesn't count. Over two pages it works.)
In the rptWhiteMailDeposit I would like to have in the PAGE FOOTER of
each page the following:
Total Brought Forward (from previous page of report when report is
longer than 1 page)
Page Total (txtPageCashSum + txtPageChecksSum)
Grand Total (only displayed on last page of report. Sum of Page totals
to that point)
I've tried several things and inevitably the total brought forward on
page 2,3 etc. gets reset to zero when the pageheader print function
resets txtPageCashSum. A global variable solution perhaps? I can only
find a vague reference to a solution that used to work with Access
2000.
Here is the code I'm using. Any help would be appreciated. I am head of
non profit (The Salvation Army )in Covington, VA
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
txtPageCashSum = txtPageCashSum + txtDonorCashAmmount
txtPageCheckSum = txtPageCheckSum + txtDonorCheckAmmount
End Sub
Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As
Integer)
txtPageCashSum = 0
txtPageCheckSum = 0
End Sub
FYI: May be effcting things:
Code for filter form that alters the content of this report on the fly:
Private Sub cboDateDonationEntered_MouseDown(Button As Integer, Shift
As Integer, X As Single, Y As Single)
ocxCalendar1.Visible = True
ocxCalendar1.SetFocus
If Not IsNull(cboDateDonationEntered) Then
ocxCalendar1.Value = cboDateDonationEntered.Value
Else
ocxCalendar1.Value = Date
End If
End Sub
Private Sub cmdApplyFilter_Click()
Dim strDonationDate As String
Dim strCampaign As String
Dim strFilter As String
If SysCmd(acSysCmdGetObjectState, acReport, "rptWhiteMailDeposit") <>
acObjStateOpen Then
DoCmd.OpenReport "rptWhiteMailDeposit", acViewPreview
End If
txtPageCashSum = 0
txtPageCheckSum = 0
If IsNull(Me.cboDateDonationEntered.Value) Then
strDonationDate = "Like '*'"
Else
strDonationDate = "=#" & Me.cboDateDonationEntered.Value & "#"
End If
If IsNull(Me.cboCampaign.Value) Then
strCampaign = "Like '*'"
Else
strCampaign = "='" & Me.cboCampaign.Value & "'"
End If
strFilter = "[SystemInputDate] " & strDonationDate & " AND
[DonorCampaign] " & strCampaign
With Reports![rptWhiteMailDeposit]
.Filter = strFilter
.FilterOn = True
.txtReportTitle.Value = "Name of Appeal: " &
Me.cboCampaign.Value
.txtReportRunDate.Value = "Date: " &
Me.cboDateDonationEntered.Value
End With
End Sub
Private Sub cmdCancel_Click()
DoCmd.Close acForm, "deposit report"
End Sub
Private Sub cmdRemoveFilter_Click()
On Error Resume Next
Reports![rptWhiteMailDeposit].FilterOn = False
End Sub
Private Sub ocxCalendar1_Click()
cboDateDonationEntered.Value = ocxCalendar1.Value
cboDateDonationEntered.SetFocus
ocxCalendar1.Visible = False
End Sub
|
| | Add comment |
Saturday, 5 August 2006
|
| import data into Orace from Access Guest 23:33:23 |
| | How do I import data from Access into an Oracle database? I'm looking
at hetergeneous services but I was hoping to simply set up an ODBC
connection and pull accross the data easily. But I cannot find any
apparent easy way to do this.
|
| | 2 answer | Add comment |
|
| jet cannot find object Kim Baker 06:41:01 |
| | Strange new error and I'm hoping that many others have it  so that
the solution is easy.
Until recently I could click on a DBase IV file of type DBF in
explorer and Access would open and the .DBF file would appear as a
table. I could then look at the data contained in the file and its
field names.
This no longer happens.
When I click on the .DBF filename in explorer Access opens. But the
file is not loaded as a table.
I get the error message ' 3011 Jet database engine cannot find object
'filename.dbf', check spelling and path.'
As I have clicked on the filename as usual I cannot have mispelled it
or the path to it. Path is C:\price\filename.dbf
I have tried current files and archived files that once worked. No
difference.
Worse, I gave copies of current .dbf files and archived files to a
friend and his PC reacts the same.
I have also tried opening Access and importing the files and I get the
same error.
All help appreciated.
Cheers
Kim
Remove undies to reply
|
| | Add comment |
|
| Closing an opened Excel spreadsheet correctly. rdemyan via AccessMonster.com 05:31:33 |
| | I want to make sure that I'm closing an opened spreadsheet correctly. I've
been having some locking up problems. The following code adds a dummy row to
the spreadsheet to ensure that that the data gets transferred in the correct
format. It seems to be working correctly, but if anyone has any comments on
that I'd appreciate it. Right now, I'm mostly concerned about opening and
closing the spreadsheet. Here's the pertinent part of the code:
Private Sub AddDummyRow()
On Error GoTo Err_Ctrl
Dim xlsApp As Object, xlsWB As Object, xlsWS As Object
Dim mNumRows As Long, i As Integer
Dim boolXL As Boolean
'***************************************************************
'***************************************************************
'First, add the dummy row
'***************************************************************
'***************************************************************
'Check to see if Excel is running
If fIsAppRunning("Excel") Then
Set xlsApp = GetObject(, "Excel.Application")
boolXL = False
Else
Set xlsApp = CreateObject("Excel.Application")
boolXL = True
End If
'Open the workbook
Set xlsWB = xlsApp.Workbooks.Open(Me.ImportFile)
'Open the selected sheet number
Set xlsWS = xlsWB.Worksheets(CInt(Me.SheetNumber))
'Add the dummy row as the 2nd row in the spreadsheet
'First row is column headers and they will be field names in table
xlsWS.Range("A2").EntireRow.Insert
xlsWS.Cells(2, 1) = "DUMMY"
xlsWS.Cells(2, 2) = "DUMMY"
xlsWS.Cells(2, 3) = "DUMMY"
xlsWS.Cells(2, 4) = "DUMMY"
xlsWS.Cells(2, 5) = "DUMMY"
xlsWS.Cells(2, 6) = 0
xlsWS.Cells(2, 7) = 0
xlsWS.Cells(2, 8) = 0
xlsWS.Cells(2, 9) = 0
xlsWS.Cells(2, 10) = "DUMMY"
xlsWS.Cells(2, 11) = 0
xlsWS.Cells(2, 12) = 0
xlsWS.Cells(2, 13) = "DUMMY"
xlsWS.Cells(2, 14) = "DUMMY"
xlsWS.Cells(2, 15) = "DUMMY"
xlsWS.Cells(2, 16) = "DUMMY"
mNumRows = xlsWS.UsedRange.Columns.Count
'***************************************************************
'***************************************************************
'Second, transfer the spreadsheet to the holding table
'***************************************************************
'***************************************************************
Call TransferTheSpreadsheet
Exit_Sub: On Error Resume Next
'Close the instance of Excel and don't save changes
Set xlsWS = Nothing
xlsWB.Close False 'Don't save changes to the workbook.
Set xlsWB = Nothing
If boolXL Then
xlsApp.Application.Quit
End If
Set xlsApp = Nothing
DoCmd.SetWarnings True
DoCmd.Hourglass False
DoCmd.Echo True
Exit Sub
--
Message posted via http://www.accessmonster.com
|
| | 7 answers | Add comment |
|
| Synchronize between two tables in access Pradeep 01:59:01 |
| | Hi,
I amnew to this group and lucky to have found this group. i have a
master table which has different types of application say Desktop,
Mainframes, etc.
I have an individual table for each of these application types.... one
for Desktop, one for mainframes, etc
How do i synchrinize data between these two tables, say i update the
Mainframe application description in Master table, it should get
updated in the Mainframe individual table.
TIA,
Pradeep
|
| | 5 answers | Add comment |
|
| Unable to design/preview a report Mvsguy 00:35:46 |
| | I'm an Access noob and apologize if I'm asking a stupid question. The
problem is that I'm unable to design/preview reports on a database.
How do I go about fixing this?
Background -
A user has a database which I need to examine. This user is able
design/preview all reports on a certain database.
When I copy the database to my machine, I am unable to design/preview
reports. I am also unable to design/preview reports when I use my box
to connect to the user's database.
Thinking its security, I signed on to the user's box with my ID and
can design/preview reports. Next I connected to my box using the
user's box. I am able to design/preview the databases on my machine
by using their box.
Is there some setting on my PC that is preventing this?
Thank you for any possible answers,
MVSGuy (I'm still waaay outside my comfort zone)
|
| | 12 answers | Add comment |
|
| Help with Database Solution Stephen 00:08:38 |
| | I volunteer for a non-for profit group and they have alot of names in a
multiple databases. the problem is that some people are in multiple
databases. and if they send out a mailing from multiple databases some
people get 2 and 3 of the same thing. my idea was to either make or find a
program that has everyone is 1 database and then make the people part of
multiple groups. (ex: bill is part of group a and b and im doing a mailing
from both group i only want 1 piece of mail to go to him).
It can be a separate program or with access. that use access now but i cant
figure out how to make my idea work.
any question please ask.
tia
Stephen
|
| | 4 answer | Add comment |
Friday, 4 August 2006
|
| EDI 850 Export mattc66 via AccessMonster.com 23:43:02 |
| | I need to create an EDI 850 Record Set.
The EDI 850 Record set I am creating consists of 2-5 seperate tables all
linked by the CustomerID and CustomerPO.
Tables -
tblOrder - >Link CustomerID and CustomerPO
-RecordType
-CustomerID ->
-OrderDate
-CustomerPO ->
-ShipDate
-ShipVia
-CarrierName
-ShipAddressID
-Dept
-OrderNum
-CustBuffer
-Source
tblDetail - >Link CustomerID and CustomerPO >Many Lines to one Order
-RecordType
-CustomerID ->
-CustomerPO ->
-Item
-CustomerItem
-OrderQty
-UnitPrice
-Tax1
-Tax2
-ShipDate
-Description
-UPC
-UM
-PO_Line_Number
-ContractNum
-Commission
These all need to be blended together into one comma deliminated text file
like below.
"O","STEVE","060802","PO1","060831","UPS GRND","","","","0005555","","JOE"
"D","STEVE","PO1","WAGON",10,25.00,"N","N","060831","","","","",0
"D","STEVE","PO1","CYCLE",5,15.00,"N","N","060831","","","","",0
"O","FRED","060802","PO2","060825","UPS GRND","","","","0005555","","JOE"
"D","FRED","PO2","WAGON",8,25.00,"N","N","060825","","","","",0
"D","FRED","PO2","CYCLE",8,15.00,"N","N","060825","","","","",0
Does anyone have any suggestions on how I could accomplish this task. If so,
please include suggested code examples.
Thanks
--
Matt Campbell
mattc (at) saunatec [dot] com
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/Forums.aspx/databases-ms-access/200608/1
|
| | 7 answers | Add comment |
|
| looking for Access developer/consultant in Oakland California area The Professor 23:41:03 |
| | We are a State of California government agency. We are developing a
multi-user Access database for tracking work done by court reporters. A
pilot of the database is successfully running on a shared folder on our
network. It has security requiring a username and password: there are
three groups of users; each sees a different home screen.
The pilot is being tested by 3 users who are only on for a few minutes
each day. The database pilot has a few hundred records. We are
concerned that once we have thousands to tens of thousands of records
and over 100 users (5-10 users at one time) that the current setup will
slow down the use of the database significantly.
Our development team has good single user Access database development
and VBA programming skills; we are looking for a consultant/developer
who can advise us and do some programming to convert the database to
SQL backend, or split the database. We need someone who can meet with
us in Oakland California. Budget to be decided.
|
| | 7 answers | Add comment |
|
| critГЁre d'une requГЄte fesant rГ©fГ©rence Г une valeur dans une table qui change... Icony 23:39:34 |
| | Bonjour,
je veux faire une requГЄte qui selectionne seulement les mots qui
contiennent disons "afe"
Le problГЁme est que je voudrais que cette partie de mot provienne
d'une table qui change de fois en fois.
Dans mes critГЁres j'inscris : comme "*afe*" et ca fonctionne
parfaitement.
Mais, lorsque j'inscris: comme "*[tableX].[colonneX]*" rien ne
fonctionne. Vous avez une idГ©e de la syntaxe Г utilisГ©e ? j'ai
esseyГ© une panoplie d'expressions sans succГЁs.
mon code slq est le suivant :
slqtext = "SELECT [total_installs].[UnitГ© Administrative] From
total_installs, uachoisi WHERE ((([total_installs].[UnitГ©
Administrative])='*afe*'));" <------ celui la fonctionne
des idГ©es ?
Merci Г l'avance
|
| | 4 answer | Add comment |
|
| Sort customers by postcode and print reports . Julian 23:35:03 |
| | Hi,
I am a very beginner in databases. I created a database table in Access 2003
and OOo 2.03 that includes name, address, postcode, phone numbers etc of our
customers. I would like to sort customers by areas of London, UK by the
first part of the postcode. The London postcodes are the form of E19 4PR,
NW5U 4RT. So I would like to print a report (customers arranged into Word
tables - normal tables, not database tables) for example which includes the
following zones of London: North East, East and South London and which are
represented by the following postcodes E(1-18), SE(1-29), SW(1-29).
Thanks,
Julian
|
| | 6 answers | Add comment |
|
|
