その他(業務ソフトウェア)

フォームをオープンするタイミングであるフィールドのデータの中にブランクがあります。 そのブランク数を計算しテキストボックスに出したい。 以前に”無”の数を計算してテキストボックスに出すVBAを教えてもらいましたが、 そのまねをしてみましたが出来ません。良い知恵を教えてください。 Private Sub Form_Current() Dim ab As DAO.Recordset Dim j As Long Set ab = Me.RecordsetClone j = 0 ab.MoveFirst Do Until ab.EOF If ab!貸与対象者 = "isNull " Then j = j + 1 End If ab.MoveNext Loop Me!残数 = j ab.Close: Set ab = Nothing End Sub 上記のようにしてみましたが、出来ません。 宜しくお願い致します。 貸与対象者→フィールド ○○○○○ ××××× 　　　←ブランク ■■■■■ 残数→テキストボックス 以上です。

有り、無の二つがフィールド内にあり無の合計をテキストボックスに表示するようなVBAを 教えて頂けないでしょうか。 何卒、宜しくお願い致します。

ｘｐで使用していましたマイツールを７（６４ｂｔ）にインストールし アイコンも貼り付けられましたが 今までフローピ－Ａドライブを使用しデーターを保存していましたが ７に変わりフローピーAドライブが表示されずフロッピーの機械は 動作しています。 マイツールでフロッピーを認識させるにはどうしたら宜しいでしょうか？

thunderbird アドオンのquicktexというものを使っているのですが、PCを再起動すると中のテンプレートが消えてしまいます。どうしてでしょうか? デバックをやると直せると別のページで見ましたがやり方がわからなかったため教えてください。 また、インポートしても読み込みは出来ませんでした。 thuderbird ver:38.0.1 以上です。 よろしくお願いいたします。

アクセスで第一画面（フォーム）にデータを表示していますが、１つのフィールドのデータ群の中の１つをフォーム起動時に非表示にしたい。 フィールド名：ステータス ステータス内：完了、対応中、引き渡し待ち、・・・・ この中で完了を（完了のデータ全部）を非表示にしたい フィルターでは無理があるようなので再度質問させていただきました。 何卒、宜しくお願いいたします。

アクセスで第一画面（フォーム）にデータを表示していますが、１つのフィールドのデータ群の中の１つをフィルターでフォーム起動時に非表示にしたい。 フィールド名：ステータス ステータス内：完了、対応中、引き渡し待ち、・・・・ この中で完了を（完了のデータ全部）を非表示にしたい

今は、マクロで値の代入を使い アイテム＝[ID] 式＝DMax("ID","テーブル名")+1 として連番の次の番号を振ろうとしています。 これと同じことをVBAでやるにはどのように 記述すれば良いのでしょうか。 宜しくお願い致します。

サブバージョンのコマンドラインのアップデートができません。 svn, バージョン 1.6.11がインストールされている状態で、 svn, バージョン 1.8.7をインストールし、アップグレードしました。 画像のようにリポジトリブラウザはバージョンアップされましたが、 コマンドプロンプトでバージョンを確認するとバージョンが1.6.11のままです。 1.8.7をインストールした際に画像のようにコマンドラインも対象にしました。 コマンドがバージョンアップされないので下記のようなコマンドを打つと エラーになってしまいます。 C:\>svn update C:\Subversion\ svn: The path 'C:\Subversion\' appears to be part of a Subversion 1.7 or greater working copy. Please upgrade your Subversion client to use this working copy. C:\> コマンドラインもバージョンアップしたいのですがどうすればよいでしょうか。

防犯カメラとInternet Explorer 6, 7, 8 防犯カメラのＨＤＤシステムにアクセスしたいのですが、アプリやシステムが古すぎてどうにもなりません。 http://www.apa-direct.com/camera/shuhen_rokuga/egg-net.html Internet Explorer 6, 7, 8でないとダメとか、 手元にWindows 8.1しかないのですが、Internet Explorer 6, 7, 8のように振舞って動作させる事は可能ですか？

