access-vba

0熱

2答えて

MS Access 2016のリストボックス（リストボックス1）は、1列 - ActualDateを持っています。この列には多数の日付が含まれており、その一部は複製されています。 ActualDateカウント - - Countがlistbox1をから選択された行の数であるとこのリストボックスのための値集合ソースは、私は2列を有し、同じフォーム上の別のリストボックス（Listbox2）を移入す

0熱

1答えて

Multilineプロパティの問題は

私がメモに設定されている私のデータベース内の列を持っています。私は、テキストボックスにデータを表示しようとしています。私は、入力キーの動作プロパティからフィールドで新しい行を有効にしているが、レコードからのすべてのデータは現在表示されて - 私は何をしないのですか？データは、リストボックス、以下の例のコードから引き出されている：事前

0熱

1答えて

ファンクションとクエリを使用したアクセスから添付ファイルを保存する

私はパブリック関数とクエリを持つMS Accessデータベースを持っています。私は関数が '添付ファイル'列のすべてのフィールドをループし、そのフィールドにすべての添付ファイルを保存するようにしたいと思います。 "SEDOL"列とファイル名の最初の部分として対応する行の値を保存する必要がありますが、以下のコードの "Set rsA2 = fld2.Value"行にバグがあります。 SEDOL列は通

-1熱

1答えて

VBAにアクセス - 更新後のイベント

名前を持つコンボボックスの数に応じて、Microsoft Accessフォームでvbaを使用してフォームに表示する特定の値を生成する際の支援が必要です。たとえば、ユーザーが「トム」を選択した場合、トムとジェリーが選択された場合は10、トム・ジェリーとジョージが30の場合は20となります。したがって、「他のフィールド」に固定金額これらのコンボボックスのどれだけが値を持つかに基づいています。ご協力

0熱

2答えて

選択したクエリのアクセスに基づいて.eofループがネストされていないvba

私は基本的に水平のデータをExcelテーブルのように変換しようとしています。ネストされたループを使用する必要がありますが、その方法についてはわかりません。ここで働いているこれまでのコードですが、私は望んでいないどのように：私はそれをしたい Code result ：私のコードは、この返します。 strSQL = "SELECT * FROM tblTimeSheetData WHERE [Wor

0熱

1答えて

サブフォームのコンボボックス選択に基づくレコードのオートフィル

コンボボックスの選択に基づいてレコードを自動入力しようとしています。コード Private Sub SupplierName_Change() Me.RecordSource = "Select * From Suppliers Where DetailID=" & SupplierName.Column(1) Me.Refresh End Sub あなたはコンボボックスの選択に基づい

1熱

1答えて

VBAにアクセスしてAttachement（QueryDef）付きメールをループに送信

達成しようとしていることは何ですか？メールアイテムごとに作成しようとしています。このメールアイテムには添付ファイルとしての一時的なクエリが必要です。私は一時的なクエリをフォルダに読み込みます。問題を示すコードの部分を貼り付けます。問題はクエリです。それは添付ファイルに常に同じデータを表示し、各rsのデータは表示しません。私は私のループにクエリdefを含める必要があることをお勧めしますが、私は

0熱

1答えて

文字列が（テーブル内の）フィールドに存在するかどうかを判断し、その同じレコードの別のフィールドの値を取得する方法はありますか？

インスタンスが存在するかどうかを判断するだけなので、DCountはこれに対して機能しません。何か案は？私はこれは非常に単純な仕事だと思っていますが、グーグルで適切なものを見つけるのが難しいです:-(

-1熱

1答えて

一時テーブルからAccessサブフォームに値を取得しようとしています

私はこれをマクロとVBAコード（エキスパートではない）で試しました。 1つのレコードテーブルtmpTbl_TEMP_AMTからTEMP_AMTの値を取得し、その値をTotalAmountコントロールのサブフォームに格納したいだけです。

0熱

3答えて

フォーム上のボタンを使用してMicrosoft Accessデータベースに値を挿入する

こんにちは、現在、提供されている行を使用して、データベースにフォームに入力されたいくつかの値を追加しようとしています。 Private Sub btnInsert_Click() DoCmd.RunSQL "INSERT INTO Band (BandID, BandName, BandAddress, ContactName, PhoneNumber)" End Sub 3431