Hey All
I have designed a DB with a password form: here is the code below.......
Private Sub cmdOpenFrm_Click()
Dim UserId, Pwd As String
cboUserId.SetFocus
UserId = cboUserId.Text
txtPwd.SetFocus
Pwd = txtPwd.Text
If IsNull(UserId) = True Then
MsgBox "Please select user name...
There are a couple of approaches to this question, however the easiest and, what I feel to be the most efficient solution, is to attach the string to the Open Event of each form or build a module and referrence the module on the Open Event.
Hope this helps.
Spencer.
Access assumes that you are using ADO for recordsets. If you are actually using a DAO method then try the following:
Dim myDb As Database
Dim myRec As DAO.Recordset
Set myDb As CurrentDb()
Set myRec As CurrentDb.OpenRecordset(ENTER SQL STATEMENT HERE)
As indicated above, you will need to...
Most applications need simple management tools to allow adding and deleting users. My suggestion would be to build a table that has the data for the individuals you would like to extend access to this specific form.
Table can include the following
pkeyId = AutoNumber
strUserNam = Text...
Hey theitgroup
I am guessing that you placed .Requery on the Combo Box on the main form. Instead of doing this, try this solution;
1. Since I am assuming that you have an open record control (button) on the subform. Add Me.SelectDO.Requery in the code for this control.
acCurViewDesign constant does not exist in Access 2000. Replace your code with this:
Function IsLoaded(ByVal strFormName As String) As Integer
Const conObjStateClosed = 0
Const conDesignView = 0
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then...
Does anyone know how I can address skipping Day/Time units in VB. Here is my dilemma,
The program that I put together measures duraction for specific inquiries. When these inquiries reach a certain time frame (5) days, they are transferred into another bin. I need the 5 days to exclude...
Thank you for the quick reply.
1. I can not complete this function (limited knowledge of Lotus), however I do have resources at my disposal that "COULD" put this into production. My problem, as may already know, is the amount of push back from my development team. They are inundated with...
In the "On Click" event for the Text Box or whatever your using, add the following code.
Private Sub fieldname_Click()
fieldname.value = Date
End Sub
You can also set the field to =Date(), however I have always been a proponent for using Hard Code instead of the properties sheet.
See Ya
I am new to the Lotus Notes world, which will explain some of the stupid questions I may ask.
1. My company uses a certain Notes database in which emails are received. These emails are time sensitive and most of my clients would like a TAT (turn around time) of 2 to 4 hours. What I would...
Here is a simple solution. Not too complicated. I have listed some sample data to use to test my approach to this automated process. You can twist this up into your own variation to better suit your needs. However, this will give you a baseline to start with.
I added two data fields Fname...
I ran accross this code while attempting to change over from Outlook to Lotus. Works great.
Add this to a module and call this routine from a command.
I automatically send emails based on certain criteria that are met within a QUERY.
Public Sub modEmail()
Dim Maildb As Object
Dim...
I am attempting to use a custom built login and password form that will automatically autopopulate a Current User table for use on forms that will stamp the information automatically. I was able to get the code to work in Access 97, however it is failing miserably in Access 2000. Here is the...
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.