Définir la Valeur par Défaut de la Zone de Texte pour le Résultat de la Requête

Assez simple question. J'ai un champ de texte dans un formulaire que j'aimerais que la valeur par défaut doit être défini à la suite d'une requête. Cette requête renvoie une valeur par défaut du taux d'imposition pour un petit système de facturation, je suis en train d'ouvrir l'Accès.

La requête (qrySettingsDefaultTaxRate) ressemble à ceci et renvoie une ligne avec l'équivalent décimal du taux d'imposition, je voudrais mettre par défaut sous cette forme:

SELECT CDbl([value]) AS default_tax_rate
FROM settings
WHERE (((settings.key_name)="default_tax_rate"));

J'ai essayé la valeur par défaut de mon champ de texte à:

=[qrySettingsDefaultTaxRate]![default_tax_rate]

Cependant cela ne fonctionne pas. Quand je retourne à la vue de forme, la boîte est livré avec "#Nom?" comme la valeur par défaut au lieu de retourner le résultat de la requête.

OriginalL'auteur muncherelli | 2013-01-06

  1. 4

    Vous pouvez définir la source de contrôle d'une zone de texte à DLookup, ou définissez la valeur de la fonction Rechdom dans le code.

    DlookUp("default_tax_rate","qrySettingsDefaultTaxRate")

    Ou

    DlookUp("default_tax_rate","settings","settings.key_name='default_tax_rate'")

    Vous pouvez même mettre de la fonction Rechdom sur la feuille de propriété en vertu de Valeur par Défaut.

    Définir la Valeur par Défaut de la Zone de Texte pour le Résultat de la Requête

    OriginalL'auteur Fionnuala

  2. 3

    J'ai eu un problème similaire. C'est ce qui a fonctionné pour moi - j'ai écrit une fonction qui a renvoyé la valeur que je voulais mettre comme valeur par défaut et spécifié, la fonction par défaut de la forme.

    Mon code:

    Public Function MaxTDate()
    MaxTDate = CurrentDb.OpenRecordset("MaxTDateQry").Fields(0)
End Function

    ...et dans les propriétés du champ:

    Valeur Par Défaut =MaxTDate()

    OriginalL'auteur Joby

  3. 2

    Même si la réponse maintenant coché la bonne réponse suffit, pour certains cas.

    Il pourrait y avoir des cas où le défaut de la valeur d'une expression, d'un fichier externe, la saisie de l'utilisateur ou une autre calcul que ce soit.

    La raison pour laquelle Microsoft Access lance un #Nom? erreur, car il attend les données de Chaîne d'être cité par des apostrophes ". Alors que dire aussi que, Si la chaîne contient une apostrophe, il a besoin d'être échappés. Pensez addslashes en php.

    Afin de donner à une variable particulière DefValue,

    Dim DefValue
DefValue = "This is a static string or result from database query or other computation"
TextBox.DefaultValue = """" & Replace(DefValue, """", """""") & """"

    Donc, dans votre cas, il sera """" & Replace([qrySettingsDefaultTaxRate]![default_tax_rate], """", """""") & """"

    OriginalL'auteur dfasoro