Access Database Problems (need some programmers)

[vonoventwin]

Here is the Access Database I need help with:

Database

user login David with password david

I am not worried about layout or design, after I get it working right I will create a nice interface, just need help with the following:

Here are my problems.

1. When user logs in I want that users name to be displayed on the form (frmSupply) in the Receiver at TMO textbox.

2. On the form (frmSupply), when a user selects Items belong to:, I want the coresponding RA's info to show up in the RAs Information textbox. Or maybe two textboxes (one RA name, one RA number). This info is all in the Table (tblSquadrons).

3. On the form (frmSupply) I have a Mail button and Print button (been playing around trying to find a way to email a record) I will change the icons later, for now I am trying anyway possible to send the current records contents by email. I like the way the Print button hyperlinks to email, instead of having to select a format.

That's it. If I can figure out these problems I would greatly appreciate it. I have no code experience so try to keep it simple.

[vonoventwin]

cmon anyone please?

[vonoventwin]

I still need help with #1 question

Figured out 2 and 3...

Here is what I did for 2:

Private Sub txtItems_AfterUpdate()
Dim stWho As String
Dim stWhere As String
Dim varS As Variant
Dim varT As Variant
 
stWho = Me.txtItems
stWhere = "tblSquadrons.strRAsquadron = " & "'" & stWho & "'"
 
varS = DLookup("[strRAname]", "tblSquadrons", stWhere)
varT = DLookup("[strRAphone]", "tblSquadrons", stWhere)
 
Me.txtRAname = varS
Me.txtRAphone = varT
 
 
End Sub

This is what I did for 3:

Private Sub Command53_Click()
    On Error GoTo Err_Command53_Click
 
    Dim stWhere As String       '-- Criteria for DLookup
    Dim varTo As Variant        '-- Address for SendObject
    Dim stText As String        '-- E-mail text
    Dim RecDate As Variant      '-- Rec date for e-mail text
    Dim stSubject As String     '-- Subject line of e-mail
    Dim stTracking As String    '-- The tracking number from form
    Dim stReceiver As String    '-- The receiver from form
    Dim stItems As String       '-- The items belong to from form
    Dim stRAname As String      '-- The RA name from form
    Dim stRAphone As String     '-- The RA phone from form
    Dim stContract As String    '-- The contract number from form
    Dim stVendor As String      '-- The vendor from form
    Dim stDescription As String '-- The description from form
    Dim stWho As String         '-- Reference to tblSupply
 
    '-- Who to send email to
    stWho = Me.txtRAname
    stWhere = "tblSquadrons.strRAname = " & "'" & stWho & "'"
    '-- Looks up email address from TblUsers
    varTo = DLookup("[strRAemail]", "tblSquadrons", stWhere)
    
               
    stSubject = ":: TMO Ticket Information ::"
 
    RecDate = Me.txtDate
    stReceiver = Me.txtReceiver
    stItems = Me.txtItems
    stRAname = Me.txtRAname
    stRAphone = Me.txtRAphone
    stTracking = Me.txtTracking
    stContract = Me.txtContract
    stVendor = Me.txtVendor
    stDescription = Me.txtDescription
    
    stText = "Here is the information for the product being received." & Chr$(13) & Chr$(13) & _
             "Received Date: " & RecDate & Chr$(13) & Chr$(13) & _
             "Receiver at TMO: " & stReceiver & Chr$(13) & _
             "Items belong to: " & stItems & Chr$(13) & _
             "RAs Name: " & stRAname & Chr$(13) & _
             "RAs Phone Number: " & stRAphone & Chr$(13) & Chr$(13) & _
             "Tracking/Frieght Number: " & stTracking & Chr$(13) & _
             "Contract/PO Number: " & stContract & Chr$(13) & _
             "Vendors Name: " & stVendor & Chr$(13) & _
             "Description of Items: " & stDescription & Chr$(13) & Chr$(13) & _
             "This is an automated message. Please do not respond to this e-mail."
 
    'Write the e-mail content for sending to assignee
    DoCmd.SendObject , , acFormatTXT, varTo, , , stSubject, stText, -1
 
Exit_Command53_Click:
    Exit Sub
 
Err_Command53_Click:
    MsgBox Err.Description
    Resume Exit_Command53_Click
 
End Sub

[taxes]

Hi,

I'm afraid your posts are confusing to me.

Variants do not exist in VB.NET

Referring to your first post:


What is the Receiver
,, at TMO textbox.
,, RA

Why are you having a problem displaying the User's name or ID? Presumable it is available in the LogIn form you are using. Are you asking how to make this information available in another form?

What do you mean by "when a user selects Items belong to:" ???