azadich
چهارشنبه 25 اردیبهشت 1392, 14:48 عصر
با سلام، می خوام پیغام پیوستی در کد زیر را فارسی نمایش بده ممنون میشم.فقط همین پیغام به صورت فارسی متنش مهم نیست جی باشه.
Private Sub Label20_Click()
On Error GoTo ErrHandler
Dim strSql As String, fd As FileDialog
Set fd = FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Filters.add "Access Files", "*.Backm;*.Backm", 1
.InitialFileName = CurrentProject.Path
If .Show Then
strPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
If MsgBox("ÏÑÕæÑÊ æÌæÏÇØáÇÚÇÊ ÞÈáí¡ÇØáÇÚÇÊ ÌÏíÏ ÌÇíÒíä ÔæäÏ", vbYesNo + vbQuestion) = vbYes Then
strSql = "DELETE * FROM 3 " & _
" WHERE madrese IN(SELECT madrese FROM 3 IN '" & strPath & "');"
DoCmd.RunSQL strSql
Refresh
End If
strSql = "INSERT INTO 3 ( madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 ) " & _
"SELECT madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 " & _
"FROM 3 IN '" & strPath & "' WHERE madrese Not IN(SELECT madrese FROM 3);"
DoCmd.RunSQL strSql
Refresh
Exit Sub
ErrHandler:
If err = 3078 Then
MsgBox "ÌÏæá ÑÔÊå åÇ ÏÑ ÝÇíá ÇäÊÎÇÈ ÔÏå æÌæÏ äÏÇÑÏ"
Else
MsgBox "ÇØáÇÚÇÊ Çíä Çíå íÇ ÑÔÊå ÏÑ Çíä ÝÇíá æÌæÏ äÏÇÑÏ"
End If
End Sub
Private Sub Label20_Click()
On Error GoTo ErrHandler
Dim strSql As String, fd As FileDialog
Set fd = FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Filters.add "Access Files", "*.Backm;*.Backm", 1
.InitialFileName = CurrentProject.Path
If .Show Then
strPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
If MsgBox("ÏÑÕæÑÊ æÌæÏÇØáÇÚÇÊ ÞÈáí¡ÇØáÇÚÇÊ ÌÏíÏ ÌÇíÒíä ÔæäÏ", vbYesNo + vbQuestion) = vbYes Then
strSql = "DELETE * FROM 3 " & _
" WHERE madrese IN(SELECT madrese FROM 3 IN '" & strPath & "');"
DoCmd.RunSQL strSql
Refresh
End If
strSql = "INSERT INTO 3 ( madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 ) " & _
"SELECT madrese, q, dini, arabi, emla, ensha, qfarsi, ej, tar, gog, ez, qz, ryazi, olom, herfe, honar, var, par, dq, ddini, darabi, demla, densa, dfarsi, dej, dtar, dgog, dez, dqz, dryazi, dolom, dherfe, dhonar, dvar, dpar, tq, tdini, tarabi, ttemf, tensha, tfarsi, tej, ttar, tgog, temz, tqz, tryazi, tolom, therfe, thonar, tvar, tpar, tq1, tdini1, tarabi1, temf1, tensa1, tfarsi1, tej1, ttar1, tgog1, temz1, tqz1, tryazi1, tolom1, therfe1, thonar1, tvar1, tpar1, qq, qdini, qarabi, qemla, qensa, qafarsi, qej, qtar, qgog, qqz, qemz, qryazi, qolom, qherfe, qhonar, qvar, qpar, qaq1, qadini1, qaarabi1, qaemf1, qensa1, qafarsi1, qej1, qtar1, qgog1, qqz1, qemz1, qryazi1, qolom1, qherfe1, qhonar1, qvar1, qpar1, kol91, kol92, kolq91, kolq92, t91, t92, q91, q92, m91, m92 " & _
"FROM 3 IN '" & strPath & "' WHERE madrese Not IN(SELECT madrese FROM 3);"
DoCmd.RunSQL strSql
Refresh
Exit Sub
ErrHandler:
If err = 3078 Then
MsgBox "ÌÏæá ÑÔÊå åÇ ÏÑ ÝÇíá ÇäÊÎÇÈ ÔÏå æÌæÏ äÏÇÑÏ"
Else
MsgBox "ÇØáÇÚÇÊ Çíä Çíå íÇ ÑÔÊå ÏÑ Çíä ÝÇíá æÌæÏ äÏÇÑÏ"
End If
End Sub