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...
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...
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
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 Mike
Let me first thank you for bringing Steven Miller code to our attention. He brings to light most of the issues you would want to do with Excel. But even his code leaves Excel in memory. I ASSUME this is due to an inherent problem that active x components used to access Excel leak in...
Hi Lena
I wrote this function and it did not solve problem.
Maybe I am missing some thing.
Function StopExcel()
Dim oExcelApp As Object
Set oExcelApp = CreateObject("Excel.Application")
Do While Not (oExcelApp Is Nothing)
oExcelApp.Quit
Set oExcelApp = Nothing
If Not...
Hi Nicholas
If you ever get the correct answer please let me know.
I open over 300 Excel invoices and get the data out of them. No matter how I dispose the Excel Object, in any order there is always an instance of Excel left in memory.
This is not a problem until you try to open Excel again. My...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.