Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Перенос ДВ  [new]
v skopin
Member

Откуда: Germany
Сообщений: 890
Привет, всем!

Простите за тупой, и не свежий вопрос (поковырялся по вопросам не нашел).
Дано:
Access2003
XP ru Unicode – ru
DB формат 2000 , - все референсы отключены (нет даже китайского мудреца и активных иксов!) – только один модуль, в формах есть только Me…Valuе=…
Работает все отлично!
Не идет гад на
Access2000
ХР en Unicode en ( в базе нет русских слов! )
Пишет сволочь что-то не внятное про не тот модуль, про Хы …

Не поможете??

С уважением, В Скопин
30 мар 05, 07:17    [1425022]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
paparome
Member

Откуда: Москва
Сообщений: 4312
v skopin
Привет, всем!

Простите за тупой, и не свежий вопрос (поковырялся по вопросам не нашел).
Дано:
Access2003
XP ru Unicode – ru
DB формат 2000 , - все референсы отключены (нет даже китайского мудреца и активных иксов!) – только один модуль, в формах есть только Me…Valuе=…
Работает все отлично!
Не идет гад на
Access2000
ХР en Unicode en ( в базе нет русских слов! )
Пишет сволочь что-то не внятное про не тот модуль, про Хы …

Не поможете??

С уважением, В Скопин

А названия типа "Область данных", "Примечание отчета" - тоже на англицком?
30 мар 05, 08:56    [1425138]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
v skopin

Пишет сволочь что-то не внятное про не тот модуль, про Хы …

скрин-шот приложите сообщений об ошибках
30 мар 05, 09:34    [1425220]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
v skopin
Member

Откуда: Germany
Сообщений: 890
А дело ведь в модуле!
1. Пытался засунуть его в рабочую базу – всё то же!
2. «Показать справку», на взгляд звучит так: «у либо запор , либо понос»

В Visual Basic для приложений (VBA) возникла ошибка при попытке использовать свойство или метод. Возможны следующие причины этой ошибки.
• Отсутствует ссылка.
Сведения о восстановлении отсутствующих ссылок см. в статье базы знаний Майкрософт 283806.
• Выражение содержит ошибку.
Проверьте правильность всех выражений, используемых в свойствах событий.
• Функция, определенная пользователем, объявлена как процедура (sub) или закрытая (private) функция в модуле.
Функция, определенная пользователем, допускается в выражении, только если она объявлена как:
- открытая (public) функция в модуле;
- открытая (public) или закрытая (private) функция в модуле кода текущих формы или отчета.
• В Access выбран высокий или средний уровень безопасности, а пакет обновления SP8 для Microsoft Jet 4.0 не установлен.
Для правильной работы Access при высоком или среднем уровне безопасности необходимо установить последнюю версию Jet 4.0. Последнюю версию Microsoft Jet можно загрузить с веб-узла Windows Update. (PS у меня никакой!!!)

К сообщению приложен файл. Размер - 0Kb
30 мар 05, 15:02    [1426910]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
чуда не будет - укоротите Вашу базу до мин и на конфу
30 мар 05, 16:09    [1427370]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
v skopin
Member

Откуда: Germany
Сообщений: 890
ЭТО ЧТО-ТО ТИПА ВЭВ ЭДИТОРА !!!!!!!!!!!!

Option Compare Database
Public OpenID As Long

Public quTeg As Boolean

Public Const NewLineFull = VBA.Constants.vbCrLf
Public Const NewLineL = VBA.Constants.vbCr
Public Const NewLineR = VBA.Constants.vbLf

Public Const MsgTitle = "Editor's Message:"
Public Const FM = "...fALsE...MEsSegE..."
Public Const UpdateErr = "False update!!!" & NewLineFull & "All updates were be revoked!"

Public Enum EditorMetEnum
NoMet = 0
HtmlToText = 1
TextToHtml = 2
End Enum

Public EditMet As EditorMetEnum

Public Enum StChEnum
AllCh = 0
SimpleOne = 1
SimpleOneShort = 2
SimpleOneBr = 3
Only_U = 4
End Enum

Public StCh(100, 1) As String
Public CountStCh As Integer

Public Sub StChLoad(AmountPar As StChEnum)

