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

[MMcCarthy]

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.

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

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).

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:

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
 
 
 

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