Search results

Check this article at Change Field Type.

There is a good module named modToolbarUtilities, came with Solutions.mdb. It shows you to use API to call the Help file. Check your MS Office CD for it.

You mean you want to show the corresponding pict to each record in form or in report, right? In your form, just add the Image control and name it Pict (or whatever you like) then put the code below. Private Sub Form_Current() Form_Load End Sub Private Sub Form_Load() On Error Resume Next...

Sub TurnOffNameAutoCorrect() Application.SetOption "Track Name AutoCorrect Info", False End Sub Cheers!

I think you need space in you SQL string, before From and Where. StrSQL = "SELECT data.NameofRegistrant, Data.[Hospital\FacilityName], Data.Address, Data.Address1, Data.City, Data.State, Data.ZipCode" _ & " FROM Data" _ & " WHERE Data.Westin = Yes;"

Since ADO does not have RecordsetClone, so have to change Dim rs As ADODB.Recordset to Dim rs As Object

Do you want to filter some records to be sent to Word? Or all records. If you want to use parametered query, you have to supply the Parameters to the code as showed below. Try this out. Dim objWord As Object Dim dbs As Database, rst As Recordset, I As Integer, qdf As QueryDef Dim strSubName As...

Check the Knowledge Based Article, ACC: Sending the Current Record to Word 97 with Automation out.

Press F2 when you are in the text box and type this line in. Electronic Version#c:\My Documents\.......\text.doc# If you'd like to change all records this way, you have to use Update Query or Recordset to help you out, like this. UPDATE YourTableNameHere SET...

You can force the form to sort the way you like with code. Just put the code below on OnLoad event. Private Sub Form_Open(Cancel As Integer) Me.OrderBy = "[Date], [Time]" Me.OrderByOn = True End Sub And do not name the fields with reserved words like Date, Time, Name, ect.

You can use TransferDatabase method to transfer objects from one db to another db. DoCmd.TransferDatabase acExport, "Microsoft Access", "YourTargetDBNameAndPath", acTable, "Table1" Check the TransferDatabase method in Help for more details.

It depends on how you want to paste the string to the target field. Do you want to copy from one field to another field in the same table or diff table? How are they related? With a unique key in both fields? One record or several records? You can use Update query or Recordset to copy and paste...

I guess you use Value property. Just leave the property out and you'll be able to use On Lost Focus event. If Me.YourTextBoxName1 <> ... Or Me.YourTextBoxName2 <> ... Then ... End If

Try the code below. Just add a text box (Text0) and a command button (cmdGetText). Private Sub cmdGetText_Click() Dim objFile As Object, objText As Object Set objFile = CreateObject("Scripting.FileSystemObject") Set objText = objFile.OpenTextFile("C:\test.txt") Me.Text0 = objText.ReadAll End Sub

Try the VBA below. Sub AddPrimaryX() Dim dbs As Database Dim tdf As TableDef Dim idx As Index Set dbs = CurrentDb Set tdf = dbs.TableDefs("YourTableHere") With tdf Set idx = .CreateIndex("YourTargetFieldNameHere") idx.Fields.Append...

I cut the portions from my old code. Check them out. Modify the portion below to meet yours. J = rst.RecordCount + 4 Sheet.Cells(J, 2).Value = "Total Sum" Sheet.Cells(J, 2).Font.Bold = True For I = 3 To rst.Fields.Count - 4 Sheet.Cells(J, I).Formula =...

I don't think the function is available in both Excel and Access. What the function returns? The last date of a given month, 28, 29, 30 or 31? If so, try the function below. Function EndOfMonth(dte As Date) As Date Dim MyDate As Date MyDate = DateSerial(Year(dte), Month(dte) + 1, 1)...

It seems to be a known bug. Check the link Mail Merge to Word Opens Another Instance of Access out.

Thanks for the function. Works great! But not for A97 since the SetHiddenAttribute is not available.

Check the link Hide Tables out.