Попробуй так.

dim asd as string
dim fileName as string 'Имя файла
asd=Replace(replace(replace(fileName,"№","");"Заявка";"")," ","")
Select case left(asd,1)
case "к": ' делаем движение раз
case "р": ' делаем движение два
case "с": ' делаем движение три
case else msgbox "Хто вбил не правильное имя файла?"
end select

Замените все точки с запятой на запятую.

В данном варианте после else надо поставить двоеточие, как разделитель действий.
При стандартном синтаксисе Select case оно не ставится. Т.е.:
Select Case left(asd,1)
case "к"
' делаем движение раз
case "р"
' делаем движение два
case "с"
' делаем движение три
case else
msgbox "Хто вбил не правильное имя файла?"
End Select

ЗЫ. Вы справку принципиально не читаете?

ругается на case else msgbox "Хто вбил не правильное имя файла?"

а так

case else
msgbox "Хто вбил не правильное имя файла?"


вместо "делаем движение ......." ставим свой набор операторов
которые будут выполняться в зависимости от Значения в Select Case

обращаю ваше внимание на оператор комментария
можно написать Rem а можно ' (аппостроф)
все что написано после в строке программой игнорируется (пропускается)

Еще вопрос по case
подскажите как можно сделать так
Select case left(asd,1)
case "к": a=10 and b=5
case "р": a=10 and b=7
case "с": a=12 and b=12
case else
msgbox "Хто вбил не правильное имя файла?"
end select

Если это присваивание:
Select case left(asd,1)
case "к": a=10: b=5
case "р": a=10: b=7
case "с": a=12: b=12
case else

Ошибок 2
вот ваш текст

strSQL = "SELECT *" & _
"FROM TM" & _
"WHERE (((TM.S7)="HYUN"))" & _
"ORDER BY TM.ID, TM.M10;"

ошибка первая
"WHERE
"ORDER BY
между предыдущим словом и следующим должен пробел
т.е. у вас получается FROM TMWHERE
"HYUN"))"ORDER BY
а должно быть так FROM TM WHERE "HYUN"))" ORDER BY
правильный синтаксис в этом месте
" WHERE
" ORDER BY

ошибка вторая
"HYUN"
в данном случае кавычки играют плохую роль
VBA воспринимает HYUN не как текст а что-то находящееся за текстом
правильно будет так
'HYUN'
ну и весь фрагмент написанный правильно
strSQL = "SELECT * " & _
"FROM TM" & _
" WHERE (((TM.S7)='HYUN'))" & _
" ORDER BY TM.ID, TM.M10;"

У кнопки или переключателя нет свойства цвет кнопки - соответственно изменить его нельзя
варианты выхода из ситуации
1. Использовать ActiveX (мне не попадались)
2. Использовать не кнопку а надпись или простое поле и написать несколько кусков кода
3. Использовать TreeView

Кстати, по собственным наблюдениям, красивая яркая форма изобилующая кучей цветов - красива в первый час работы во все последующие раздражает и утомляет зрение

1. Вместо цвета кнопки можно использовать цвет текста на кнопке.
2. По "при нажатии Form1.кнопки1 - Form2.поле1, Form2.кнопка1, а при Form1.кнопка2 - Form2.поле2, Form1.кнопка2 ":
Передавайте номер кнопки или признак через openargument.

Dim argum@
'Если Кнопка1
argum = 1
'Если Кнопка2
argum = 2
DoCmd.OpenForm "Form2", , , , , , argum

В форму Form2 на событие открытие:
Select case me.OpenArgs
Case 1:
поле1.visible=true
поле2.visible=false
Case 2:
поле2.visible=true
поле1.visible=false
end select

Dim argum@ - в начало модуля формы

Форма 2, как я понимаю, открывается по обеим кнопам, тогда:

- на событие нажатие Кнопка1
argum=1
DoCmd.OpenForm "Form2", , , , , , argum

- на событие нажатие Кнопка2
argum=2
DoCmd.OpenForm "Form2", , , , , , argum

Или, более правильно:
Создать процедуру в модуле

Private Sub OpenForm2
DoCmd.OpenForm "Form2", , , , , , argum
Exit Sub


и
- на событие нажатие Кнопка1
argum=1
OpenForm2

- на событие нажатие Кнопка2
argum=2
OpenForm2

Как-то так.

Не все так страшно

количество элементов на форме ограничено (вроде как 999)

Да кнопок от силы всего около 11штук

На Click кнопки1:
DoCmd.OpenForm "Form2"
With Forms("Form2")
.поле1.Visible = True
.кнопка1.Visible = True
End With

На Click кнопки2:
DoCmd.OpenForm "Form2"
With Forms("Form2")
.поле2.Visible = True
End With

Это если Form2 открывается не в режиме диалога.

Опять без Вас не обойтись.

Вроде все замечательно пошло, но наткнулся на следующий подводный камень.
Не может открыть файл grid...xls
Пишет: таблица не имеет предполагаемый формат

Посмотрел через TotalCommander через Lister оказались XML документами, хотя в Excel нормально открывается, что с ним делать?

А программно с помощью VBA возможно открыть и сохранить без участия пользователя?
Т.е. пользователь нажал Кнопочку добавить, а там уж он открывается и сохраняется и добавляется.

там надо сообщения отключить (забыл как - дожились)
иначе ексель ругнется и все остановится
какой-то чудак в xml файле подменил расширение на xls

Почему-то ругается на

Set WrkBk =  ExlApp.WorkBooks.Open "Путь"

Выделяет красным и усё

Описания добавить может?*

Dim ExlApp As Object
Dim WrkBk As Object
Set ExlApp = CreateObject("Excel.Application")
Set WrkBk = ExlApp.WorkBooks
WrkBk.Open "c:\folder\n.xml"
WrkBk.SaveAs "c:\folder\n.xls", -4143 'xlWorkbookNormal
WrkBk.Close
ExlApp.Quit

то что сделали - молодец
а вот как сделали - .........


все вам говорят

Set WrkBk =  ExlApp.WorkBooks.Open "Путь"

а вы

Set oWbk = oExcel.Workbooks.OpenXML("c:\grid 2.xls")

говорят

WrkBk.SaveAs "c:\folder\n.xls", -4143

а вы игнорируете установочный параметр

не хорошо

тут вся хитрость в том что бы ексель сам преобразовал формат в удобоваримый ему вид, а вы сразу не даете ему это сделать

Попробовал

Dim ExlApp As Object Dim WrkBk As Object Set ExlApp = CreateObject("Excel.Application") Set WrkBk = ExlApp.Workbooks WrkBk.Open "c:\grid.xls" WrkBk.SaveAs "c:\grid555.xls", -4143 WrkBk.Close ExlApp.Quit

Теперь при запуске и нажатии на кнопку выдает ошибку: Run-time error '438': Object doesn't support this property or metod
И предлагает отладку - выделяет строку WrkBk.SaveAs "c:\grid555.xls", -4143