Проблема с отображением текущей даты и времени при входе в пользовательскую форму при ее инициализации - PullRequest
Новая
       6

Проблема с отображением текущей даты и времени при входе в пользовательскую форму при ее инициализации

0 голосов
/ 14 марта 2020

У меня есть следующий код: 

  Set FindRow = Hoja6.Range("B:B").Find(What:=User, LookIn:=xlValues, LookAT:=xlPart)

  Me.UserLog.Text = "Best Guy."
  Me.RecentUserLog.Value = FindRow.Offset(0, 1).Value
  Me.LastUserLog.Value = FindRow.Offset(1, 1).Value
  End If

Если я скрываю две последние строки, все работает нормально. Но если я продолжу в том же духе, он говорит:

object variable or with object not set

Я попробовал Hoja6.Select (sheet6.Select), но все равно не работает. Цель состоит в том, чтобы показать текущую дату и время и последний журнал. Пользовательская переменная publi c, и она работает, когда я открываю пользовательскую форму, но теперь я немного изменил фильтры по пользователю, и у меня возникли проблемы с решением этой проблемы.

Ответы [ 2 ]

1 голос
/ 15 марта 2020 
    If User = "Guy" Then

        Me.UserLog.Text = "Guy."
        Set FindRow = Hoja6.Range("B:B").Find(What:="Big Guy", _
                            LookIn:=xlValues, LookAT:=xlPart)

        If FindRow Is Nothing Then
            Me.RecentUserLog.Value = ""
            Me.LastUserLog.Value = ""
        Else
            Me.RecentUserLog.Value = FindRow.Offset(1, 0)
            Me.LastUserLog.Value = FindRow.Offset(2, 0)
        End If

     End If
0 голосов
/ 14 марта 2020

Проблема была решена, когда я изменил таблицу, в которой хранятся значения, и забыл, что я изменил имя пользователя на их настоящее имя, поэтому FindRow никогда не находил это значение, и я был уверен, что оно было правильным, так что мой плохой , Тем не менее, я добавил код, указанный в комментариях, поэтому, если это произойдет снова, я сделаю резервную копию. 

 If User = "Guy" Then
 Set FindRow = Hoja6.Range("B:B").Find(What:="Big Guy", LookIn:=xlValues, LookAT:=xlPart)

 Me.UserLog.Text = "Guy."
 Me.RecentUserLog.Value = FindRow.Offset(1, 0)
 Me.LastUserLog.Value = FindRow.Offset(2, 0)

 ElseIf FindRow Is Nothing Then
 Me.UserLog.Text = "Guy."
 Me.RecentUserLog.Value = ""
 Me.LastUserLog.Value = ""
 End If
...