ASP.NET, SQL Server, WPF, C#, VB.NET

Hi all; 
 
If I'm adding a field through code, is there a way to give it a description 
 
that will then show up in the status bar of forms that reference the field? 
 
TIA; 
 
Amy

CENTRAL ÚNICA DE VENDAS 
 
10 Marcas de ratreadores, Compare e Compre. 
 
Rastreador de Veículo 
 
Rastreadores de Veículos 
 
Rastreador GPS 
 
Rastreadores GPS 
 
Rastreador Ituran 
 
Rastreadores Ituran 
 
Rastreador Portátil 
 
Rastreadores Portáteis. 
 
Assistência 24 Horas 
 
Visite agora mesmo nosso site. 
 
http://tel011-50523122.vila.bol.com.br/ 
 
Graber - Teletrim - Tele Trim - Ituran - 
 
Rastreadores gps , Localizadores, Bloqueadores 
 
Graber - Teletrim - Tele Trim - Ituran - 
 
Ra ...

Access 2003.  I would like to know how to do the following.  By "external" 
 
database I mean an Access database other than the one in which a module 
 
resides. 
 
1.  How to set a database variable to an external database. 
 
2.  How to determine if an external database is open. 
 
3.  How to open an external database. 
 
4.  How to query an external database. 
 
5.  How to create a record in a table in an external database. 
 