エクセル２０１３を、WINDOWS8.1で使用して居ます。会社のサーバーの中に入れてあって、ダウンロードし使用していましたが、容量が肥大化してしまって困っています。現在４０Ｍ程度あります。しかし、内容は住所録で、約２０００人分の住所・氏名・郵便番号・出身地　等が入っているだけなんですが、最初は500kb程度でしたが気が付いたら、４０Mにもなっていて、重すぎて困っています。 何をチェックして原因を探ればいいのか、教えて下さい。とにかく平常の容量まで戻したいのですが。特に画像や動画を入れた覚えはありません。郵便番号検索のアドインは組み込みました。その程度なんです。

3つのコンボックスがあります Combo1　→　都道府県 Combo2　→　市区 Combo3　→　町村 都道府県と市区までは正常にフィルター出来るのですが、町村を選ぶと都道府県や市区も 同じ町村の名前のデータを引っ張ってきてしまいます。 ボタンを付けることも考えましたが、VBAの能力があまりないので、失敗ばかりしています。 良い知恵を教えて頂けないでしょうか。 Private Sub Combo1_AfterUpdate() Dim Strkubun As String Strkubun = Me.Combo1 Me.Filter = "[都道府県]= '" & Strkubun & "'" Me.FilterOn = True Me.Requery End Sub Private Sub Combo2_AfterUpdate() Dim Strkubun As String Strkubun = Me.Combo2 Me.Filter = "[市区]= '" & Strkubun & "'" Me.FilterOn = True Me.Requery End Sub Private Sub Combo3_AfterUpdate() Dim Strkubun As String Strkubun = Me.Combo3 Me.Filter = "[町村]= '" & Strkubun & "'" Me.FilterOn = True Me.Refresh End Sub

なるべく安いソフトで、名入れ部分に横書きで名入れができたり、 連名の印刷場所が変更でき、データが取り込みできる機能があるソフトはありますでしょうか？

以前教えてもらった下記のサブフォームでのデータ保存VBAですが、このままだと添付ファイルのような画面が出てきてメインフォームでの保存が自動で出来ず、いろいろ試してみましたがうまくいきません。 何卒、ご指導宜しくお願い致します。 Private Sub 保存_Click() MsgBox　"データを確定保存します" DoCmd.RunCommand acCmdSaveRecord If Not SysCmd(acSysCmdGetObjectState, acForm, "メインフォーム名") = 0 Then 'MsgBox　"メインフォームの画面を更新します" With Forms!メインフォーム名 .Refresh End With End If End Sub

Private Sub 選択_Click() If NewRecord Then MsgBox "編集できません。選択しなおしてください。" Me.Undo End If End Sub 上記の命令が効いていないようです。メッセージも出ません。 Private Sub 編集_Click() Dim strFil As String strFil = "[選択]=" & True DoCmd.OpenForm "編集F", , , strFil 'DoCmd.Close acForm, "スタート画面F" '選択.Value = Null End Sub 上記のスタート画面は消したくないので’を付けてあります。 選択.Value=Null　でコンパイルエラーが発生していますので’を付けています。 Private Sub 検証_Click() Dim strFil As String If IsNull(Me.ステータスリスト) And IsNull(Me.申請リスト) Then MsgBox ("コンボボックスの選択がされていません") Exit Sub End If If Not IsNull(Me.ステータスリスト) And IsNull(Me.申請リスト) Then strFil = "[ステータス] ='" & Me![ステータスリスト] & "'" End If If IsNull(Me.ステータスリスト) And Not IsNull(Me.申請リスト) Then strFil = "[申請内容] = '" & Me.申請リスト & "'" End If If Not IsNull(Me.ステータスリスト) And Not IsNull(Me.申請リスト) Then If MsgBox("二つの条件でAND検索をしますか", vbYesNo) = vbYes Then MsgBox ("二つの条件でAND検索をします") strFil = "[ステータス] = '" & Me.ステータスリスト & "'and " & "[申請内容]='" & Me.申請リスト & "'" Else MsgBox ("二つの条件でOR検索をします") strFil = "[ステータス] = '" & Me.ステータスリスト & "' Or " & "[申請内容]='" & Me.申請リスト & "'" End If End If Me.Filter = strFil Me.FilterOn = True End Sub 上記はそのままです。 選択のチェックボックスにチェックを入れてもそのデータが編集画面に反映されない現象が発生してしまいました。どこが悪いのか教えて頂ければ幸いです。

