You need to look at cascading combo boxes. Try this site. Look under cascading combo box.
http://www.utterangel. com/pages/access_download s.aspx
User Profile
Collapse
-
Try this function. I would try to steer clear of macros. Use them only when you have to.
...Code:Function TableExists(strTableName As String) As Integer 'Returns True if table exists Dim dbs As Database Dim i As Integer Set dbs = CurrentDb() TableExists = False dbs.TableDefs.Refresh For i = 0 To dbs.TableDefs.Count - 1 If strTableName = dbs.TableDefs(i).Name Then 'Table
Leave a comment:
-
Leave a comment:
-
More information on exactly what you are trying to do might help. Incidentally,My Variable = Me.TextBox will put what's in the textbox into MyVariable. No Quotation marks needed.Leave a comment:
-
Th easiest way is to create your query using the QueryGrid, QUERY>DESIGN then VIEW>SQL VIEW. You can then copy and paste the resultant SQLLeave a comment:
-
Put the email addresses into a table. Create a query based on this table. In your code, create a recordset of the email addresses. Use SendObject to send the emails. Something like this will do it.
Dim rst As DAO.Recordset
Dim strRecipients As String
Dim strSubject As String
Dim strBody As String
strSubject = "The subject"
strBody = "Body of the email here"
...Leave a comment:
-
-
-
-
You can either use code in an On Timer event of an unbound form, or you could use the Widows Scheduler. For the second part of your question, have a look here.
http://www.jephens.com/howtoemail.asp...Leave a comment:
-
You should be aware that this is not very secure as there are a number of password crackers around.Perhaps you should think about full Access security?Leave a comment:
-
Try this. Change your table and field name.
Code:SELECT YourTable.DateField FROM YourTable WHERE (((YourTable.DateField) Between #1/1/2006# And #12/12/2006#));
Leave a comment:
-
There is no next date function, although this can be simulated. You have to use the DateAdd function. This takes an interval and adds it a date. Here is an example.
=DateAdd("m",[Interval],[MyDate]) This is in the control source of a text box. You specify the interval and date. In this example it is adding x number of months(interval ) and adding it to the date field. Have a look at the help for more examplesLeave a comment:
-
In its simplest form
DELETE TableName.*
FROM TableName;
or, with criteria
DELETE TableName.Field Name
FROM TableName
WHERE (((TableName.Fi eldName) Is Null));
or, if you are taking the information from a form
DELETE TableName.*, TableName.[Controlname]
FROM TableName
WHERE (((TableName.[FieldName])=[Forms]![frmFormName]![ControlName]));Leave a comment:
-
You refer to the sheet by name and it's range, like so
Dim strPathName As String
strPathName = "g:\xl\ImportTe st.XLS" 'Your path name here
DoCmd.TransferS preadsheet transfertype:=a cImport, tablename:="ZZ" , filename:=strPa thName, Hasfieldnames:= False, Range:="A Test!a1:a20"Leave a comment:
-
DoCmd.TransferS preadsheet acExport, acSpreadsheetTy peExcel9, "YourTableOrQue ryName", "PathToWhere.xls", TrueLeave a comment:
-
You could use a function. Then call this function from your text boxes.
Public Function ValidateNumeric (strText As String) As Boolean
ValidateNumeric = CBool(strText = "" Or strText = "-" Or strText = "-." Or strText = "." Or IsNumeric(strTe xt))
MsgBox "Not Numeric"
End FunctionLeave a comment:
-
-
Courtesey of the Dev Ashish web site.
Pass the form name to the following function. Function will return True if form is open and False if it's not.
****** Code Start ********
Function fIsLoaded(ByVal strFormName As String) As Integer
'Returns a 0 if form is not open or a -1 if Open
If SysCmd(acSysCmd GetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormNa me).CurrentView...Leave a comment:
-
If it's working as a named query, why change it to SQL? DoCmd.OpenQuery "myquery" will work just as well.Leave a comment:
No activity results to display
Show More
Leave a comment: