Ultimativer Spam-Thread !!

[KRIZ VAN DALE]

[Chris B.]

es funktioniert.

[Shibby]

Vorher stand da noch: Ich bin nicht schlecht gelaunt . . . zu langsam editiert


Edit: ich weiß, ich nerv schon wieder sry^^

[KRIZ VAN DALE]

Ja ich dachte mir ich spar mir jegliche Erklärungen wenns der Smylie doch viel besser trifft.

[Chris B.]

ach ich finde er unterstreichts richtig doll

[KRIZ VAN DALE]

ach ich finde er unterstreichts richtig doll

So wie eben schon erwähnt ja.

. . . . wenns der Smylie doch viel besser trifft.

[Chris B.]

Zitat von KRIZ VAN DALE

So wie eben schon erwähnt ja.

meinte damit aber, dass es meine vermutung unterstreicht... und nicht deine gewollte aussage

[KRIZ VAN DALE]

Laaaaaaaaangweilig . . . .

[Chris B.]

meine heutige arbeit :X


Private Sub tvwTreeview_Click()

Dim idtype As String
Dim strSQL As String
Dim Rs As DAO.Recordset
Dim IndexMax As Integer
Dim i As Integer
Dim got_selectiondata As Boolean


idtype = tvwTreeview.SelectedItem.Key
idtype = Left(idtype, Len(idtype) - 1)

searchid = tvwTreeview.SelectedItem.Key
searchid = Right(searchid, Len(searchid) - 1)

Select Case idtype

Case "f":

strSQL = "SELECT Las_Formations.formation_top, Las_Formations.formation_bottom, Las_Formations.formation_name, Las_Formations.formation_tvd_top, Las_Formations.formation_tvd_bottom " & _
"FROM Las_Formations " & _
"WHERE FormationID = " & searchid
Set Rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

Rs.MoveFirst
Do While Not Rs.EOF
With Forms!import_las
.top_txt.Value = Rs!formation_top
.name_txt.Value = Rs!formation_name
.bottom_txt.Value = Rs!formation_bottom
.tvd_top_txt.Value = Rs!formation_tvd_top
.tvd_bottom_txt.Value = Rs!formation_tvd_bottom
End With
Rs.MoveNext
Loop


Case "l":

strSQL = "SELECT Las_Layers.layer_top, Las_Layers.layer_bottom, Las_Layers.layer_name, Las_Layers.layer_tvd_top, Las_Layers.layer_tvd_bottom " & _
"FROM Las_Layers " & _
"WHERE LayerID = " & searchid
Set Rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

Rs.MoveFirst
Do While Not Rs.EOF
With Forms!import_las
.top_txt.Value = Rs!layer_top
.name_txt.Value = Rs!layer_name
.bottom_txt.Value = Rs!layer_bottom
.tvd_top_txt.Value = Rs!layer_tvd_top
.tvd_bottom_txt.Value = Rs!layer_tvd_bottom
End With
Rs.MoveNext
Loop



Case "g":

strSQL = "SELECT Las_Groups.group_top, Las_Groups.group_bottom, Las_Groups.group_name, Las_Groups.group_tvd_top, Las_Groups.group_tvd_bottom " & _
"FROM Las_Groups " & _
"WHERE GroupID = " & searchid
Set Rs = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

Rs.MoveFirst
Do While Not Rs.EOF
With Forms!import_las
.top_txt.Value = Rs!group_top
.name_txt.Value = Rs!group_name
.bottom_txt.Value = Rs!group_bottom
.tvd_top_txt.Value = Rs!group_tvd_top
.tvd_bottom_txt.Value = Rs!group_tvd_bottom
End With
Rs.MoveNext
Loop


IndexMax = las_list.ListCount
got_selectiondata = False

For i = 0 To IndexMax
If las_list.ItemData(i) >= Val(top_txt.Value) And las_list.ItemData(i) <= Val(bottom_txt.Value) Then
las_list.Selected(i) = True
got_selectiondata = True
Else
las_list.Selected(i) = False
If got_selectiondata = True Then
i = IndexMax
End If
End If

Next i



End Select

End Sub


\o/

so ich werd jetz mal nachhaus fahrn

[IAN NEVARRA]

Schaut ja voll nach VB aus... isses das?