現在、考えてorの場合とandの場合とIF文で作ってみましたが、うまくいきません。どうぞお知恵を拝借願えないでしょうか。 Private Sub 検証_Click() If "[ステータス]=　'" & Me.[ステータスリスト&] Then Me.Filter = "[ステータス] = '" & Me.ステータスリスト & "' Or " & "[申請内容]='" & Me.申請リスト & "'" Me.FilterOn = True If "[ステータス]=　'" & Me.[申請内容&] Then Me.Filter = "[ステータス] = '" & Me.ステータスリスト & "' Or " & "[申請内容]='" & Me.申請リスト & "'" Me.FilterOn = True Else Me.Filter = "[申請内容] = '" & Me.ステータスリスト & "' Or " & "[申請内容]='" & Me.申請リスト & "'" End If End If Me.Filter = "[ステータス] = '" & Me.ステータスリスト & "'and " & "[申請内容]='" & Me.申請リスト & "'" Me.FilterOn = True End Sub

フォームに何のデータもない場合、その画面をクローズさせる場合のVBAを教えてください。 タイミング的にはフォームを開いた時に判断したいです。 宜しくお願い致します。

サブフォームでデータ更新を行い、保存ボタンを押しメイン画面に戻り次の動作(なんでも）をすると添付ファイルのエラーメッセージが出てきてデータが更新されない。 VBAで何とかしたいのですが、ご助言の程、宜しくお願い致します。

現在、サブフォームを開く時に値の代入の後、DMax関数で+1をして最後のレコードに+1したIDをマクロで行っていますが、VBAでできないでしょうか？ １．サブフォームを開く　Cmd　Open フォーム名 ２．値の代入で（””）をいれフォームをクリア ３．値の代入でID=DMax"テーブル”+1 良い知恵があれば教えて頂けないでしょうか マクロにあまり頼りたくないので宜しくお願い致します。

帳票フォームでデータを出している画面の一番左にチェックボックスを配置しました。 第一にチェックボックスを１つづつ選択できるように下記を記載しました。 Private Sub 選択_Click() If Me!選択 Then CurrentDb.Execute "UPDATE テーブル名 SET 選択 = False;" Me.Refresh End If End Sub チェックボックスにチェックを入れると一連のデータが新しいフォームに移る様に 下記のように記載しましたが、全く受け付けません。 Private Sub 編集_Click() If 選択 = False Then DoCmd.OpenForm "編集F" DoCmd.Close acForm, "メインフォーム名" End If 何が問題なのかわかりません。 ご助言いただきたく、宜しくお願い致します。

チェックボックスの選択では Private Sub 選択_Click() If Me!選択 Then CurrentDb.Execute "UPDATE 申請履歴Q SET 選択 = False;" Me.Refresh End If End Sub でチェックボックスを１つづつ選択可能にしたのですが、 フォームに移動しようとすると最初の（００１）のデータがフォームに 出てきてしまいます。 Private Sub 編集_Click() Dim mode As Variant mode = Me.選択.Value DoCmd.OpenForm FormName:="編集F", DataMode:=acFormEdit うまく選択できていないのは分かるのですが、本を何冊も広げてみても 良い回答に行きつきません。 何卒、ご指導の程宜しくお願い致します。