Recent content by Databaseguy

Wow, that's wierd. Thanks for the tip. But yeah, I noticed it too and it was driving me nuts. I turned the date picker off, thinking that was the problem, but no. The good news is anyone can create an Access database. The BAD news is anyone can create an Access database.

Umm, what about closed forms guys ? ;) The good news is anyone can create an Access database. The BAD news is anyone can create an Access database.

Big Louie, you can also just do a compact and repair on your Access database. That'll shrink it back down. Access also does that when you're doing a lot of design work. Adding and deleting forms, queries etc. The good news is anyone can create an Access database. The BAD news is anyone can...

Thanks Luoie. Yeah, I tired the ampersand. I really don't think it can be done. Here's what the help files says The good news is anyone can create an Access database. The BAD news is anyone can create an Access database.

Thanks Louie. BTW, I WAS able to concatenate, however MAS puts an ascii chr 27 in the string for some reason. For example, in temp01, I have AR.INVHISH:INVOICE_NUMBER+'Ty', it returns 0100033TY The good news is anyone can create an Access database. The BAD news is anyone can create an...

Yes, I suggested using ODBC to pull the data. The project manager asked "Why don't you just use VI ?", so I have to justify the Access/VB utility.

I haven't found a way to do this in an Export Job. Either combining two fields, or combining a field and a string which I define. Louie, I'm going to class in a week so go easy on me ;)

Probably really simple, it's been years since my last install. Anyway, I put SQL 2000 on a new box. I can view the DBs, (Temp, Noethwind, Pubs) etc but when I open enterprise manager, I get the message "SQL Server (name) is not know to be running are you sure you wish to connect ?" I say yes...

Public Function fOSUserName() As String ' Returns the network login name Dim lngLen As Long, lngX As Long Dim strUserName As String strUserName = String$(254, 0) lngLen = 255 lngX = apiGetUserName(strUserName, lngLen) If lngX <> 0 Then fOSUserName =...

Pattycake, you got me close. Here's a star. Thx Here's what worked CASE substring([tblSearsItem].[Style],3,1) WHEN 'B' THEN 'BOYS' WHEN 'T' THEN 'TODDLER' END AS [gender]

I'm using substring([tblSearsItem].[Style],3,1) to strip out the third character as a field. The result will be 'B', 'M', 'J', or 'T' When the result is B, I want to display "Boys" in the SP as the column 'Gender' When the result is M, I want to display "Mens" in the SP as the column...

Use the absolute function ? =(abs([QtyShip])*[RegionalAmountDue])+[OtherTax]+[Freight]+[RegionalTax]

Well, the HARD way (which I have to do sometimes) is open the .dbf as a recordset, loop through it record by record and copy the fields into the table, which wouldbe a second recordset). This is how I do it with FoxPro On Error Resume Next Dim strSQLFox As String Dim rstFox As New...

Public Sub Bypass() Application.CurrentProject.Properties.Add "AllowByPassKey", False End Sub Note: Make a copy of your ADP first. If you've disallowed the F11 key (which is always a good idea) and run this, you'll never get into the back end of your DB again....

Dim prm As ADODB.Parameter Dim cmd As ADODB.Command Set cmd = New ADODB.Command Set cmd.ActiveConnection = CurrentProject.Connection cmd.CommandText = "sp_860Prompt" cmd.CommandType = adCmdStoredProc 'cmd.Parameters(0).Type = adVarChar cmd.Parameters(1).Direction = adParamInput...