oops! left a part out on building the recordset
set rs = db.openrecordset("SELECT tblEmployeeInfo.* FROM tblEmployeeInfo WHERE tblEmployeeInfo.EmployeeID = " & Me.EmployeeID, db.opensnapshot)
docmd.openform "YearInfo", acNormal,,,acFormEdit,acHidden
Set TestDB2 = Forms!YearInfo.recordset
testdb2.findfirst "EmployeeID = " & EmployeeID
hmmm. Why are you opening a form?
is it to get a record?
why don't you go right to the recordset and not open the form?
dim db as...
They're right.
do like this:
private sub cmdButton_Click()
txtWhatever = theValue
end sub
option groups are bettern suited for this.
private sub optionGroup_Click()
SELECT CASE optionGroup.value
case is = 1
txtWhatever = firstThing
case is = 2
txtWhatever = secondThing
case else...
Try this:
function statusIs()
If status = "Working" Then
Forms!frm_PAF!frm_Products_Subform.Form.Add.Visible = False
Forms!frm_PAF!frm_Products_Subform.Form.Date.Visible = False
End If
If status = "Submitted" Then
Forms!frm_PAF!frm_Products_Subform.Form!Add.Visible = True...
Barcodes are fonts. You can purchase and download them from the web, and use them just like a regular font.
You can also purchase libraries and call them as objects, like from Wasp, but the former is easier to me.
-Jerry
Here's what I think you are looking for, one at a time.
First, if you want to have a dynamic source (pulling from a table or query) but you want to have an "all" choice, try using an option group, 1 button "all", one button "Individual" with a combo box of choices...
I figured out the fax thing.
the docmd.sendobject is for both email & fax.
It requires outlook, or outlook express.
It also requires a MAPI program like MS Exchange or Microsoft fax.
this is the object:
DoCmd.SendObject acSendNoObject, , acFormatTXT, recipient1, recipient2, recipient3, subject...
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.