New User Button

Beany

Alright peeps,

Im trying to add details to a database called "tab_main". I wana add details such as phone number, name, imei no, PUK code, tariff etc etc for a mobile phone user.

Ive created an empty form with all the neccesary text fields and also a seperate form for just the New User button (the way i would like it l ).

I need some help and advice................

How do i click on the New User Button and show the empty form on a new window? and also on the empty form, i need an 'add button' that will allow me to add the details once the form is completed??? ANY1 GOT THE full CODE FOR THIS? OR ARE THERE ANY EXAMPLES AVAILABLE FOR ME TO VIEW????????????

Ur response will be highly appreciated.... thank you

msquared

Beany

I'm not sure what you mean. Normally to add records to a table or query you create a form bound to the table or query and put controls on the form bound to each of the fields. The form wizard can help with this.

Quote:

Originally Posted by Beany

Alright peeps,

Im trying to add details to a database called "tab_main". I wana add details such as phone number, name, imei no, PUK code, tariff etc etc for a mobile phone user.

Ive created an empty form with all the neccesary text fields and also a seperate form for just the New User button (the way i would like it l ).

I need some help and advice................

How do i click on the New User Button and show the empty form on a new window? and also on the empty form, i need an 'add button' that will allow me to add the details once the form is completed??? ANY1 GOT THE full CODE FOR THIS? OR ARE THERE ANY EXAMPLES AVAILABLE FOR ME TO VIEW????????????

Ur response will be highly appreciated.... thank you

NeoPa

I'm not sure exactly what you're after here, but I've designed a form class which enables the code to open one form from another. The calling object is automatically hidden until the called form is closed, at which time the calling form is reshown.

Class - classForm

Expand|Select|Wrap|Line Numbers

 Option Compare Database

Option Explicit
 
Private WithEvents frmTo As Form
 
Private frmParent As Form
 
Public Property Set frmFrom(frmValue As Form)

    Set frmParent = frmValue

End Property
 
Private Property Get frmFrom() As Form

    Set frmFrom = frmParent

End Property
 
Public Function ShowForm(strTo As String) As Boolean

    ShowForm = True

    'Handle error on OpenForm() only.

    On Error GoTo ErrorSF

    Call DoCmd.OpenForm(strTo)

    On Error GoTo 0

    Set frmTo = Forms(strTo)

    frmFrom.Visible = False

    Exit Function
 
ErrorSF:

    ShowForm = False

    Call ErrorHandler(strName:=strTo, _

                      strFrom:=frmFrom.Name & ".ShowForm", _

                      lngErrNo:=Err.Number, _

                      strDesc:=Err.Description)

End Function
 
'************************* Contained Object Method(s) *************************

'For these subroutines to be activated the contained object must have the

''On Close' property set to a valid subroutine within the contained object.

Private Sub frmTo_Close()

    frmFrom.Visible = True

    Set frmTo = Nothing

End Sub

'******************************************************************************

This is an example of the code for (my main menu) form which uses it (as a calling and a called form).

Expand|Select|Wrap|Line Numbers

 Option Compare Database

Option Explicit
 
Private clsTo As New classForm
 
Private Sub Form_Open(Cancel As Integer)

    Call DoCmd.Restore

    Set clsTo.frmFrom = Me

End Sub
 
Private Sub cmdAdHocMenu_Click()

    Call clsTo.ShowForm(strTo:="frmAdHocMenu")

End Sub
 
Private Sub cmdCustSPMenu_Click()

    Call clsTo.ShowForm(strTo:="frmCustSPMenu")

End Sub
 
Private Sub cmdExit_Click()

    Call DoCmd.Close(ObjectType:=acForm, ObjectName:=Name)

End Sub
 
Private Sub Form_Close()

    'Allows container to handle event.

End Sub

Notice the Form_Close() sub MUST exist - even if it contains only a comment line.

PEB

It seems me that this is a wizard for this!

Main/Subform wizard that creates separate forms and fills them on clicking a bouton... But in the old versions this wizard isn't present!

The code that you have to adapt is:

Expand|Select|Wrap|Line Numbers

 
Sub Form_Current()

On Error GoTo Form_Current_Err
 
    If ChildFormIsOpen() Then FilterChildForm
 
Form_Current_Exit:

    Exit Sub
 
Form_Current_Err:

    MsgBox Error$

    Resume Form_Current_Exit
 
End Sub

Sub ToggleLink_Click()

On Error GoTo ToggleLink_Click_Err

default_object_value = Me.[ID_obj]

    If ChildFormIsOpen() Then

        CloseChildForm

    Else

        OpenChildForm

        FilterChildForm

    End If
 
ToggleLink_Click_Exit:

    Exit Sub
 
ToggleLink_Click_Err:

    MsgBox Error$

    Resume ToggleLink_Click_Exit
 
End Sub

Private Sub FilterChildForm()
 
    If Me.NewRecord Then

        Forms![Object_info].DataEntry = True

    Else

        Forms![Object_info].Filter = "[ID_obj] = " & Me.[ID_obj]

        Forms![Object_info].FilterOn = True

    End If
 
End Sub

Private Sub OpenChildForm()
 
    DoCmd.OpenForm "Object_info", acFormDS

    If Not Me.[ToggleLink] Then Me![ToggleLink] = True
 
End Sub

Private Sub CloseChildForm()
 
    DoCmd.Close acForm, "Object_info"

    If Me![ToggleLink] Then Me![ToggleLink] = False
 
End Sub

Private Function ChildFormIsOpen()
 
    ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Object_info") And acObjStateOpen) <> False
 
End Function

Quote:

Originally Posted by Beany

Alright peeps,

Im trying to add details to a database called "tab_main". I wana add details such as phone number, name, imei no, PUK code, tariff etc etc for a mobile phone user.

Ive created an empty form with all the neccesary text fields and also a seperate form for just the New User button (the way i would like it l ).

I need some help and advice................

How do i click on the New User Button and show the empty form on a new window? and also on the empty form, i need an 'add button' that will allow me to add the details once the form is completed??? ANY1 GOT THE full CODE FOR THIS? OR ARE THERE ANY EXAMPLES AVAILABLE FOR ME TO VIEW????????????

Ur response will be highly appreciated.... thank you

Beany

thanks fellas,

im gonna have a try with the info u have provided!

cheers

New User Button

re: New User Button

re: New User Button

re: New User Button

re: New User Button

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about