締切済み

エストレア

2004/08/05 18:09

エストレアカスタムにのっています。RSと違いセパレートシートなので一体にしたいのですが、どの車両のシートが合うでしょうか（バイク屋に聞いたら他車のをつけられるみたいです）

fyulaba
お礼率0% (0/1)

バイク・原付自転車
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

みんなの回答

vvw
ベストアンサー率12% (4/31)

2004/08/12 23:47 回答No.1

誰にとっても難しいそうです。＞どの車両のシートが合うでしょうか（バイク屋に聞いたら他車のをつけられるみたいです）このバイク屋さんから購入して取り付けてもらうのが一番と思います。後は、シート加工専門店でオーダーが間違いないところです・

関連するQ&A

エストレアRSかGB250クラブマンの購入

お世話になります。初バイク購入希望のものです。エストレアRSかGB250クラブマンにするか悩んでいます。どちらも中古です。用途は街乗りたまにツーリングする所です。どちらも同タイプのようですが、スペック的にはわかるのですが、２つのバイクの違いがよくわかりません。どんな事でもよいので教えてください。
ジムのプールでトライアスロンウェアはOK？

怪我の関係でロードバイクには当面乗れないので、通っているジムのプールで泳ごうと思っています。そこでタイトルの質問ですが、一般的にトライアスロンウェアを着用して問題はないでしょうか。頭もそうですが（頭はキャップで隠れますが）、体にも大きな傷痕が残り、少々恥ずかしいというか気になるのです。一体型も上下セパレート型も持っていますので、ダメならあきらめてセパレート型のパンツだけで泳ごうと思います。
エストレヤのローダウンに関して

エストレヤのローダウンに関して経験者の方にお聞きします。私の連れが現在エストレヤ(初期型緑のセパレートシートタイプ)に乗っています。連れは身長が低く、乗りやすくと思い、とりあえずは、リアサスをバネレート調整で一番やわらかく、フロントは５mmほど突き出ししました。その結果、連れがようやく両足バレリーナ状態で維持することができ片足だったら何とかべったりつくといった感じですが、なんとなく不安定に見えてしまいます。一応本人にもこだわりがあるらしく、(1)エストレヤであること、(2)セパレートシートであること(確かダブルシートだったらポジションの関係で簡単に乗れるはずなんですが。)、(3)出来るだけノーマルの外見を壊さないことが大事だそうです。そこで、フロントの突き出しはもうちょっと可能だと思うのですが、リアサスはノーマルではこれ以上どうにもならないので、他車の流用を考えています。もちろん社外の、という選択肢もありますが、有名どころのヘイゴンやコニのサスは高いし、選択肢も少ないので、出来れば安く手に入る他車のノーマルサスで考えています。個人的には、ノーマルサイドスタンドでもある程度の傾きが維持できる後ちょびっとのローダウンぐらいで大丈夫と思うのですが、ノーマルエストレヤサスよりちょっとだけ短いサスを流用したというかた、おられましたら是非ご教授ください。ちなみに、当方調べたところでは、ノーマルサスのカラー間の長さは約330mmぐらいで、希望としてはフロント突き出し10mm、リアサスは280～300mm位のものを探しています。
一体型パソコン

パソコンを買おうと思って電気屋さんに行ったら予算にあった物が２つありました。どちらもPriusでセパレートモデルと一体型です。どちらがいいのか迷ってます。金額も仕様もほとんど変わりません。ただ一体型はマウスもキーボードもワイヤレスです。電気屋さんが言うには「長時間使うのであればセパレートの方が熱がこもらないからいいですよ。」ということでした。長時間使う事はないけど、一体型ってどうなのかなって不安です。どうかアドバイスをお願いします。
イートハーブで二人乗りがしたいのですが、、、

近所のバイク屋さんでイートハーブが売りにでてるのですが、イートハーブの二人乗りのシートはあるのでしょうか？または他のバイクや凡用のタンデムシートは取り付ける事は可能なんでしょうか？二人乗りが前提のバイク選びなのでどうしたものかと思い質問しました。どなたかよろしくお願いします。あと、売りにでてるのが格安車両で雑誌にも出してるらしいので早く商談しないと売れちゃいそうで焦ってます。よろしくお願いします。
レカロSPG用のシートレールから異音