If AmountPar = Only_U Then
StCh(0, 0) = "&"
StCh(0, 1) = "&"
StCh(1, 0) = " "
StCh(1, 1) = " "
CountStCh = 1
Exit Sub
End If
StCh(0, 0) = "<"
StCh(0, 1) = "<"
StCh(1, 0) = ">"
StCh(1, 1) = ">"
StCh(2, 0) = Chr(34)
StCh(2, 1) = """
CountStCh = 2
If AmountPar = SimpleOneShort Then Exit Sub
StCh(3, 0) = "&"
StCh(3, 1) = "&"
StCh(4, 0) = " "
StCh(4, 1) = " "
CountStCh = 4
If AmountPar = (AllCh Or SimpleOneBr) Then
StCh(4, 0) = NewLineFull
StCh(4, 1) = "<br>"
CountStCh = CountStCh + 1
End If
End Sub

Public Function BodyHtmlText(BodyHtml As String, _
Optional BodyTextTitle As String = "") As String

Dim a, b As String

BodyHtmlText = ChangeString(BodyHtml, NewLineFull)
BodyHtmlText = ChangeString(BodyHtmlText, "<body>")
BodyHtmlText = ChangeString(BodyHtmlText, "</body>")
'BodyHtmlText = ChangeString(BodyHtmlText, " ", " ")
BodyHtmlText = StChangeString(BodyHtmlText)
BodyHtmlText = ChangeString(BodyHtmlText, "<br>", NewLineFull)
a = NewLineFull & "</p><p>"
b = NewLineFull & NewLineFull
BodyHtmlText = ChangeString(BodyHtmlText, a, b)
BodyHtmlText = ChangeString(BodyHtmlText, "</p><p>", b)
BodyHtmlText = ChangeString(BodyHtmlText, "</p>")
a = "<p>" & NewLineFull
BodyHtmlText = ChangeString(BodyHtmlText, a, b)
BodyHtmlText = ChangeString(BodyHtmlText, "<p>")

End Function

Public Function ChangeString(StVar As String, OldVar, _
Optional NewVar As String = "") As String

Dim i, n As Long
Dim a, b, ind As String

OldVar = CStr(OldVar)
ind = Left(OldVar, 1)
n = Len(StVar)
For i = 1 To n
a = Right(Left(StVar, i), 1)
If a <> ind Then
ChangeString = ChangeString & a
Else
b = Right(Left(StVar, i + Len(OldVar) - 1), Len(OldVar))
If b = OldVar Then
ChangeString = ChangeString & NewVar
i = i + Len(OldVar) - 1
Else
ChangeString = ChangeString & a
End If
End If
Next

End Function

Public Function StChangeString(StVar As String, _
Optional Pol As Boolean = True) As String

Dim i, j, n As Long
Dim a, b, ind As String

StChangeString = ""
n = Len(StVar)
StChLoad SimpleOne
If Pol Then
ind = "&"
For i = 1 To n
a = Right(Left(StVar, i), 1)
If a <> ind Then
StChangeString = StChangeString & a
Else
For j = 0 To CountStCh
b = Right(Left(StVar, i + Len(StCh(j, 1)) - 1), Len(StCh(j, 1)))
If b = StCh(j, 1) Then
StChangeString = StChangeString & StCh(j, 0)
i = i + Len(StCh(j, 1)) - 1
GoTo StCSFor
End If
Next
StChangeString = StChangeString & a
GoTo StCSFor
End If
StCSFor:
Next
Else
For i = 1 To n
a = Right(Left(StVar, i), 1)
For j = 0 To CountStCh
If StCh(j, 0) = a Then
StChangeString = StChangeString & StCh(j, 1)
GoTo StCSFor2
End If
Next
StChangeString = StChangeString & a
StCSFor2:
Next
End If

End Function

Public Function BodyTextHtml(BodyText As String, _
Optional BodyTextTitle As String = "") As String

Dim i, j, n As Long
Dim a As String

n = Len(BodyText)
BodyTextHtml = "<body>" & NewLineFull
If BodyTextTitle <> "" Then
BodyTextHtml = BodyTextHtml & "<p>" & BodyTextTitle & "</p>" & NewLineFull
End If

j = 1
If Left(BodyText, 1) = NewLineL Or Left(BodyText, 1) = NewLineR Then
BodyTextHtml = BodyTextHtml & "<p>"
For j = 3 To n
If Right(Left(BodyText, j), 1) = NewLineL Or Right(Left(BodyText, j), 1) = NewLineR Then
j = j + 1
Else
If j = 3 Then BodyTextHtml = BodyTextHtml & "<br>"
BodyTextHtml = BodyTextHtml & "</p>" & NewLineFull
Exit For
End If
Next
End If

BodyTextHtml = BodyTextHtml & "<p>"
StChLoad SimpleOne
For i = j To n
a = Right(Left(BodyText, i), 1)

For j = 0 To CountStCh
If a = StCh(j, 0) Then
BodyTextHtml = BodyTextHtml & StCh(j, 1)
GoTo BthForNext
End If
Next

If a = NewLineL Or a = NewLineR Then
a = Right(Left(BodyText, i + 2), 1)
If Not (a = NewLineL Or a = NewLineR) Then
BodyTextHtml = BodyTextHtml & "<br>" & NewLineFull
i = i + 1
GoTo BthForNext
Else
i = i + 4
End If
a = Right(Left(BodyText, i), 1)
If a = NewLineL Or a = NewLineR Then BodyTextHtml = BodyTextHtml _
& "<br>" & NewLineFull
Do While a = NewLineL Or a = NewLineR
BodyTextHtml = BodyTextHtml & "<br>" & NewLineFull
i = i + 2
a = Right(Left(BodyText, i), 1)
Loop
BodyTextHtml = BodyTextHtml & "</p>" & NewLineFull & "<p>" & a
Else
BodyTextHtml = BodyTextHtml & a
End If
BthForNext:
Next
BodyTextHtml = BodyTextHtml & "</p>" & NewLineFull & "</body>"

End Function

Public Function TitleHtmlText(TitleHtml As String) As String

Dim TitleHtmlSp, TitleHtmlSp1 As Variant
Dim i, j As Integer
Dim a As String

On Error GoTo TitleHtmlTextErr

TitleHtmlSp = Split(TitleHtml, "<title>")
If UBound(TitleHtmlSp) = 0 Then
TitleHtmlSp1 = Split(TitleHtmlSp(0), "</title>")
Else
If UBound(TitleHtmlSp) = 1 Then
TitleHtmlSp1 = Split(TitleHtmlSp(1), "</title>")
Else
GoTo TitleHtmlTextErr:
End If
End If
TitleHtmlText = TitleHtmlSp1(0)
StChLoad SimpleOne
If TitleHtmlText <> StChangeString(TitleHtmlText) Then GoTo TitleHtmlTextErr
Exit Function

TitleHtmlTextErr:
MsgBox UpdateErr, , MsgTitle
TitleHtmlText = FM
End Function

Public Function TitleTextHtml(TitleText As String) As String

Dim DD, a As String
Dim i, j, n As Integer

DD = Chr(34)
n = Len(TitleText)
TitleTextHtml = ""

StChLoad SimpleOne
TitleTextHtml = ChangeString(TitleText, StCh(3, 0), StCh(3, 1))
If TitleTextHtml <> StChangeString(TitleTextHtml, False) Then GoTo TitleTextHtmlErr

TitleTextHtml = "<head>" & NewLineFull & "<meta http-equiv=" & DD _
& "Content-Type" & DD & " content=" & DD _
& "text/html; charset=windows-1252" & DD & ">" & NewLineFull _
& "<meta http-equiv=" & DD & "Content-Language" & DD & " content=" & DD _
& "en-us" & DD & ">" & NewLineFull & "<title>" _
& TitleTextHtml & "</title>" & NewLineFull & "</head>"
Exit Function

TitleTextHtmlErr:
MsgBox UpdateErr, , MsgTitle
TitleTextHtml = FM

End Function

ЭТО ЧТО-ТО ТИПА ВЭВ ЭДИТОРА !!!!!!!!!!!!
30 мар 05, 16:20    [1427453]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
v skopin
Member

Откуда: Germany
Сообщений: 890
В ФОРМЕ:

Option Compare Database

Private Sub Article_body_html_AfterUpdate()
Article_body_text.Value = BodyHtmlText(Article_body_html.Value)
End Sub

Private Sub Article_body_text_AfterUpdate()
Article_body_html.Value = BodyTextHtml(Article_body_text.Value)
End Sub

Private Sub Article_Title_AfterUpdate()

Dim Article_TitleSp As Variant
Dim i As Integer

Article_TitleSp = Split(Article_Title.Value, NewLineFull)
Article_Title.Value = Article_TitleSp(0)
On Error GoTo NotNewLineInTitle
For i = 1 To UBound(Article_TitleSp)
Article_Title.Value = Article_Title.Value & " " & Article_TitleSp(i)
Next

'If IsNull(Article_body_text) Then Article_body_text.Value = Article_Title.Value


NotNewLineInTitle:
Article_title_html.Value = TitleTextHtml(Article_Title.Value)
If Article_title_html.Value = FM Then _
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

End Sub

Private Sub Article_title_html_AfterUpdate()
Article_Title.Value = TitleHtmlText(Article_title_html.Value)
If Article_Title.Value = FM Then _
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
End Sub
30 мар 05, 16:23    [1427474]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
гм - азбукой Морзе не пробовали?
- mdb давай
30 мар 05, 16:28    [1427520]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
v skopin
Member

Откуда: Germany
Сообщений: 890
вот!!!

К сообщению приложен файл (CreateHTMLAdoptiv.zip - 51Kb) cкачать
30 мар 05, 18:19    [1428048]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
XP eng SP1 + AccessXP/2003 - усе работает - ищите причину в локализациях,JET и т.д.
30 мар 05, 19:57    [1428279]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Serge Gavrilov
Member

Откуда:
Сообщений: 3248
Причину уже назвали - имена объектов используют национальные символы.
Если пишите не для русской аудитории - используйте английский Access? Проблем будет намного меньше
30 мар 05, 20:17    [1428301]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
v skopin
Member

Откуда: Germany
Сообщений: 890
А ещё тогда одна глупость!
А где скачать английскию MUI для офиса - все есть, а такой нет!

"XP eng SP1 + AccessXP/2003 - усе работает - ищите причину в локализациях,JET и т.д."
Unicode EN???

Хотя, я же писал, что не идёт голый модуль!!!
30 мар 05, 20:46    [1428343]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Shuhard
Member

Откуда:
Сообщений: 4998
- офис русский, у XP локализация русская
- предлагалось и повторюсь сделать форму с нуля ручками и воткнуть код
30 мар 05, 22:00    [1428417]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Serge Gavrilov
Member

Откуда:
Сообщений: 3248
Shuhard

- предлагалось и повторюсь сделать форму с нуля ручками и воткнуть код


Этого мало, надо переименовать все объекты, имена которым Access дает по умолчанию (например имя раздела Detail - "ОбластьДанных" недопустимо для использования на компах, не поддерживающих кирилицу)
30 мар 05, 23:15    [1428471]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40414
Кажется, это вот это:
https://www.sql.ru/faq/faq_topic.aspx?fid=213
вопрос 21, ответ 3...
31 мар 05, 00:22    [1428528]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
v skopin
Member

Откуда: Germany
Сообщений: 890
Всем спасибо за заботу!

Но, к сожаленью, проблему не решил!
Проблема теперь ясна – нужен офис английский, а у меня только русский или немецкий.
Попутно, последний вопрос не по теме с MS SQL Server 2000 тоже языковые проблемы будут (немецкий)?

Ещё раз спасибо В.Скопин
31 мар 05, 02:19    [1428573]     Ответить | Цитировать Сообщить модератору
 Re: Перенос ДВ  [new]
Andres 1
Member

Откуда: Эстония
Сообщений: 1191
v skopin

Но, к сожаленью, проблему не решил!


Если эта проблема решается переходом на английский Access, то можно делать и в русском, и в немецком. Только придется переименовывать секции форм, отчетов и все элементы управления форм и отчетов с использованием только и исключительно 26 букв латинского алфавита.
Наименования полей, таблиц, форм, запросов, отчетов и макросов тоже желательно ограничить латинским алфавитом без кириллицы или немецких букв типа ä и ü.
31 мар 05, 02:28    [1428578]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить