WOW !! MUCH LOVE ! SO WORLD PEACE !
Fond bitcoin pour l'amélioration du site: 1memzGeKS7CB3ECNkzSn2qHwxU6NZoJ8o
  Dogecoin (tips/pourboires): DCLoo9Dd4qECqpMLurdgGnaoqbftj16Nvp


Home | Publier un mémoire | Une page au hasard

 > 

Essai de la mise en place d'une plate- forme informatique Direction Générale des Impôts opérateur économique "déclaration électronique " en RDC

( Télécharger le fichier original )
par Nestor (Néné ) MWANA- PAPA WALUMONA
Institut supérieur de commerce ( ISC/ MATADI ) RDC - Analyste programmeur (G3 ) 2008
  

précédent sommaire suivant

5.5.8. FORMULAIRE DECLARATIF « DECLARATION ELECTRONIQUE  »

Le formulaire offre une manière conviviale de saisir les données. Il minimise les erreurs de saisie par sa grande ressemblance avec un document papier, et comporte des champs provenant de plusieurs tables, ce qui nous évite de passer d'une table à l'autre lors de l'entrée des données10(*).

Par des tables, des requêtes et des formulaires, nous exploitons au mieux nos bases de données en uniformisant et en simplifiant la saisie des données.

Le formulaire proposé est élaboré avec les Assistants formulaires instantanés et nous avons continué à le personnaliser en Mode création.

Deux requêtes furent crées à partir des certaines tables.

- Requête Contribuable (table Adresse et table Contribuable)

- Requête Déclaration (table déclaration et table impôt)

LES OBJETS DE LA BASE DE DONNEES

LES REQUETES

a

LES FORMULAIRES

ETAT

MENU GENERAL PRINCIPAL

PROGRAMMATION DU MENU PRINCIPAL

Option Compare Database

Private Sub Form_Open(Cancel As Integer)

' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Par défaut' "

Me.FilterOn = True

End Sub

Private Sub Form_Current()

' Update the caption and fill in the list of options.

Me.Caption = Nz(Me![ItemText], "")

FillOptions

End Sub

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form.

Const conNumButtons = 8

Dim con As Object

Dim rs As Object

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first. You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

Me("Option" & intOption).Visible = False

Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message. Otherwise, fill the page with the items.

If (rs.EOF) Then

Me![OptionLabel1].Caption = "Il n'y a aucun élément pour cette page de Menu Général"

Else

While (Not (rs.EOF))

Me("Option" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Visible = True

Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

rs.MoveNext

Wend

End If

' Close the recordset and the database.

rs.Close

Set rs = Nothing

Set con = Nothing

End Sub

Private Function HandleButtonClick(intBtn As Integer)

' This function is called when a button is clicked.

' intBtn indicates which button was clicked.

' Constants for the commands that can be executed.

Const conCmdGotoSwitchboard = 1

Const conCmdOpenFormAdd = 2

Const conCmdOpenFormBrowse = 3

Const conCmdOpenReport = 4

Const conCmdCustomizeSwitchboard = 5

Const conCmdExitApplication = 6

Const conCmdRunMacro = 7

Const conCmdRunCode = 8

Const conCmdOpenPage = 9

' An error that is special cased.

Const conErrDoCmdCancelled = 2501

Dim con As Object

Dim rs As Object

Dim stSql As String

On Error GoTo HandleButtonClick_Err

' Find the item in the Switchboard Items table

' that corresponds to the button that was clicked.

Set con = Application.CurrentProject.Connection

Set rs = CreateObject("ADODB.Recordset")

stSql = "SELECT * FROM [Switchboard Items] "

stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If no item matches, report the error and exit the function.

If (rs.EOF) Then

MsgBox "Une erreur s'est produite lors de la lecture de la table d'élément du Menu général."

rs.Close

Set rs = Nothing

Set con = Nothing

Exit Function

End If

Select Case rs![Command]

' Go to another switchboard.

Case conCmdGotoSwitchboard

Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]

' Open a form in Add mode.

Case conCmdOpenFormAdd

DoCmd.OpenForm rs![Argument], , , , acAdd

' Open a form.

Case conCmdOpenFormBrowse

DoCmd.OpenForm rs![Argument]

' Open a report.

Case conCmdOpenReport

DoCmd.OpenReport rs![Argument], acPreview

' Customize the Switchboard.

Case conCmdCustomizeSwitchboard

' Handle the case where the Switchboard Manager

' is not installed (e.g. Minimal Install).

On Error Resume Next

Application.Run "ACWZMAIN.sbm_Entry"

If (Err <> 0) Then MsgBox "Commande non disponible."

On Error GoTo 0

' Update the form.

Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Par défaut' "

Me.Caption = Nz(Me![ItemText], "")

FillOptions

' Exit the application.

Case conCmdExitApplication

CloseCurrentDatabase

' Run a macro.

Case conCmdRunMacro

DoCmd.RunMacro rs![Argument]

' Run code.

Case conCmdRunCode

Application.Run rs![Argument]

' Open a Data Access Page

Case conCmdOpenPage

DoCmd.OpenDataAccessPage rs![Argument]

' Any other command is unrecognized.

Case Else

MsgBox "Option inconnue."

End Select

' Close the recordset and the database.

rs.Close

HandleButtonClick_Exit:

On Error Resume Next

Set rs = Nothing

Set con = Nothing

Exit Function

HandleButtonClick_Err:

' If the action was cancelled by the user for

' some reason, don't display an error message.

' Instead, resume on the next line.

If (Err = conErrDoCmdCancelled) Then

Resume Next

Else

MsgBox "Une erreur s'est produite lors de l'exécution de la commande.", vbCritical

Resume HandleButtonClick_Exit

End If

End Function

* 10 in Microsoft press : l'Essentiel Microsoft Access 2003, p157,novembre 2003,France.

précédent sommaire suivant






Bitcoin is a swarm of cyber hornets serving the goddess of wisdom, feeding on the fire of truth, exponentially growing ever smarter, faster, and stronger behind a wall of encrypted energy