Search results for query: *

Rick, Thanks for the compliment. Yes - this is my first exposure to SQL and I am suffering lots of headaches as a result. NOTHING I want to do seems to be as easy as it seems! However, the response from this forum has been quick and very helpful so I shall definitely be coming back.

RickSpr Thanks for this but I am new to Access and have taught myself out of a book! I can see how your code would do the updates to records which already exist in tblSupplier but how would it add the new records in as well? Wouldn't I have to do a separate Append assuming that a query of...

Basically the problem is as follows: tblSupplier is a "permanent" table in my database which contains information about all our suppliers and is keyed on SupplierCode. Our Order system will be exporting a file each month which will list all details about all our suppliers. Some of the...

I have 2 tables in a one-to-many relationship. The "one" table (tblSupplier) contains a SupplierCode field which is unique and is also the primary key. The "many" table (SupplierList) contains data from an imported file which I am going to use to append records to...

I think you are missing another call to the DIR function just before the WEND statement

P.P.S. Sorry forgot - If you have loaded the MSDN onto your machine, have a look in the samples directory. You will find a VBMail project which shows that use of MAPI.

If you are talking about mail-enabling your application, you are talking about MAPI or you can use the "Domino Mail Collaberation" object. I warn you , however, that mail enabling Notes CAN be rather tricky depending upon your setup. The best thing I can suggest is to logon to the...

Try Selection.EntireColumn.Hidden=True

Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Use as follows: Dim sDir As String Dim lBuf As Long Dim lReturn As Long lBuf = 100 sDir = Space$(lBuf) lReturn = GetTempPath(lBuf, sDir)...

Sorry I'll make that more detailed (and accurate)! In the KeyPress event do: If KeyAscii = 72 Then KeyAscii = vbNull End If This example allows entry of any characters EXCEPT uppercase H. So you will need to alter the IF statement to fulfil yur requirements

In the KeyUp Event, check the KeyAscii code and ensure that it is within the alpha range you want. If it is just exit the sub else set Cancel=true

Try the DateDiff function using the "w" (weekday option) interval. So... DateDiff ("w",date1,date2)

I have had the same problem with Access. However, it appears to be transitory in that some days it works and some days it doesn't. I have SPd Access and done the repair that it seems to frequently demand but this has made no difference. The only way that I have found to get over the problem is...

If you want the arg2 paramater to be an array of controls, then you need to load the CONTROLS into the array and not the NAME of the controls. So do something like this. This will list out the names of each control on the form. Private Sub cmdDoit_Click() Dim s() As Control Dim n As Integer...

In the Subprocedure, try: arg2() as control

Staright out of the MSDN - This will give you a list of available printers on the machine as listed in the Printers Collection: Private Sub LoadPrinters() Dim pr As Printer For Each pr In Printers Combo1.AddItem pr.DeviceName Next pr Combo1.Text = Printer.DeviceName End Sub

Simplest is usually best: Set TS=FSo.OpenTextFile("your file name",ForWriting,True) for p=lbound(sPlayers) to ubound(sPlayers) TS.WriteLine sPlayers(p).sPlayer & "," & CStr(sPlayers(p).nScore) next TS.Close

Simplest is usual best: Set TS=FSo.OpenTextFile("your file name",ForWriting,True) for p=lbound(sPlayers) to ubound(sPlayers) TS.WriteLine sPlayers(p).sPlayer & "," & CStr(sPlayers(p).nScore) next TS.Close

OK - Let's do some checking. Use Regedit to check the Mousespeed value under HKEY_CurrentUser\Control Panel\Mouse. Set the SubKey_Name variable to "Control Panel\Mouse" and the SubKey_Value to "MouseSpeed". Run the original bit of code. Do you get the correct value back?

Why don't you try something like this. You will need to add a reference to Microsoft Scripting Runtime (SCRRUN.DLL) This is VERY rough code: ' Put these lines in the Declarations section Type PlayerInfo sPlayer as String nScore as Integer '(you might need a long here) End Type Dim FSO...