こんばんわ。早速ですが質問させていただきます。私の車はNCP13後期RSなのですが、運転席をフルバケにしました。シート、シートレールともに新品ですがシートレールん中から異音がするのです。原因はシートレールの中のベアリングが発進時とブレーキング時に前後に動いていて、カチャン、カチャンと音がなってしまっている状態です。原因がわかっているのに対処の方法がわからないのでかなりストレスになっています。シートレールの締め付け方などを変えたりしても音は一向になくなりません、ちなみになっているのは座って右の後ろから聞こえます。あと、シートレールはセパレート式です。やはり一体型に買い換えないとだめなのでしょうか？；ｘ；対処法が」わかる方がいらっしゃいましたらご回答よろしくお願いします。
自動車保険に詳しい方お願いします

子供（２０歳）が友人の車を運転すると言うので、加入済み（全年齢担保、対人対物無制限、車両保険エコノミー￥２５万まで）のＴ海上の約款を調べましたが漠然としか記入されていないため、直接Ｔ海上に聞くと私の場合、他車事故時に私の保険は可能（対人対物無制限）車両は、￥２５万までと思いましたが、他車の場合は対物保険で補うため無制限に補償だそうです。これは保険会社で対応は異なるのでしょうか。追伸：ここで調べましたが、他車の場合、車両保険は不可とか￥２５万までとか多くの意見がありました（ホームページまで記載さている方もいます）。なぜこの様な違いがあるのでしょうか。
Leaderbike 727TRシートクランプ破損

Leader bike 727TRに乗っているのですが、シートクランプのボルトを回しすぎて『バキッ』となった後に締めることができなくなってしまいました。フレームと一体化しているのでどのように対処すればよいのか教えていただけますか。
他車運転特約

こんばんは。今度友達のバイク(250cc)を借りる事になったのですが、任意保険は自分のバイク(ZZ-R1100)に掛けている保険に他車運転特約を付けてまかなおうと思っています。しかし2～3日では無く冬の間という比較的長い期間借りるのですが、それでも大丈夫なのでしょうか？また、他車運転特約を付ける事によって幾ら位高くなるものなのでしょうか？宜しくお願いします。
代車にキズ。　車両保険の補償内容について教えてください。

自家用車が不調の為ディーラーに見てもらっているあいだ、代車を借りていました。5日間ほどでしたがマンションの車庫から出すときにガリっとキズを入れてしまい、ディーラーに返却しに行ったところ、修理代は負担してもらいます、といわれました。大体どのくらいか見積もりをしてもらったところ、9万円と言われ、とてもじゃないけど払えない、というと、お車の車両保険の他車運転特約とやらで直されてはどうですか、との回答でした。自分の入っている車両保険は車対車ワイドという車両保険で、自損事故は保険の適用外になっています。この場合でも一応車両保険とうことで、他車運転特約の適応はされるのでしょうか？教えてください。
バイクのシートの簡単な修理方法は？

宜しくお願い致します。ＨＯＮＤＡ　Ｘ４という大型バイクに乗っています。このバイクのシートはドライバーズシートとダンディムシートが一体型なのですがドライーバーズシートにディンプル加工してある部分（繋ぎ目）が少し裂けて来ています（1～2mm程度の幅で5cm位の長さ）。簡単に補修することが出来るでしょうか？もしあれば教えて頂きたい（必要部品等も含めて）と思います。どうかお知恵をお貸し下さい。
エストレアにて

はじめまして。エストレア（１年間放置）を友人から購入しまして、社外品に変えてあったマフラーとエアクリーナーノーマルに戻し、キャブをＯＨしてセッティング等をノーマルの状態にしました。ですが、冷間時のエンジンの始動が困難です。チョークを引いても掛かる気配がありません。しかし、エンジンが暖まっている時や冷間時でも１回でもエンジンが掛かった後と、押し掛けだと通常にエンジンが掛かります。どのような所にエンジン始動が困難な原因があるのでしょうか？よろしくお願いいたします。
エストレヤのシートが外せない…

エストレヤ初期型のセパレートシートなのですが、後部シートは簡単に外せるのですが、前部のシートがうまく外れません。外し方を説明したサイト等ありませんでしょうか？
Access2000のVBAコードの最適化