6.  How in general to reference an element (a table, query, or for ...

If I were using the UI, I would create a Totals query to find the number of 
 
unique values in a field, but I want to put that number into a variable in 
 
my code.  Is there any way to do that using a Domain Aggregate function, or 
 
do I have to create a recordset based on a Totals query, and open the 
 
recordset and read the first record? 
 
Thank you.

I am trying to allow a user to change default values for a field in a 
 
backend table. The following code runs without an error, but does not 
 
set the default field value. I must be missing something. Thanks for any 
 
help. 
 
DBName = CurrentProject.Path & "\Datadb.mdb" 
 
Set wrkDefault = DBEngine.Workspaces(0) 
 
Set dbsUpdate = wrkDefault.OpenDatabase(DBName, True) 
 
Set tdfUpdate = dbsUpdate.TableDefs("flkpTable1") 
 
With tdfUpdate 
 
Set tdfField = .Fields("DeclareT") 
 
tdfField.Pro ...

I am trying to allow a user to change default values for a field in a backend 
 
table. The following code produces no error but does not change the default 
 
value in the backend table. Can what I want to do be done?  Thanks for any 
 
help. 
 
strDeclarant = Me!DefaultDeclarant 
 
DBName = CurrentProject.Path & "\Datadb.mdb" 
 
Set wrkDefault = DBEngine.Workspaces(0) 
 
Set dbsUpdate = wrkDefault.OpenDatabase(DBName, True) 
 
Set tdfUpdate = dbsUpdate.TableDefs("flkpTable1") 
 
With tdfUpdate ...

Hello All 
 
I have lot of statements similar to the following: 
 
rptname = "rpt monthly summary letter" 
 
flname = mth & "-Payroll-Covering letter" 
 
blret = ConvertReportToPDF(rptname, vbNullString, drname & flname & 
 
".pdf", False) 
 
Each statement uses a different report. 
 
For each report I have the 'OnNoData' event set to Cancel = True, but I want 
 
to prevent the error message from being displayed when there is no data for 
 
a report. When the report is generated by clicking a bu ...

1.  I'm using the DCount function to access a value in a LINKED TABLE. 
 
2.  I have READ ONLY access to the database which the linked table is linked 
 
to. 
 
3.  If the database that the table is linked to is currently open on another 
 
machine, and when the line of code that uses the DCount function executes, I 
 
get the following error message: 
 
Run-time error '3045': 
 
Could not use '\\myPath\myDatabase.mdb'; file already in use. 
 
Does anybody know a way around this?  Do I have to d ...

Hello All 
 
I have inherited a db with a fairly complex module that I am trying to 
 
simplify. Essentally there are a lot (35) of reports in the db that are 
 
generated for a given [practice]. The reports are uploaded to a website and 
 
then sent as emails, and/or printed and posted, to the Practice. The report 
 
is generated for a [practice] if the value of a corresponding yes/no field 
 
(there are 35 such 'report' fields) on the current open form is 'yes', and 
 
the email/print decision ...

Does anyone know of a better way to secure an Access database than 
 
Microsoft's built-in security system?  Although the Microsoft Access Database 
 
Security system works, it is cumbersome.  If one is trying to open a secure 
 
database and is not set up for the right ‘mdw’, then all he/she gets is a 
 
message saying  that he can’t open the file.  If he sets the mdw to the one 
 
for the secure file he may have trouble opening other databases, which have 
 
not been secured. 
 
The prob ...

Hi everyone, I'm having a really strange problem with Access recently, and 
 
I'm hoping someone can maybe point me in the right direction. 
 
First, let me say that this is a huge project involving lots of custom-built 
 
VB DLL's, the Redemption EMAPI library, Outlook, etc., so Access itself may 
 
not directly be the problem.  Access/Outlook XP, VB6 SP6, not sure which 
 
version of Redemption off-hand, but moderately recent anyway. 
 
What happens is that at some point, I will get a "your sy ...

What command/syntax do I use to programmatically rename a file? 
 
I want to use: 
 
Application.CompactRepair myDB_Name,  myDB_Name2 
 
.... and the delete (kill) the first file, and rename the second file 
 
(myDB_Name2) to the name of the first file. 
 
I cant find a "rename" or similiar command in the FileSystem list. 
 
Please Help, Thanks. 
 
Kan D.

Access 2003.  I have a record set called rst.  I want to be able to reference 
 
fields in this recordset using a variable.  For instance, I have a variable 
 
call FNAM that might have the value of "GEN 1" or "GEN 2" (or a dozen other 
 
values) which are field names in the record set.  I would like to be able to 
 
reference those fileds in the recordset based on the value of FNAM.  I have 
 
tried: 
 
rst!FNAM 
 
This gives an error.  How may I accomplish what I am after?  Thanks for the 
 
h ...

How do I programmatically reference and manipulate the properties of 
 
"CurrentProject" from another database? 
 
The below example references "CurrentProject" within the current database, 
 
but I want to connect to another database and use the "CurrentProject" 
 
feature of THAT  database 
 
I added line 3 "dim accApp As Access.Application", as I'm pretty sure this 
 
line is neccessary, but the rest of my code here obviously does not refer to 
 
another database: 
 
========================= ...

Is there any way to show the "Description, Modified date & Created Date" 
 
fields from the properties of a report on the header or footer of the Report? 
 
I tried the following code, but I just noticed a strange anomoly. The field 
 
"DateUpdated" in MSysObjects is not the same as the "Modified" date shown 
 
under report objects.  Also I can not find the 'Description' field. 
 
The Datecreated is the same but the dateupdated does not match the modified 
 
date shown under report objects. 
 
I ...

In Access 2003, when I programmatically refer to an objects "LastUpdated" 
 
property, it returns the same value for "DateCreated". 
 
THIS IS INCORRECT 
 
And when I try this... 
 
==== 
 
dim accObj as AccessObject 
 
dim myDate as string 
 
for each accObj in CurrentProject.AllForms 
 
mydate = accObj.DateModified 
 
next accObj 
 
==== 
 
.... It returns the date I'm looking for.... The MODIFIED date. 
 
BUT What is the MODIFIED date for Tables and Queries?  There's no such thing 
 
as Curre ...

Hello All, 
 
The below code works, so why am I here???  Well, the Select Case 
 
cboFieldName cause a repainting which I would prefer to avoid.  I would like 
 
it sort by whichever field you choose without the repaint, if that is at all 
 
possible. 
 
Thanks in advance, 
 
Gina Whipp 
 
Private Sub ApplyFormFilter(strFieldName As String) 
 
Dim strFilter As String 
 
Dim strDefaultFilter As String 
 
Dim strDelimiter As String 
 
strDelimiter = Chr$(34) 
 
strDefaultFilter = "*" 
 
strFieldNa ...

Access 2000 
 
Hi All, 
 
Can the following be relied on to loop through the files in any particular 
 
order (I want it to loop in alphabetical order of the ucase(fl.name)) 
 
For Each fl In fs.GetFolder(strPath).Files 
 
DoEvents 
 
Next 
 
Cheers 
 
GPO 
 
GPO

Hello all, 
 
Are there any programming capabilities available for use in Access with 
 
regard to Winzip or any other zipping type software. 
 
For instance, is there a way to open a winzip file and extract the data 
 
files to disk? Automation? 
 
Can someone possibly point me to a link or give me a few tips? 
 
Thanx for in advance. 
 
Regards 
 
Dale

Scenario: I am using the following module to be able to move all items 
 
from one listbox to another , and vice versa.- 
 
Sub MoveAllItems(strSourceControl As String, strTargetControl As String) 
 
Dim strItems As String 
 
Dim intColumnCount As String 
 
Dim lngRowCount As Long 
 
For lngRowCount = 0 To Me.Controls(strSourceControl).ListCount - 1 
 
For intColumnCount = 0 To 
 
Me.Controls(strSourceControl).Column(intColumnCount, lngRowCount) & ";" 
 
Next 
 
strItem = Left(strItem, Len(strIt ...

Access 2003.  As part of a module I use the Shell command to run Kermit (and 
 
old asynchronous communication/file transfer program).  This Shell command 
 
brings up a "DOS" window in which Kermit runs.  How can I programmatically 
 
terminate (close) this DOS window from VBA.  I know when I am ready to 
 
terminate the window as I monitor the files Kermit is creating.  I just need 
 
to be able to get rid of this window when it is done.  Thanks for the help. 
 
God bless. 
 
-- 
 
Dr. Doug Pr ...

I've been trying to concatenate together a string to insert data into an 
 
access table.  Below is what I have which does NOT work. 
 
strSQL = "INSERT INTO EFiles (INCOMING_FILENAME, UNPACKED_NEW_FILENAME, WO, 
 
TRANSFER, REP, CLIENT, IS)" 
 
strSQL = strSQL & " VALUES ('" & .Item(iCtr).FileName & "'" 
 
strSQL = strSQL & ",'" & ConcatenatedFilename & "'" 
 
strSQL = strSQL & ",'" & oMessage.Subject & "'" 
 
strSQL = strSQL & ",'Email'" 
 
strSQL = strSQL & ",'" & REP & "'" 
 
strSQL = strSQL ...

Can an event AND event content be assigned prorammatically to a control? 
 
See below example's ".OnClick" line... 
 
Dim c_imgStatus As Image 
 
With c_imgStatus 
 
.Name = "imgStatus" & i 
 
.Picture = "\\path\path\Status Button.jpg" 
 
.HyperlinkSubAddress = "Form FormName" 
 
.OnClick = "MyVariable = " my_OtherVariable & Chr(13) & _ 
 
"msgBox MyVariable" 
 
End With 
 
So when I click on the button, I want the click to execute the button's "On 
 
Click" event that I'm trying to programmtically assign... 
 
Thank you for your help, 
 
Kan

I'm working on a project in which certain data is received in a decimal 
 
format, however I need to convert it to hexdecimal.  The numbers are 
 
typically 13-15 characters in length, which is too large for the standard VB 
 
Hex() function.  The solution I've found so far is to send the number to a 
 
shelled version of the Windows Calculator, convert it there, and bring it 
 
back.  Unfortuantely, after the conversion, I am unable to access the result 
 
- I've tried copying and pasting into  ...

Can an event AND event content be assigned prorammatically to a control? 
 
See below example's ".OnClick" line... 
 
Dim c_imgStatus As Image 
 
With c_imgStatus 
 
.Name = "imgStatus" & i 
 
.Picture = "\\path\path\Status Button.jpg" 
 
.HyperlinkSubAddress = "Form FormName" 
 
.OnClick = "MyVariable = " my_OtherVariable & Chr(13) & _ 
 
"msgBox MyVariable" 
 
End With 
 
So when I click on the button, I want the click to execute the button's "On 
 
Click" event that I'm trying to programmtically assign... 
 
Thank you for your help, 
 
Kan