日頃検査業務に携わっている者ですが、”ある製造NOの製品が検査終了したかどうか”を携帯からチェックできるようにできないかと考えています。現在ACCESS2000を使って検査終了したものの製造NOを入力しているデータベースが既にあるのでこれを利用したいのですが、何からどう手をつけていいのかわかりません。ちなみに私はHP等作成したことも無いため、できるだけ簡単な方法はないかと思案中です。どうかいい方法あったらご教示ください。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

WEBサーバーを立ち上げ、CGIで必要な項目を携帯のHTMLに合わせて出力。


そのWEBページを携帯でアクセス。
これがいちばん簡単な方法です。

WEBサーバーを立ち上げる為には、常時接続、専用サーバの設置、ルータやファイヤーウォールの設置と必要です。
    • good
    • 0
この回答へのお礼

早速のご回答ありがとうございます。いろいろやって勉強してみます。

お礼日時:2002/04/01 12:38

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qaccess インポート時、既にあるデータは上書き

accessで、データをインポートする時に、すでにあるデータは、上書きしたいです。
(既にあるIDの場合上書き、ないIDの場合追加されるようにする。)

そこで、検索すると、「更新クエリと追加クエリ」で出来ることがわかりました。
参考にしたページのアドレス
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1224631687

ここからが質問なのですが、
さらに、上書きするデータ(すでにあるデータ)は、バックアップとして別テーブルを作って
そこに更新前のデータをためていきたいのですが、どうすればいいでしょうか?

よろしくお願いします。

Aベストアンサー

画像が小さい・・ので再添付。
素人ですみません>_<