お世話になります。 Access2000のVBAでコードを作成したのですが、処理をもっと早く出来る方法ありましたら教えて頂ければと思います。処理している内容としては、 (1)データ元のエクセルファイルを開く (2)エクセルファイルに記載されているセルの内容をAccessに挿入 ※取り込み開始・終了が200回程繰り返す ※While (oApp.Sheets(sheet).cells(iRow, 1) <> "")のループは500回程繰り返す少しでも処理を速くする方法があれば教えて頂きたいので宜しくお願い致します。 ------------ソース---------------- Set oApp = CreateObject("Excel.Application") oApp.Workbooks.Open FileName:=CurrentProject.Path & "\メイン.xlsm" ---------------取り込み開始------------- rs2.Open "選手", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 sheet = "program" rs.Open "選手情報_選手ID", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了------------- ---------------取り込み開始------------- rs.Open "選手情報_選手名", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 1 + 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了-------------
Access2000にエクセルデータを取り込み

お世話になります。 Access2000のVBAを使用してエクセルにデータを取り込みたいと思っています。現在は、下記の(1)のソースで、エクセルのデータを Access2000に取り込んでいます。しかしながら、「取り込み開始」の箇所を >あと、アクセスのインサートはＳＱＬ一発のほうが早いと思う。 >http://www.1keydata.com/jp/sql/sql-insert-into.php というアドバイスを頂きました。しかしながら、私の知識がまったくなく、どのようにコーディングしていいのかわからない状態です。そこで、お手数でもうしわけございませんが、下記の(1)のソースをSQLで使用した場合のコードを教えて頂けないでしょうか？私が馬鹿のため、ソースコードで頂きたいので、ソースコードがわからないかたは、回答頂かなくて結構ですのでよろしくおねがいいたします。 ------------ソース(1)---------------- Set oApp = CreateObject("Excel.Application") oApp.Workbooks.Open FileName:=CurrentProject.Path & "\メイン.xlsm" ---------------取り込み開始------------- rs2.Open "選手", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 sheet = "program" rs.Open "選手情報_選手ID", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了------------- ---------------取り込み開始------------- rs.Open "選手情報_選手名", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic iRow = 2 ' ★ sheet = "program" While (oApp.Sheets(sheet).cells(iRow, 1) <> "") rs.Filter = "日=" & oApp.Sheets(sheet).cells(iRow, 2) rs.Filter = rs.Filter & " and 場=" & oApp.Sheets(sheet).cells(iRow, 1) rs.Filter = rs.Filter & " and 番号=" & oApp.Sheets(sheet).cells(iRow, 3) If (rs.EOF) Then rs.AddNew rs("日") = oApp.Sheets(sheet).cells(iRow, 2) rs("場") = oApp.Sheets(sheet).cells(iRow, 1) rs("番号") = oApp.Sheets(sheet).cells(iRow, 3) End If rs("1番") = oApp.Sheets(sheet).cells(iRow, 1 + 5) rs("2番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26) rs("3番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26) rs("4番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26) rs("5番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26) rs("6番") = oApp.Sheets(sheet).cells(iRow, 1 + 5 + 26 + 26 + 26 + 26 + 26) rs.Update iRow = iRow + 1 Wend rs.Close ---------------取り込み終了-------------
分解に詳しい人いませんか？？

前の「２ストの走り方」ではお世話になりました！！ＲＳ250乗りです！！おかげで少しは順調です…、マメにプラグの清掃をしようと思いバイクを解体しようと思ったのですが、あけ方がいまいちわかりません… 調べたところによるとシートをはずしてタンクをはずすみたいなんですが、シートの下にあるボルトがなぜか外れません…六角レンチで空けようとするとなんていうかボルトとネジの部分が一緒に回ってしまっている感じです… 30分くらいねじと格闘したんですけどまったくうまくいきません… エンジンはかからないはネジは外れないわ…、むかついて思い切りキックスタートしてやろうと思ったらしくじって思いっきりスネを打ってさらにむかついてしまいました。バイクの解体に詳しい人いましたら教えてください！！
バイク尾灯の追加について

初めまして。原付二種に乗っているのですが、夜間の視認性向上の為に自転車用などに使われているLEDで点滅する尾灯用の赤いライト（１００円ショップなどでも売られている物）をバイク後部に夜間のマーカーとして追加する形で車両に取り付けたいと考えてます。そこで質問なのですが、これら自転車用の物を使用しても法律上問題ないものなのでしょうか？自転車もバイクも道交法上は「軽車両」や「二輪自動車」として扱われているので自転車で使われている尾灯が違法とは考えられないので、これらLEDマーカーや反射板など二輪に追加する形で使用しても問題は無いのでしょうか？ LEDの光は指向性が高いので後続他車の車両への注意喚起と夜間自車の存在をアピールしたい目的で取り付けを検討していますがお詳しい方がおられましたら何とぞお教え願います。
１つのフォームから複数のテーブルにレコード追加をやってみました。

