Mise à jour de la table avec le calcul de champ d'un formulaire dans Access

Je suis très nouveau à l'Accès et je suis en train de calculer le salaire Gagné de l'employé, fondé sur le pas de jours de travail.
Pour cela, j'ai créé un Formulaire de saisie de la pas de jours de présence et de calculer le salaire gagné à la lumière des commentaires.Maintenant je veux passer ce salaire gagné en valeur de la zone de table.
Pouvez-vous s'il vous plaît aider moi

  • Prendre le résultat de ce calcul est puis en VBA exécuter une requête mise à jour pour affecter la valeur correspondante dans le tableau. DoCmd.RunSQL peut être utilisé en VBA pour exécuter une instruction SQL. Si vous voulez plus d'aide au-delà de ce que nous aurons besoin de plus d'informations.
  • J'ai essayé de l'écrire dans l'Après Événement de mise à Jour du champ calculé de la Forme, mais n'est pas mise à jour dans ma table.Pouvez-vous pleaase corrigez-moi si je me trompe trouver de l'aide moi comment l'écrire
InformationsquelleAutor user2950701 | 2013-11-05
  1. 1

    Tout d'abord de la maison; de même Avec vos noms de champ, il est préférable de ne pas avoir d'espace entre eux, il est beaucoup plus facile de code (à partir de votre chaîne SQL il semble que vous pouvez avoir fait cela, mais juste de la vérification). Aussi, évitez d'utiliser des mots réservés en tant que noms de domaine par exemple de ne pas utiliser le Nom comme un nom de champ, il y a une liste de Visual Basic mots réservés ici qui couvrira tout le VBA et un peu plus.

    Deuxièmement, il semble que vous êtes le stockage d'un champ calculé - EarnedSalary est un calcul de BasicPay, TotalWorkingDaysInMonth et ActualWorkedDays. Généralement le stockage des champs calculés est considéré comme un non-non, réf Allen Browne page sur les champs calculés. Sur cette page, Allen donne quelques conseils sur les champs calculés qui peut aider, surtout si vous décidez que vous ne voulez l'enregistrer et l'utiliser Access 2010 (je ne suis sur de 2007...).

    Quant à votre question, vous n'avez toujours pas me dire où est votre erreur a été de sorte qu'il est difficile de cerner le problème. Ma conjecture est que vous appelez la mise à jour Sous au mauvais endroit - vous souhaitez mettre à jour EarnedSalary mais vous appelez le processus dans le Aprèsmaj de ce contrôle, donc le code ne sera pas le feu jusqu'à ce que vous mettez à jour le champ le code est destiné à la mise à jour. Le code doit être dans le Aprèsmaj de ActualWorkedDays.

    De plus, il semble que vous utilisez un formulaire lié qui voudrait dire que vous n'avez pas besoin d'utiliser le SQL de mise à jour, une solution semblable à Allen exemple suffit:

    Sur le formulaire si vous avez un contrôle pour chacun des domaines impliqués dans le calcul:

    Private Sub ActualWorkedDays_AfterUpdate()
     Me.EarnedSalary = Me!BasicPay /Me!TotalWorkingDays * Me!ActualWorkedDays
End Sub
    InformationsquelleAutor Simon1979
  2. 0

    Assez génériques que vous n'avez pas donné beaucoup de détails mais quelque chose comme cela dans la AfterUpdate devrait fonctionner:

    Assumer les contrôles sur le formulaire sont les suivants:

    txtEmpID pour l'ID de l'employé,
    txtHourlyRate pour ce que de multiplier le nombre ou la heures par,
    txtHoursWorked que ce que vous entrez comme des heures de travail

    Dim dblEarnings as Double

dblEarnings = me!txtHourlyRate * me!HoursWorked

CurrentDb.Execute "INSERT INTO [tblYourTable] (EmployeeID, EarnedSalary) VALUES (" _
    & Me!txtEmpID & "," & dblEarnings & ")",dbFailOnError

    Je serais probablement chercher à enregistrer le nombre d'heures travaillées et le taux horaire et calculer le salaire à la volée plutôt que de stocker un nombre calculé. Ou stocker les heures et les de total et calc le taux horaire si nécessaire.

    • Je suis très reconnaissant pour vous.Je ahev essayé la même chose pour exécuter la Requête SQL, mais elle présente un autre objet.Pouvez-vous s'il vous plaît aider moi .
    • Désolé, pas sûr de ce que vous voulez dire quand vous dites que c'est en montrant un autre objet. Pouvez-vous modifier votre réponse et vous mettre le code dans et de m'en dire plus sur l'erreur que vous recevez?
    • Bonjour Simon, Pouvez vous s'il vous plaît me permettre de résoudre ce qui, de nouveau, j'ai essayé sam eyour code n'est pas encore le remplissage de toutes les données dans le tableau.
    • J'ai besoin de plus d'informations: qu'est-Ce que ta table s'appelle? Quels sont les champs à peupler? Qu'est-ce que le calcul de votre salaire? Quels sont les contrôles sur le formulaire? Modifier votre question et de le coller dans votre code et je devrais être en mesure de faire des progrès.
    • ont Créé un Employé de la table avec les champs suivants :EMP Id ,le Nom,la Rémunération de Base,le Total des Jours ouvrables dans un mois,Réel de Jours de travail ,Salaire Gagné.Maintenant, j'ai créé le Formulaire avec tous les champs de la Table et je suis le calcul du Salaire Gagné à l'aide de la source de commande à l'aide de Salaire Gagné=BasicPay/nombre Total de Jours de travail dans le mois* Les Jours ouvrables.Maintenant, je veux remplir ce champ calculé dans le tableau. Je vais être de donner le nombre de Jours Réels en entrée sur la forme, car cette valeur va changer pour les employés en fonction de leurs Jours de présence.Donc,Pouvez-vous svp m'aider. –
    • Private Sub EarnedSalary_AfterUpdate() Dim dblEarnings Double dblEarnings = Moi!BaicPay / Moi!TotalWorkingDays * Moi!ActualWorkedDays Dim strSQL as String strSQL = "mise à JOUR [RP] JEU EarnedSalary =" & Me![dblEarnings] & ";" CurrentDb.Exécuter strSQL, dbFailOnError End Sub

    InformationsquelleAutor Simon1979