Recent content by ComputorMike

Add the following function to module1 The following will prompt a message box to user if they want to add the info to the list. You only have to send it Me. The fuction will figure out what combo box has been selected even if it is in a sub form, and what field to append the new data in the...

I = instr("Cat","a") To object or not to object That is the question Alast poor varible I new you well

On got focus set up a msgbox to get MyPickState. You can control the source of the combo box by going to the recordsource property. Me.Combo22.RowSource ="SELECT * FROM [MyTable] WHERE (((MyTable.State) = " & Chr(34) & MyPickState& Chr(34) & "))" To object or not to...

Create 5 buttons, when clicked change the caption of the form. Know you now the option and record source of the form. Me.Caption = "Missing EPAC'S for Material 9D" Me.RecordSource = "SELECT * FROM [T Material 9D] WHERE EAC = null" or Me.Caption = "Missing EPAC'S for...

sSqlSelect = "SELECT [PART NUMBER],DESCRIPTION, EAC,UPE" sSqlDescrip = "WHERE DESCRIPTION " & Chr(38) & Chr(34) & " " & Chr(34) & " > " & Chr(34) & Chr(34) & _ " And [Part Number] Like " & Chr(34) & "*" & Chr(34) & Chr(38) & _...

Set rst = db.OpenRecordset(sSQL, dbOpenDynaset) If Not rst.BOF Then rst.MoveLast i = rst.RecordCount To object or not to object That is the question Alast poor varible I new you well

Public Function RemoveX(MyStr As Variant, MyChars As String) As Variant 'Send a string and remove all characters in MyChars Dim I As Integer Dim I2 As Integer If IsNull(MyStr) Then GoTo Jump For I = 1 To Len(MyChars) For I2 = 1 To Len(MyStr) If Mid(MyStr, I2, 1) = Mid(MyChars, I, 1)...

Am I missing something to this question? If you need a value you can val(MyPhoneNumber(PhoneNumber) and get 1234567890 out of (123) 456-7890 Public Function MyPhoneNumber(sPhoneNumber As String) As String Dim I As Integer Dim sNumber As String For I = 1 To Len(sPhoneNumber) If...

This Code works. Some of the code was taken from famousb. Thank you. Mike Function MyAddtoList(NewData As String, Response As Integer, sFrmName As Form) 'MSB 06/14/01 MyAddtoList function in module1 'Private Sub ComboName_NotInList(NewData As String, Response As Integer) 'MyAddtoList NewData...

I made a function to handle this. It work but is there any hidden trap. Function MyAddtoList(NewData As String, Response As Integer, sFrmName As Form) 'MSB 06/14/01 MyAddtoList function in module1 'Private Sub ComboName_NotInList(NewData As String, Response As Integer) 'MyAddtoList NewData...

Goto this Microsoft Url and follow the instructions. http://support.microsoft.com/support/kb/articles/Q191/2/24.ASP?LN=EN-US&SD=gn&FR=0&qry=no%20license&rnk=3&src=DHCS_MSPSS_gn_SRCH&SPR=ACC Download AcLicn97.exe

did you create a lmhost file with the IP adress of the exchange server in it. And put it in c:\windows xxx.xxx.x.xxx network_ser #PRE #DOM:allied xxx.xxx.x.194 exch_ser #PRE

I like this trick If trim(Mystr + " ") > "" then dosomething

Here is some code I used on a cross tab query make tbl, that made a wet table from data I just Imported, The table def had to be updated because I never new what data they were going to throw at me. So I wrote the following function and pass it the wet tbl and appended fields to the working tbl...

Hi Jim Workbooks.Open FileName:=MyExcelFullPath, UpdateLinks:=0, ReadOnly:=True, password:=MyPassword Hope this helps Mike