scritto da Tonari il sabato, 10 maggio 2008 ,10:46
LA GIORNATA DI OGGI:
Sub Disposal_ENTER()
'===================
' Enter処理
'===================
'On Error GoTo ErrHunter
Dim ret As Integer
Dim lstrSQL As String
Dim lrstCnt As New ADODB.Recordset
Select Case gstrGFControl
Case "itmCode"
'===================================================
''''"0"対策
If frmHASMFamily.itmCode.Text = "" Then
Disposal_F9
Exit Sub
End If
MemCode = frmHASMFamily.itmCode.Text
If grs_CUSTOM.RecordCount > 0 Then grs_CUSTOM.MoveFirst
grs_CUSTOM.Find "得意先No = '" & MemCode & "' "
' grs_CUSTOM.FindFirst "得意先No = '" & MemCode & "' "
If grs_CUSTOM.EOF Then
'ﾃﾞｰﾀが存在しなかった
MemCode = ""
ret = MsgBox("その得意先は存在しません！", 16, "得意先ﾏｽﾀｰ") '検索-得意先ｺｰﾄﾞ
frmHASMFamily.itmCode.Text = ""
frmHASMFamily.lblName.Caption = ""
Exit Sub
Else
'ﾃﾞｰﾀが存在した
'---ﾚｺｰﾄﾞの抽出（得意先ｺｰﾄﾞ）
FamilySQL = "SELECT * FROM M得意先家族 " _
& "WHERE 得意先No = '" & MemCode & "' " _
& "ORDER BY 家族No ASC "
frmHASMFamily.Adodc1.RecordSource = FamilySQL
frmHASMFamily.Adodc1.Refresh
Current_UnIndication
frmHASMFamily.lblName.Caption = grs_CUSTOM("得意先名")
Locked_False
frmHASMFamily.itmFNo.SetFocus
End If
TableIndexFlag = 0
KeepStyle_TDBGrid
Exit Sub
Case "itmFNo"
'===================================================
'---ﾚｺｰﾄﾞの検索（補綴物ﾏｽﾀｰ）
MemFNo = frmHASMFamily.itmFNo.Value
'rs_FAMILY.Close
frmHASMFamily.Adodc1.ConnectionString = gstrCnnString
lstrSQL = "SELECT * FROM M得意先家族 WHERE 得意先No= '" & MemCode & "' AND 家族No=" & MemFNo & "ORDER BY 得意先No, 家族No"
frmHASMFamily.Adodc1.RecordSource = lstrSQL
frmHASMFamily.Adodc1.Refresh
' lstrsql = "SELECT * FROM M得意先家族 WHERE 得意先No= '" & MemCode & "' AND 家族No=" & MemFNo & _
' "ORDER BY 得意先No, 家族No"
' grs_DisposalEnter.Open lstrsql, gcnnhanbai, adOpenKeyset, adLockOptimistic
' If lrstCnt.RecordCount > 0 Then frmHASMFamily.Adodc1.Recordset.MoveFirst '???
' rs_FAMILY.Find "得意先No= '" & MemCode & "' AND 家族No=" & MemFNo
' rs_FAMILY.FindFirst "得意先ｺｰﾄﾞ='" & MemCode & "' AND 家族No=" & MemFNo
If frmHASMFamily.Adodc1.Recordset.EOF Then
'ﾃﾞｰﾀが存在しなかった >>新規
frmHASMFamily.txtName.Text = ""
frmHASMFamily.txtYomigana.Text = ""
frmHASMFamily.txtBikou.Text = ""
Else
'ﾃﾞｰﾀが存在した >>編集
Current_Memorize
Current_Indication
End If
frmHASMFamily.txtName.SetFocus
' grs_DisposalEnter.Close
Exit Sub
Case "txtName"
'===================================================
frmHASMFamily.txtYomigana.SetFocus
Exit Sub
Case "txtYomigana"
'===================================================
frmHASMFamily.txtBikou.SetFocus
Exit Sub
Case "txtBikou"
'===================================================
frmHASMFamily.cmdHozon.SetFocus
Exit Sub
Case "TDBGrid1"
frmHASMFamily.itmCode.SetFocus
Exit Sub
End Select
frmHASMFamily.Adodc1.Recordset.Close
Exit Sub
'----------------------------------------------------------------------------
ErrHunter:
Select Case Err
Case Else '他のエラーが生じた時
MsgBox Err.Description
End Select
End Sub
Visual Basic, un giorno ti pentirai di tutto ciò.
Sub Disposal_ENTER()
'===================
' Enter処理
'===================
'On Error GoTo ErrHunter
Dim ret As Integer
Dim lstrSQL As String
Dim lrstCnt As New ADODB.Recordset
Select Case gstrGFControl
Case "itmCode"
'===================================================
''''"0"対策
If frmHASMFamily.itmCode.Text = "" Then
Disposal_F9
Exit Sub
End If
MemCode = frmHASMFamily.itmCode.Text
If grs_CUSTOM.RecordCount > 0 Then grs_CUSTOM.MoveFirst
grs_CUSTOM.Find "得意先No = '" & MemCode & "' "
' grs_CUSTOM.FindFirst "得意先No = '" & MemCode & "' "
If grs_CUSTOM.EOF Then
'ﾃﾞｰﾀが存在しなかった
MemCode = ""
ret = MsgBox("その得意先は存在しません！", 16, "得意先ﾏｽﾀｰ") '検索-得意先ｺｰﾄﾞ
frmHASMFamily.itmCode.Text = ""
frmHASMFamily.lblName.Caption = ""
Exit Sub
Else
'ﾃﾞｰﾀが存在した
'---ﾚｺｰﾄﾞの抽出（得意先ｺｰﾄﾞ）
FamilySQL = "SELECT * FROM M得意先家族 " _
& "WHERE 得意先No = '" & MemCode & "' " _
& "ORDER BY 家族No ASC "
frmHASMFamily.Adodc1.RecordSource = FamilySQL
frmHASMFamily.Adodc1.Refresh
Current_UnIndication
frmHASMFamily.lblName.Caption = grs_CUSTOM("得意先名")
Locked_False
frmHASMFamily.itmFNo.SetFocus
End If
TableIndexFlag = 0
KeepStyle_TDBGrid
Exit Sub
Case "itmFNo"
'===================================================
'---ﾚｺｰﾄﾞの検索（補綴物ﾏｽﾀｰ）
MemFNo = frmHASMFamily.itmFNo.Value
'rs_FAMILY.Close
frmHASMFamily.Adodc1.ConnectionString = gstrCnnString
lstrSQL = "SELECT * FROM M得意先家族 WHERE 得意先No= '" & MemCode & "' AND 家族No=" & MemFNo & "ORDER BY 得意先No, 家族No"
frmHASMFamily.Adodc1.RecordSource = lstrSQL
frmHASMFamily.Adodc1.Refresh
' lstrsql = "SELECT * FROM M得意先家族 WHERE 得意先No= '" & MemCode & "' AND 家族No=" & MemFNo & _
' "ORDER BY 得意先No, 家族No"
' grs_DisposalEnter.Open lstrsql, gcnnhanbai, adOpenKeyset, adLockOptimistic
' If lrstCnt.RecordCount > 0 Then frmHASMFamily.Adodc1.Recordset.MoveFirst '???
' rs_FAMILY.Find "得意先No= '" & MemCode & "' AND 家族No=" & MemFNo
' rs_FAMILY.FindFirst "得意先ｺｰﾄﾞ='" & MemCode & "' AND 家族No=" & MemFNo
If frmHASMFamily.Adodc1.Recordset.EOF Then
'ﾃﾞｰﾀが存在しなかった >>新規
frmHASMFamily.txtName.Text = ""
frmHASMFamily.txtYomigana.Text = ""
frmHASMFamily.txtBikou.Text = ""
Else
'ﾃﾞｰﾀが存在した >>編集
Current_Memorize
Current_Indication
End If
frmHASMFamily.txtName.SetFocus
' grs_DisposalEnter.Close
Exit Sub
Case "txtName"
'===================================================
frmHASMFamily.txtYomigana.SetFocus
Exit Sub
Case "txtYomigana"
'===================================================
frmHASMFamily.txtBikou.SetFocus
Exit Sub
Case "txtBikou"
'===================================================
frmHASMFamily.cmdHozon.SetFocus
Exit Sub
Case "TDBGrid1"
frmHASMFamily.itmCode.SetFocus
Exit Sub
End Select
frmHASMFamily.Adodc1.Recordset.Close
Exit Sub
'----------------------------------------------------------------------------
ErrHunter:
Select Case Err
Case Else '他のエラーが生じた時
MsgBox Err.Description
End Select
End Sub
Visual Basic, un giorno ti pentirai di tutto ciò.