１つのフォームから複数のテーブルにレコード追加をやってみました。そこで疑問があるのですが、Connectionは１つでRecordsetは追加するテーブルの数だけOpenが必要なのですか？一応下記のコードで2つのテーブルにレコードを追加出来たのですが、素人の推測でやってみたので間違っている所がないか見て頂きたいです。返答よろしくお願いします。 Dim cn As ADODB.Connection Dim rs1 As New ADODB.Recordset Dim rs2 As New ADODB.Recordset Set cn = CurrentProject.Connection Set rs1 = New ADODB.Recordset Set rs2 = New ADODB.Recordset Beep If MsgBox(Format(txt車両コード, "000000") & "　" & txt登録番号 & Chr(13) & "を登録しますか？", 33, "確認！登録") = vbOK Then rs1.Open "T車検証", cn, adOpenKeyset, adLockPessimistic rs2.Open "T所有者", cn, adOpenKeyset, adLockPessimistic rs1.AddNew rs1!車両コード = Me.txt車両コード rs1!登録番号 = Me.txt登録番号 rs1!交付年月日 = Me.txt交付年月日 rs1!初度年月 = Me.txt初度年月 rs1.Update rs2.AddNew rs2!車両コード = Me.txt車両コード rs2!所有者 = Me.txt所有者 rs2.Update rs1.Close: Set rs1 = Nothing rs2.Close: Set rs2 = Nothing cn.Close: Set cn = Nothing MsgBox Format(txt車両コード, "000000") & " " & txt登録番号 & Chr(13) & "を登録しました。", 64, "確認！登録" End If End Sub
19型で一体型

　こんにちは。　19型の液晶画面で一体型のデスクトップパソコンが欲しいのですが、どこのメーカーからどんなものが出ているのか、簡単に教えていただけないでしょうか。　ネットやお店で探しても、19型の場合はセパレートのものしか見つからなくて困っています。どうかお助けください。
自動車のシート形状と腰の負担

ベンチシートとセパレート（バケット）シートを比較すると、運転中の腰への負担は一般的にどちらが軽いのでしょうか。よろしく、お願いします。

エストレア

みんなの回答

関連するQ&A

エストレアRSかGB250クラブマンの購入

ジムのプールでトライアスロンウェアはOK？

エストレヤのローダウンに関して

一体型パソコン

イートハーブで二人乗りがしたいのですが、、、

レカロSPG用のシートレールから異音

自動車保険に詳しい方お願いします

Leaderbike 727TRシートクランプ破損

他車運転特約

代車にキズ。　車両保険の補償内容について教えてください。

バイクのシートの簡単な修理方法は？

エストレアにて

エストレヤのシートが外せない…

Access2000のVBAコードの最適化

Access2000にエクセルデータを取り込み

分解に詳しい人いませんか？？

バイク尾灯の追加について

１つのフォームから複数のテーブルにレコード追加をやってみました。

19型で一体型

自動車のシート形状と腰の負担

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エストレア

みんなの回答

関連するQ&A

エストレアRSかGB250クラブマンの購入

ジムのプールでトライアスロンウェアはOK？

エストレヤのローダウンに関して

一体型パソコン

イートハーブで二人乗りがしたいのですが、、、

レカロSPG用のシートレールから異音

自動車保険に詳しい方お願いします

Leaderbike 727TRシートクランプ破損

他車運転特約

代車にキズ。 車両保険の補償内容について教えてください。

バイクのシートの簡単な修理方法は？

エストレアにて

エストレヤのシートが外せない…

Access2000のVBAコードの最適化

Access2000にエクセルデータを取り込み

分解に詳しい人いませんか？？

バイク尾灯の追加について

１つのフォームから複数のテーブルにレコード追加をやってみました。

19型で一体型

自動車のシート形状と腰の負担

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

代車にキズ。　車両保険の補償内容について教えてください。

カテゴリ
一覧

専門家に質問してみよう
専門家登録