Q既にファイルが開いているのなら開かない(二重起動防

アクセス 既にファイルが開いているのなら開かない(二重起動防止)とするには?

自分なりにコードを考えてみたのですが

Sub Sample()
Dim acApp As Access.Application

Set acApp = CreateObject("Access.Application")
acApp.OpenCurrentDatabase "C:\test.accdb"

'該当のファイルが開いてないのなら、
If acApp.ReadOnly = False Then
acApp.Visible = True
acApp.UserControl = True
End If

End Sub


これだと、.ReadOnlyがコンパイルエラーになります。
どうやらReadOnlyはアクセスには用意されてない用語のようです。

このような場合どうすればいいでしょう?

Aベストアンサー

Accessファイルがローカルにあるのなら
ファイルを開けば拡張子が
accdb → laccdb
mdb → ldb
のファイルが作成されますので、Dir 関数で調べるのが一番簡単です。
ただし、排他モードで開いた場合は上記ロック情報のファイルは作成されません。
また、Accessが異常終了した場合には上記ファイルは残ったままになることも有り。

別案としては
Dim Ac as object
set ac=getobject("C:\test.accdb").application
・・・以下省略
などもありますが、Accessを前面に持ってくる必要があったりします。

QExcel2000マクロ_ブック名に一貫性が無くて既に開いている物の間のコピー等

何方か、回答をお願いします。
(A.xlsのAAAシート)(B.xlsのBBBシート)この2つ間のセル値をコピーしたい
のですが(共にブック名シート名に一貫性は無しで、既に開いています。)
マクロ付.xlsに下記のマクロを書いてA.xlsのAAAシートがアクティブの時にマクロを
実行してtwwにAAAシートをセット出来たのですが、Bk1にB.xlsのBBBシートをセット出来ません。
Application.Waitで止めている間にアクティブシートを変えようとしましたが駄目
Application.Dialogs(xlDialogWorkbookUnhide).Showでも駄目でした。
何方か、マクロ実行中のアクティブシート変更方法を教えて下さい。
又、この様なブック名に一貫性が無くて既に開いている物の間のコピー等はどの様に
するのか参考になる物が有れば教えて下さい。

Sub コピー()

Dim Bk1 As Worksheet
Dim tww As Worksheet

Set tww = ActiveWorkbook.Sheets(1)

'ここが分かりません

Set Bk1 = ActiveWorkbook.Sheets(1)

'-------1個目
tww.Range("D10").Value = Bk1.Range("H9").Value

Set Bk1 = Nothing: Set tww = Nothing

End Sub

何方か、回答をお願いします。
(A.xlsのAAAシート)(B.xlsのBBBシート)この2つ間のセル値をコピーしたい
のですが(共にブック名シート名に一貫性は無しで、既に開いています。)
マクロ付.xlsに下記のマクロを書いてA.xlsのAAAシートがアクティブの時にマクロを
実行してtwwにAAAシートをセット出来たのですが、Bk1にB.xlsのBBBシートをセット出来ません。
Application.Waitで止めている間にアクティブシートを変えようとしましたが駄目
Application.Dialogs(xlDialogWorkbookUnhide).Showでも駄目でし...続きを読む

Aベストアンサー

マクロ付.xlsの標準モジュールではなく、
ThisWorkbookのモジュールに
'=============================================================
Option Explicit
Private sht1 As Worksheet
Private WithEvents app As Application
Sub main()
  If ActiveSheet.Type = xlWorksheet Then
   Set app = Application
   Set sht1 = Application.ActiveSheet
   Application.StatusBar = "データをやり取りするシートをアクティブにしてください"
   End If
End Sub
'============================================================
Private Sub app_WorkbookActivate(ByVal Wb As Workbook)
  If Wb.Sheets(1).Type = xlWorksheet Then
   sht1.Cells(1, 1).Value = 1
   Wb.Sheets(1).Cells(2, 1).Value = sht1.Cells(1, 1).Value
   Application.StatusBar = False
   End If
  Set app = Nothing
End Sub

として、データ交換する最初のシートをアクティブにしてThisworkbook.mainを実行してください。

次に適当なブックをアクティブにしてください。
最初にアクティブになっていたシートのA1に1が設定され、
選択したブックの最左端シートのセルA2に
最初にアクティブになっていたシートのA1の値がコピーされます。

一例です。参考にしてください。

マクロ付.xlsの標準モジュールではなく、
ThisWorkbookのモジュールに
'=============================================================
Option Explicit
Private sht1 As Worksheet
Private WithEvents app As Application
Sub main()
  If ActiveSheet.Type = xlWorksheet Then
   Set app = Application
   Set sht1 = Application.ActiveSheet
   Application.StatusBar = "データをやり取りするシートをアクティブにしてください"
   End If
End Sub
'=========================...続きを読む

QACCESSで主キーのNO設定

ACCESSの主キーとなるNO設定で01,02,03のように入力したいのですけれど、1,2,3のように自動変換されてしまいます。
デザインビューにおいて何か設定が必要というのは分かるのですけれど、どこでどのような設定をしたらいいのかわかりません。
どなたかご存知の方ご教示をよろしくお願いいたします。

Aベストアンサー

テーブルのデザインビューで
データ型 数値型

フィールドサイズ 長整数型
書式       0000
とすれば
1 と入力すると 0001 となります。
必要な桁数を書式のところの 0の桁数で調整して下さい
二桁01、02 なら 00

QAccessで、yes/no型

 業者抽出クエリの中に、得意分野をチェックボックスで6個、営業地域をチェックボックスで10個作っています。
 それに対応する業者抽出フォームのフォームヘッダーに、得意分野をチェックボックスで6個、営業地域をチェックボックスで10個、抽出用コマンドボタン1個を配置しています。
 得意分野を1個&営業地域を1個選択して、そのふたつの条件を満たす抽出用コマンドボタンのSQL文はどのように書けばよいのでしょうか?

Aベストアンサー

チェックボックス名が ck分野1 ~ 6、ck地域1 ~ 10 とすると。

Private Sub コマンド0_Click()
 Dim flt As String
 flt = ""
 If Nz(Me.ck分野1, False) Then
  If flt <> "" Then flt = flt & " and "
  flt = flt & "[分野1] = True"
 End If
 If Nz(Me.ck分野2, False) Then
  If flt <> "" Then flt = flt & " and "
  flt = flt & "[分野2] = True"
 End If
'同様に分野6まで

 If Nz(Me.ck地域1, False) Then
  If flt <> "" Then flt = flt & " and "
  flt = flt & "[地域1] = True"
 End If
 If Nz(Me.ck地域2, False) Then
  If flt <> "" Then flt = flt & " and "
  flt = flt & "[地域2] = True"
 End If
'同様に地域10まで

 If flt <> "" Then
  Me.Filter = flt
  Me.FilterOn = True
  'SQL = SQL & "WHERE " & flt
 Else
  Me.FilterOn = False
 End If
 
End Sub

ベタに書くならこうなると思います。

form のfilter を使って選択しています。
SQL文にしたいのなら、
SQL = SQL & "WHERE " & flt
こんな感じで、SQL文にWHERE句を追加してください。

得意分野&営業地域を2個以上選択してもOKです。

チェックボックス名が ck分野1 ~ 6、ck地域1 ~ 10 とすると。

Private Sub コマンド0_Click()
 Dim flt As String
 flt = ""
 If Nz(Me.ck分野1, False) Then
  If flt <> "" Then flt = flt & " and "
  flt = flt & "[分野1] = True"
 End If
 If Nz(Me.ck分野2, False) Then
  If flt <> "" Then flt = flt & " and "
  flt = flt & "[分野2] = True"
 End If
'同様に分野6まで

 If Nz(Me.ck地域1, False) Then
  If flt <> "" Then flt = flt & " and "
  flt = flt ...続きを読む


このカテゴリの人気Q&Aランキング

おすすめ情報